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

Comparing COMP/SCRAM/src/BootStrapProject.pm (file contents):
Revision 1.4 by williamc, Mon Mar 8 09:56:21 1999 UTC vs.
Revision 1.9 by williamc, Tue Mar 30 13:44:00 1999 UTC

# Line 39 | Line 39 | sub BootStrapProject($) {
39                  'file' => 'none',
40                  'file_starttag' => \&file_start
41          };
42 <         $filename=urlhandler::urlhandler($url);
42 >        $filename=urlhandler::urlhandler($url);
43          $switch=Switcher->new($BootHash, $filename);
44          $switch->parse();
45   }
46  
47 < sub Bootlocaltop($hashref) {
47 > sub Bootlocaltop {
48          my $hashref=shift;
49          use Cwd;
50          use Utilities::AddDir;
# Line 64 | Line 64 | sub project_start {
64  
65          $hashref=$switch->SetupValueHash( \@vars );
66          Bootlocaltop($hashref);
67 +        print "Installing Project $$hashref{'name'} ".
68 +                "Version $$hashref{'version'}\n";
69          open ( ENVIRONMENT , ">$scramdir/Environment" ) || die "Unable to open ".
70                                  "Environment file : $!\n";
71          print ENVIRONMENT 'SCRAM_PROJECTNAME='.$$hashref{'name'}."\n";
# Line 101 | Line 103 | sub config_starttag {
103                  $ENV{LOCALTOP}."/".$$hashref{'dir'};
104          push @dirstack, $ENV{LOCALTOP}."/".$$hashref{'dir'};
105          $currentdir=$ENV{LOCALTOP}."/".$$hashref{'dir'};
106 +        if ( $switch->context('project') ) {
107 +         print INSTALLFILE "<$name dir=$$hashref{dir}>\n";
108 +        }
109   }
110   sub config_endtag {
111 +        my $name=shift;
112 +
113          pop @dirstack;
114          $currentdir=$dirstack[$#dirstack];
115 +        if ( $switch->context('project') ) {
116 +         print INSTALLFILE "</$name>\n";
117 +        }
118   }
119  
120   sub file_start {
# Line 133 | Line 143 | sub reqs_start {
143          use clientfile;
144          $ENV{SCRAM_ProjReqsDoc}=
145            $currentdir."/".$$hashref{'name'};
146 +        print ENVIRONMENT 'SCRAM_ProjReqsDoc='.$ENV{SCRAM_ProjReqsDoc}."\n";
147   #       &urlhandler::urlhandler(&geturlbase."/".$$hashref{'name'},
148   #               $scramdir."/".$$hashref{'name'}) ;
149          if ( $switch->context("project") ) {
# Line 203 | Line 214 | sub install_finish {
214          my $name=shift;
215          my @vars=@_;
216          my $hashref;
206 –        use Utilities::AddDir;
207 –        use File::Copy;
208 –
209 –        # copy across the files in the config directory
210 –        AddDir::adddir($ENV{LOCALTOP}/$ENV{projconfigdir});
211 –        copy "$ENV{RELEASETOP}/$ENV{projconfigdir}",
212 –                        "$ENV{LOCALTOP}/$ENV{projconfigdir}";
217   }
218  
219   sub cvsrep_start {

Diff Legend

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