1#************************************************************************* 2# 3# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. 4# 5# Copyright 2000, 2010 Oracle and/or its affiliates. 6# 7# OpenOffice.org - a multi-platform office productivity suite 8# 9# This file is part of OpenOffice.org. 10# 11# OpenOffice.org is free software: you can redistribute it and/or modify 12# it under the terms of the GNU Lesser General Public License version 3 13# only, as published by the Free Software Foundation. 14# 15# OpenOffice.org is distributed in the hope that it will be useful, 16# but WITHOUT ANY WARRANTY; without even the implied warranty of 17# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 18# GNU Lesser General Public License version 3 for more details 19# (a copy is included in the LICENSE file that accompanied this code). 20# 21# You should have received a copy of the GNU Lesser General Public License 22# version 3 along with OpenOffice.org. If not, see 23# <http://www.openoffice.org/license.html> 24# for a copy of the LGPLv3 License. 25# 26#************************************************************************* 27 28package packager::check; 29 30use packager::exiter; 31use packager::globals; 32 33############################################## 34# Check 1: The package list has to exist 35############################################## 36 37sub check_packlist 38{ 39 my $projectdir = $ENV{'PRJ'}; 40 $projectdir =~ s/$packager::globals::separator\s*$//; 41 $packager::globals::packlistname = $projectdir . $packager::globals::separator . "util" . $packager::globals::separator . $packager::globals::packlistname; 42 43 if ( ! -f $packager::globals::packlistname ) 44 { 45 packager::exiter::exit_program("ERROR: Package list not found: $packager::globals::packlistname", "check_packlist"); 46 } 47} 48 49############################################################# 50# Check 2: The environment variable OUTPATH has to be set 51############################################################# 52 53sub check_environment 54{ 55 if ( ! $ENV{'OUTPATH'} ) 56 { 57 packager::exiter::exit_program("ERROR: Environment variable OUTPATH not set!", "check_environment"); 58 } 59 60 if ( ! $ENV{'PRJ'} ) 61 { 62 packager::exiter::exit_program("ERROR: Environment variable PRJ not set!", "check_environment"); 63 } 64} 65 66############################################################# 67# Check 3: Checking the parameter. Only "-i" is valid 68############################################################# 69 70sub check_parameter 71{ 72 while ( $#ARGV >= 0 ) 73 { 74 my $param = shift(@ARGV); 75 76 if ($param eq "-i") { $packager::globals::ignoreerrors = 1; } 77 else 78 { 79 print("\n*************************************\n"); 80 print("Sorry, unknown parameter: $param"); 81 print("\n*************************************\n"); 82 usage(); 83 exit(-1); 84 } 85 } 86} 87 881; 89