| 35 |
|
|
| 36 |
|
# -- specifiy these files for dependency information |
| 37 |
|
my $depfile=$ENV{projconfigdir}."/External_Dependencies"; |
| 38 |
< |
my $clientfile="$ENV{LOCALTOP}/.SCRAM/$ENV{SCRAM_ARCH}/clientsettings"; |
| 39 |
< |
my $clientreq="$ENV{LOCALTOP}/.SCRAM/$ENV{SCRAM_ARCH}/". |
| 40 |
< |
"clientsettings_reqs"; |
| 38 |
> |
|
| 39 |
> |
# -- get list of dependent files |
| 40 |
> |
my $datadir=$ENV{LOCALTOP}."/.SCRAM/".$ENV{SCRAM_ARCH}; |
| 41 |
> |
$fdir=FileHandle->new(); |
| 42 |
> |
opendir $fdir, $datadir or die |
| 43 |
> |
"unable to access $datadir $!\n"; |
| 44 |
> |
my @depfiles=grep !/^\.\.?$/, readdir $fdir; |
| 45 |
> |
undef $fdir; |
| 46 |
> |
for (my $i=0; $i<=$#depfiles; $i++ ) { |
| 47 |
> |
$depfiles[$i]=$datadir."/".$depfiles[$i]; |
| 48 |
> |
} |
| 49 |
> |
|
| 50 |
|
# -- do we need to rebuild? |
| 51 |
< |
if ( SCRAMUtils::dated($outfile,$depfile, $clientfile,$clientreq) ) { |
| 51 |
> |
if ( SCRAMUtils::dated($outfile,@depfiles) ) { |
| 52 |
|
print "Configuring Local Area\n"; |
| 53 |
|
# -- open output file |
| 54 |
|
my $fout=FileHandle->new(); |
