ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/BootStrapProject.pm

Comparing COMP/SCRAM/src/BootStrapProject.pm (file contents):
Revision 1.5 by williamc, Mon Mar 8 11:02:39 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 102 | Line 104 | sub config_starttag {
104		push @dirstack, $ENV{LOCALTOP}."/".$$hashref{'dir'};
105		$currentdir=$ENV{LOCALTOP}."/".$$hashref{'dir'};
106		if ( $switch->context('project') ) {
107	<	print INSTALLFILE "<$name name=$$hashref{dir}>\n";
107	>	print INSTALLFILE "<$name dir=$$hashref{dir}>\n";
108		}
109		}
110		sub config_endtag {
#	Line 141 | 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") ) {

Diff Legend

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