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