ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/scram
(Generate patch)

Comparing COMP/SCRAM/src/scram (file contents):
Revision 1.4 by williamc, Tue Mar 2 10:58:08 1999 UTC vs.
Revision 1.9 by williamc, Mon Mar 22 18:06:29 1999 UTC

# Line 1 | Line 1
1 < #!/usr/local/bin/perl5 -I$SCRAM_HOME/src -I/afs/cern.ch/user/w/williamc/public/SCRAM/src
2 <
1 > #!/usr/local/bin/perl5
2   #
3   # User Interface
4   #
# Line 24 | Line 23 | sub build {
23          # is this a based or free release?
24          FullEnvInit();
25          use BuildSetup;
26 +        $ENV{MAKETARGETS}=@ARGV;
27          BuildSetup($ENV{THISDIR},@ARGV);
28   #       system("$ENV{TOOL_HOME}/BuildSetup",$ENV{THISDIR},@ARGV);
29   }
30  
31   sub project {
32 +        # process options
33 +        while ( $ARGV[0]=~"^-" ) {
34 +         if ( (shift @ARGV)=~/-d/ ) {  #installation area directory
35 +          chdir $ARGV[0];
36 +          shift @ARGV;
37 +         }
38 +        }
39          my $project=shift @ARGV;
40          my $version=shift @ARGV;
41          environmentinit();
42          use File::Copy;
43          use Utilities::AddDir;
44          
38 –           print "Warning : - you are entering a development zone.".
39 –                " Don't complain if it don't work\n";
45             use BootStrapProject;
46             # get the bootstrap files downloaded
47             BootStrapProject("$project\?\?$version");
# Line 49 | Line 54 | sub project {
54             #
55             foreach $key ( keys %ENV ) {
56                  if ( $key=~/^INT/ ) {
57 <                        adddir($ENV{$key});
57 >                        AddDir::adddir($ENV{$key});
58                  }
59             }
60 +           if ( ! -e "$ENV{LOCALTOP}/$ENV{projconfigdir}" ) {
61 +                system("cp", "-r", "$ENV{RELEASETOP}/$ENV{projconfigdir}",
62 +                                "$ENV{LOCALTOP}/$ENV{projconfigdir}");
63 +           }
64             use clientfile;
65             BuildClientFile( $ENV{SCRAM_ProjReqsDoc} );
66 +           use Cwd;
67 +           print "Installation Located at:\n".cwd()."\n";
68 +           print "Press RETURN to exit\n";
69 +           $junk=<STDIN>;
70   }
71 +
72   sub FullEnvInit {
73      environmentinit();
74      localtop();
# Line 75 | Line 89 | sub environmentinit {
89          $ENV{INTlog}="logs";
90  
91          if ( ! ( exists $ENV{SCRAM_HOME}) ){
92 <         $ENV{SCRAM_HOME}="/afs/cern.ch/user/w/williamc/public/ConfigMan";
92 >         $ENV{SCRAM_HOME}="/afs/cern.ch/cms/Releases";
93           print "Warning : Environment Variable SCRAM_HOME not set.\n";
94           print "Defaulting to $ENV{SCRAM_HOME}\n";
95          }

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines