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.6 by williamc, Mon Mar 8 11:02:40 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 58 | Line 63 | sub project {
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 79 | 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/SCRAM";
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