| 1 |
< |
#!/usr/local/bin/perl5 -I$ENV{SCRAM_HOME}/src |
| 1 |
> |
#!/usr/local/bin/perl5 -I$SCRAM_HOME/src -I/afs/cern.ch/user/w/williamc/public/SCRAM/src |
| 2 |
> |
|
| 3 |
|
# |
| 4 |
|
# User Interface |
| 5 |
|
# |
| 49 |
|
# |
| 50 |
|
foreach $key ( keys %ENV ) { |
| 51 |
|
if ( $key=~/^INT/ ) { |
| 52 |
< |
adddir($ENV{$key}); |
| 52 |
> |
AddDir::adddir($ENV{$key}); |
| 53 |
|
} |
| 54 |
|
} |
| 55 |
|
use clientfile; |
| 67 |
|
my $value; |
| 68 |
|
|
| 69 |
|
$ENV{LatestBuildFile}=""; # stop recursive behaviour in make |
| 70 |
< |
setarch(); |
| 70 |
> |
setarchitecture::setarch(); |
| 71 |
|
$ENV{INTwork}="tmp/$ENV{SCRAM_ARCH}"; |
| 72 |
|
$ENV{INTlib}="lib/$ENV{SCRAM_ARCH}"; |
| 73 |
|
$ENV{INTsrc}="src"; |
| 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 |
|
} |
| 82 |
|
if ( ! ( exists $ENV{SCRAM_CONFIG} ) ){ |
| 83 |
< |
$ENV{SCRAM_CONFIG}="$ENV{SCRAM_HOME}/Configuration"; |
| 83 |
> |
$ENV{SCRAM_CONFIG}="$ENV{SCRAM_HOME}/configuration"; |
| 84 |
|
} |
| 85 |
|
if ( ! ( exists $ENV{TOOL_HOME} ) ){ |
| 86 |
< |
$ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/toolbox"; |
| 86 |
> |
$ENV{TOOL_HOME}="$ENV{SCRAM_HOME}/src"; |
| 87 |
|
} |
| 88 |
|
if ( ! ( exists $ENV{SCRAM_LOOKUPDB} ) ){ |
| 89 |
|
$ENV{SCRAM_LOOKUPDB}="$ENV{SCRAM_CONFIG}/project.lookup"; |
