1*9780544fSAndrew Rist#************************************************************** 2*9780544fSAndrew Rist# 3*9780544fSAndrew Rist# Licensed to the Apache Software Foundation (ASF) under one 4*9780544fSAndrew Rist# or more contributor license agreements. See the NOTICE file 5*9780544fSAndrew Rist# distributed with this work for additional information 6*9780544fSAndrew Rist# regarding copyright ownership. The ASF licenses this file 7*9780544fSAndrew Rist# to you under the Apache License, Version 2.0 (the 8*9780544fSAndrew Rist# "License"); you may not use this file except in compliance 9*9780544fSAndrew Rist# with the License. You may obtain a copy of the License at 10*9780544fSAndrew Rist# 11*9780544fSAndrew Rist# http://www.apache.org/licenses/LICENSE-2.0 12*9780544fSAndrew Rist# 13*9780544fSAndrew Rist# Unless required by applicable law or agreed to in writing, 14*9780544fSAndrew Rist# software distributed under the License is distributed on an 15*9780544fSAndrew Rist# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY 16*9780544fSAndrew Rist# KIND, either express or implied. See the License for the 17*9780544fSAndrew Rist# specific language governing permissions and limitations 18*9780544fSAndrew Rist# under the License. 19*9780544fSAndrew Rist# 20*9780544fSAndrew Rist#************************************************************** 21*9780544fSAndrew Rist 22*9780544fSAndrew Rist 23cdf0e10cSrcweir 24cdf0e10cSrcweirpackage packager::check; 25cdf0e10cSrcweir 26cdf0e10cSrcweiruse packager::exiter; 27cdf0e10cSrcweiruse packager::globals; 28cdf0e10cSrcweir 29cdf0e10cSrcweir############################################## 30cdf0e10cSrcweir# Check 1: The package list has to exist 31cdf0e10cSrcweir############################################## 32cdf0e10cSrcweir 33cdf0e10cSrcweirsub check_packlist 34cdf0e10cSrcweir{ 35cdf0e10cSrcweir my $projectdir = $ENV{'PRJ'}; 36cdf0e10cSrcweir $projectdir =~ s/$packager::globals::separator\s*$//; 37cdf0e10cSrcweir $packager::globals::packlistname = $projectdir . $packager::globals::separator . "util" . $packager::globals::separator . $packager::globals::packlistname; 38cdf0e10cSrcweir 39cdf0e10cSrcweir if ( ! -f $packager::globals::packlistname ) 40cdf0e10cSrcweir { 41cdf0e10cSrcweir packager::exiter::exit_program("ERROR: Package list not found: $packager::globals::packlistname", "check_packlist"); 42cdf0e10cSrcweir } 43cdf0e10cSrcweir} 44cdf0e10cSrcweir 45cdf0e10cSrcweir############################################################# 46cdf0e10cSrcweir# Check 2: The environment variable OUTPATH has to be set 47cdf0e10cSrcweir############################################################# 48cdf0e10cSrcweir 49cdf0e10cSrcweirsub check_environment 50cdf0e10cSrcweir{ 51cdf0e10cSrcweir if ( ! $ENV{'OUTPATH'} ) 52cdf0e10cSrcweir { 53cdf0e10cSrcweir packager::exiter::exit_program("ERROR: Environment variable OUTPATH not set!", "check_environment"); 54cdf0e10cSrcweir } 55cdf0e10cSrcweir 56cdf0e10cSrcweir if ( ! $ENV{'PRJ'} ) 57cdf0e10cSrcweir { 58cdf0e10cSrcweir packager::exiter::exit_program("ERROR: Environment variable PRJ not set!", "check_environment"); 59cdf0e10cSrcweir } 60cdf0e10cSrcweir} 61cdf0e10cSrcweir 62cdf0e10cSrcweir############################################################# 63cdf0e10cSrcweir# Check 3: Checking the parameter. Only "-i" is valid 64cdf0e10cSrcweir############################################################# 65cdf0e10cSrcweir 66cdf0e10cSrcweirsub check_parameter 67cdf0e10cSrcweir{ 68cdf0e10cSrcweir while ( $#ARGV >= 0 ) 69cdf0e10cSrcweir { 70cdf0e10cSrcweir my $param = shift(@ARGV); 71cdf0e10cSrcweir 72cdf0e10cSrcweir if ($param eq "-i") { $packager::globals::ignoreerrors = 1; } 73cdf0e10cSrcweir else 74cdf0e10cSrcweir { 75cdf0e10cSrcweir print("\n*************************************\n"); 76cdf0e10cSrcweir print("Sorry, unknown parameter: $param"); 77cdf0e10cSrcweir print("\n*************************************\n"); 78cdf0e10cSrcweir usage(); 79cdf0e10cSrcweir exit(-1); 80cdf0e10cSrcweir } 81cdf0e10cSrcweir } 82cdf0e10cSrcweir} 83cdf0e10cSrcweir 84cdf0e10cSrcweir1; 85