doc/loncapafiles/webserver.piml - diff

Return to webserver.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

Diff for /doc/loncapafiles/webserver.piml between versions 1.3 and 1.9

version 1.3, 2002/02/02 13:08:42	version 1.9, 2002/05/12 19:02:18
Line 1	Line 1
	<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN"
	"http://lpml.sourceforge.net/DTD/piml.dtd">
<!-- webserver.piml -->	<!-- webserver.piml -->
<!-- Scott Harrison -->	<!-- Scott Harrison -->

Line 36 http://www.lon-capa.org/	Line 38 http://www.lon-capa.org/
<!-- defined. -->	<!-- defined. -->

<piml>	<piml>
<targetroot>/abc/</targetroot>	<targetroot>/</targetroot>
<specialnotices>	<specialnotices>
<specialnotice>	<specialnotice>
</specialnotice>	</specialnotice>
Line 56 unless (-e "<TARGET />") {	Line 58 unless (-e "<TARGET />") {
else {	else {
$flag=0;	$flag=0;
open IN, "<<TARGET />";	open IN, "<<TARGET />";
while (<IN>) { if (/^\s*Include\s+srm.conf/) { $flag=1; } }	while (<IN>) { if (/^\s*Include\s+conf\/srm.conf/) { $flag=1; } }
close IN;	close IN;
unless ($flag==0) {	unless ($flag==1) {
open OUT,">><TARGET />";	open OUT,">><TARGET />";
print OUT 'Include srm.conf'."\n";	print OUT 'Include conf/srm.conf'."\n";
close OUT;	close OUT;
}	}
$flag=0;	$flag=0;
open IN, "<<TARGET />";	open IN, "<<TARGET />";
while (<IN>) { if (/^\s*Include\s+access.conf/) { $flag=1; } }	while (<IN>) { if (/^\s*Include\s+conf\/access.conf/) { $flag=1; } }
close IN;	close IN;
unless ($flag==0) {	unless ($flag==1) {
open OUT,">><TARGET />";	open OUT,">><TARGET />";
print OUT 'Include access.conf'."\n";	print OUT 'Include conf/access.conf'."\n";
close OUT;	close OUT;
}	}
$flag=0;
my $eflag=0;	my $eflag=0;
	$flag=0;
	open IN, "<<TARGET />";
	while (<IN>) {
	if (/^\s*Include\s+conf\/loncapa_apache.conf/) {
	$flag=1;
	}
	}
	close IN;
	unless ($flag==1) {
	open OUT,">><TARGET />";
	print OUT 'Include conf/loncapa_apache.conf'."\n";
	close OUT;
	}
	$flag=0;
open IN, "<<TARGET />";	open IN, "<<TARGET />";
while (<IN>) {	while (<IN>) {
if (/^\s*Include\s+loncapa.conf/) {	if (/^\s*Include\s+conf\/loncapa.conf/) {
$flag=1;	$flag=1;
}	}
}	}
close IN;	close IN;
unless ($flag==0) {	unless ($flag==1) {
open OUT,">><TARGET />";	open OUT,">><TARGET />";
print OUT 'Include loncapa.conf'."\n";	print OUT 'Include conf/loncapa.conf'."\n";
close OUT;	close OUT;
}	}
}	}
Line 98 Apache</note>	Line 113 Apache</note>
</dependencies>	</dependencies>
<perlscript mode='fg'>	<perlscript mode='fg'>
unless (-e "<TARGET />") {	unless (-e "<TARGET />") {
print <<;	print <<END;
WARNING! access.conf is not currently present on your system.	WARNING! access.conf is not currently present on your system.
This is either due to	This is either due to
* you are missing the Apache software package,	* you are missing the Apache software package,
Line 112 END	Line 127 END
}	}
my $flag=0;	my $flag=0;
open IN, "<<TARGET />";	open IN, "<<TARGET />";
while (<IN>) { if (/^\s*Include\s+loncapa.conf/) { $flag=1; } }	while (<IN>) { if (/^\s*Include\s+conf\/loncapa_apache.conf/)
	{ $flag=1; } }
	close IN;
	unless ($flag==1) {
	open OUT,">><TARGET />";
	print OUT 'Include conf/loncapa_apache.conf'."\n";
	close OUT;
	$flag=0;
	open IN, "<<TARGET />";
	while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } }
close IN;	close IN;
unless ($flag==0) {	unless ($flag==1) {
open OUT,">><TARGET />";	open OUT,">><TARGET />";
print OUT 'Include loncapa.conf'."\n";	print OUT 'Include conf/loncapa.conf'."\n";
close OUT;	close OUT;
}	}
</perlscript>	</perlscript>
Line 130 Apache</note>	Line 154 Apache</note>
</dependencies>	</dependencies>
<perlscript mode='fg'>	<perlscript mode='fg'>
unless (-e "<TARGET />") {	unless (-e "<TARGET />") {
print <<;	print <<END;
WARNING! srm.conf is not currently present on your system.	WARNING! srm.conf is not currently present on your system.
This is either due to	This is either due to
* you are missing the Apache software package,	* you are missing the Apache software package,
Line 144 END	Line 168 END
}	}
my $flag=0;	my $flag=0;
open IN, "<<TARGET />";	open IN, "<<TARGET />";
while (<IN>) { if (/^\s*Include\s+loncapa.conf/) { $flag=1; } }	while (<IN>) { if (/^\s*Include\s+conf\/loncapa_apache.conf/)
	{ $flag=1; } }
	close IN;
	unless ($flag==1) {
	open OUT,">><TARGET />";
	print OUT 'Include conf/loncapa_apache.conf'."\n";
	close OUT;
	$flag=0;
	open IN, "<<TARGET />";
	while (<IN>) { if (/^\s*Include\s+conf\/loncapa.conf/) { $flag=1; } }
close IN;	close IN;
unless ($flag==0) {	unless ($flag==1) {
open OUT,">><TARGET />";	open OUT,">><TARGET />";
print OUT 'Include loncapa.conf'."\n";	print OUT 'Include conf/loncapa.conf'."\n";
close OUT;	close OUT;
}	}
</perlscript>	</perlscript>

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.3
changed lines
	Added in v.1.9