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.4 by williamc, Mon Mar 8 09:56:21 1999 UTC vs.
Revision 1.7 by williamc, Fri Mar 19 14:12:45 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 101 | Line 101 | sub config_starttag {
101		$ENV{LOCALTOP}."/".$$hashref{'dir'};
102		push @dirstack, $ENV{LOCALTOP}."/".$$hashref{'dir'};
103		$currentdir=$ENV{LOCALTOP}."/".$$hashref{'dir'};
104	+	if ( $switch->context('project') ) {
105	+	print INSTALLFILE "<$name dir=$$hashref{dir}>\n";
106	+	}
107		}
108		sub config_endtag {
109	+	my $name=shift;
110	+
111		pop @dirstack;
112		$currentdir=$dirstack[$#dirstack];
113	+	if ( $switch->context('project') ) {
114	+	print INSTALLFILE "</$name>\n";
115	+	}
116		}
117
118		sub file_start {
#	Line 203 | Line 211 | sub install_finish {
211		my $name=shift;
212		my @vars=@_;
213		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}";
214		}
215
216		sub cvsrep_start {

Diff Legend

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