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