| 78 |
|
BuildClientFile( $ENV{SCRAM_ProjReqsDoc} ); |
| 79 |
|
use Cwd; |
| 80 |
|
print "Installation Located at:\n".cwd()."\n"; |
| 81 |
– |
ReturnToContinue(); |
| 81 |
|
} |
| 82 |
|
|
| 83 |
|
sub FullEnvInit { |
| 128 |
|
} while ( ( $thispath=~s/(.*)\/.*/$1/ )=~/./ ); |
| 129 |
|
if ( ! (defined $ENV{LOCALTOP}) ) { |
| 130 |
|
print "Unable to locate the top of local release. Exiting\n"; |
| 131 |
< |
ReturnToContinue(); |
| 131 |
> |
exit 1; |
| 132 |
|
} |
| 133 |
|
} #end block |
| 134 |
< |
($ENV{THISDIR}=cwd)=~s/^$ENV{LOCALTOP}//; |
| 134 |
> |
($ENV{THISDIR}=cwd)=~s/^\Q$ENV{LOCALTOP}\L//; |
| 135 |
|
$ENV{THISDIR}=~s/^\///; |
| 136 |
|
$ENV{SCRAM_WORKDIR}="$ENV{LOCALTOP}/.SCRAM"; |
| 137 |
|
} |
| 255 |
|
print "$ENV{SCRAM_ARCH}\n"; |
| 256 |
|
} |
| 257 |
|
|
| 259 |
– |
sub ReturnToContinue { |
| 260 |
– |
print "Press RETURN to exit\n"; |
| 261 |
– |
$junk=<STDIN>; |
| 262 |
– |
} |
| 258 |
|
|
| 259 |
|
# |
| 260 |
|
# Setup a new tool |
