| Revision: | 1.1.2.4 |
| Committed: | Mon Feb 28 17:20:50 2000 UTC (25 years, 2 months ago) by williamc |
| Branch: | V0_9branch |
| CVS Tags: | V0_14_0, V0_12_12_4, V0_12_12_3, V0_13_3, V0_13_2, V0_12_12_2, V0_12_12_1, V0_12_12_0, PlayGround_0, V0_13_1, V0_13_0, V0_12_12, V0_12_11, V0_12_9b, V0_12_10, V0_12_9, V0_12_8, V0_12_7, V0_12_6, V0_12_5, V0_12_4, V0_12_3, V0_12_2, V0_12_1, V0_12_0, V0_11_4, V0_11_3, V0_11_2, V0_11_1, V0_11_0, V0_10_19, V0_10_18, V0_10_17, V0_10_16, V0_10_15, V0_10_14, V0_10_13 |
| Branch point for: | HPWbranch |
| Changes since 1.1.2.3: | +2 -2 lines |
| Log Message: | divide system ret value by 256 |
| # | User | Rev | Content |
|---|---|---|---|
| 1 | williamc | 1.1.2.1 | #!/usr/local/bin/perl5 |
| 2 | williamc | 1.1.2.2 | # Wrap the main scram program |
| 3 | williamc | 1.1 | # Set up any system varibales required and process arguments |
| 4 | # immediateley after scram | ||
| 5 | |||
| 6 | $re='false'; | ||
| 7 | williamc | 1.1.2.2 | @args=@ARGV; |
| 8 | for ( my $i=0; $i<=$#args; $i++ ) { | ||
| 9 | if ( $args[$i] eq "-re" ) { #Always request a User Return to exit the program | ||
| 10 | williamc | 1.1 | $re="true"; |
| 11 | williamc | 1.1.2.2 | # cut it out of argument list passed down |
| 12 | splice(@args,$i,1); | ||
| 13 | williamc | 1.1 | } |
| 14 | } | ||
| 15 | |||
| 16 | # -- If not already set then point to current version | ||
| 17 | if ( $ENV{SCRAM_HOME} eq "" ) { | ||
| 18 | $ENV{SCRAM_HOME}="__basedir__"; | ||
| 19 | } | ||
| 20 | |||
| 21 | # -- Always set PERL5LIB to run scram specific modules | ||
| 22 | $ENV{PERL5LIB}="$ENV{SCRAM_HOME}/src"; | ||
| 23 | williamc | 1.1.2.4 | my $ret= system("$ENV{SCRAM_HOME}/src/scram", @args); |
| 24 | williamc | 1.1 | |
| 25 | # -- Dont just exit- ask the user first if -re option specified | ||
| 26 | if ( $re eq 'true' ) { | ||
| 27 | print "\nPress RETURN to exit\n"; | ||
| 28 | $junk=<STDIN>; | ||
| 29 | } | ||
| 30 | williamc | 1.1.2.4 | exit $ret/256; |