| # | Line 49 | Line 49 | sub project { | |
|---|---|---|
| 49 | # | |
| 50 | foreach $key ( keys %ENV ) { | |
| 51 | if ( $key=~/^INT/ ) { | |
| 52 | < | adddir($ENV{$key}); |
| 52 | > | AddDir::adddir($ENV{$key}); |
| 53 | } | |
| 54 | } | |
| 55 | use clientfile; | |
| # | Line 75 | Line 75 | sub environmentinit { | |
| 75 | $ENV{INTlog}="logs"; | |
| 76 | ||
| 77 | if ( ! ( exists $ENV{SCRAM_HOME}) ){ | |
| 78 | < | $ENV{SCRAM_HOME}="/afs/cern.ch/user/w/williamc/public/ConfigMan"; |
| 78 | > | $ENV{SCRAM_HOME}="/afs/cern.ch/user/w/williamc/public/SCRAM"; |
| 79 | print "Warning : Environment Variable SCRAM_HOME not set.\n"; | |
| 80 | print "Defaulting to $ENV{SCRAM_HOME}\n"; | |
| 81 | } | |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |