66 lines
1.8 KiB
Perl
66 lines
1.8 KiB
Perl
#! /usr/bin/perl
|
|
# @(#)80 1.7 src/bldenv/bldtools/CheckStatus.pl, bldprocess, bos412, GOLDA411a 1/23/92 14:52:41
|
|
#
|
|
# COMPONENT_NAME: (BLDPROCESS) BAI Build Process
|
|
#
|
|
# FUNCTIONS: CheckStatus
|
|
# process_opt_arg
|
|
# usage
|
|
# initialize
|
|
# get_cmd_line
|
|
#
|
|
# ORIGINS: 27
|
|
#
|
|
# IBM CONFIDENTIAL -- (IBM Confidential Restricted when
|
|
# combined with the aggregated modules for this product)
|
|
# SOURCE MATERIALS
|
|
# (C) COPYRIGHT International Business Machines Corp. 1991
|
|
# All Rights Reserved
|
|
#
|
|
# US Government Users Restricted Rights - Use, duplication or
|
|
# disclosure restricted by GSA ADP Schedule Contract with IBM Corp.
|
|
#
|
|
# NAME: CheckStatus
|
|
#
|
|
# FUNCTION: Checks the status of any operation or command in the database file
|
|
#
|
|
# INPUT: avalue,bvalue,cvalue,dvalue,evalue,filename(global command line
|
|
# (arguments)
|
|
#
|
|
# EXECUTION ENVIRONMENT: Build process environment
|
|
#
|
|
# RETURNS: 0 on Success
|
|
# 1 on Failure
|
|
#
|
|
|
|
push(@INC,split(/:/,$ENV{"PATH"})); # Including path
|
|
do 'bldperlconst';
|
|
do 'bldstatusfunc';
|
|
&initialize('*');
|
|
&get_cmd_line;
|
|
&get_status_file;
|
|
|
|
open (STATUS_FILE,"+<$status_file") ||
|
|
die("Can't open the file $status_file\n");
|
|
|
|
while (<STATUS_FILE>){
|
|
|
|
chop($_);
|
|
($a_db_val,$b_db_val,$c_db_val,$d_db_val,$e_db_val,$f_db_val, $g_db_val,$h_db_val,$i_db_val,$j_db_val) = split(/\|/,$_);
|
|
|
|
if((($a_value eq "*") || ($a_value eq $a_db_val))
|
|
&& (($b_value eq "*") || ($b_value eq $b_db_val))
|
|
&& (($c_value eq "*") || ($c_value eq $c_db_val))
|
|
&& (($d_value eq "*") || ($d_value eq $d_db_val))
|
|
&& (($e_value eq "*") || ($e_value eq $e_db_val))
|
|
&& (($f_value eq "*") || ($f_value eq $f_db_val))
|
|
&& (($g_value eq "*") || ($g_value eq $g_db_val))
|
|
&& (($h_value eq "*") || ($h_value eq $h_db_val))
|
|
&& (($i_value eq "*") || ($i_value eq $i_db_val))
|
|
&& (($j_value eq "*") || ($j_value eq $j_db_val))){
|
|
exit $SUCCESS;
|
|
}
|
|
}
|
|
exit $FAILURE;
|
|
|