| 1 |
– |
#!/usr/local/bin/perl5 -I/afs/cern.ch/user/w/williamc/public/ConfigMan/toolbox/objects/schema1 |
| 2 |
– |
# |
| 3 |
– |
# Wrapper around the perl objects for system calling |
| 4 |
– |
# |
| 5 |
– |
|
| 1 |
|
package BuildSetup; |
| 2 |
+ |
require 5.001; |
| 3 |
|
require Exporter; |
| 4 |
|
@ISA=qw(Exporter); |
| 5 |
|
@EXPORT=qw(BuildSetup); |
| 6 |
|
use Interface; |
| 7 |
|
use BuildFile; |
| 8 |
< |
use AddDir; |
| 8 |
> |
use Utilities::AddDir; |
| 9 |
|
|
| 10 |
|
sub BuildSetup { |
| 11 |
|
my $THISDIR=shift; |
| 15 |
|
|
| 16 |
|
# Create working directory |
| 17 |
|
chdir $ENV{LOCALTOP}; |
| 18 |
< |
adddir($ENV{INTwork}."/".$THISDIR); |
| 18 |
> |
AddDir::adddir($ENV{INTwork}."/".$THISDIR); |
| 19 |
|
|
| 20 |
|
GetClass($THISDIR); |
| 21 |
|
print "Class = $Class\n"; |
