doc/loncapafiles/sanitycheck.piml - diff

Return to sanitycheck.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

Diff for /doc/loncapafiles/sanitycheck.piml between versions 1.1 and 1.5

version 1.1, 2002/03/03 04:29:10	version 1.5, 2002/08/17 18:59:48
Line 1	Line 1
	<!DOCTYPE piml PUBLIC "-//TUX/DTD piml 1.0 Final//EN"
	"http://lpml.sourceforge.net/DTD/piml.dtd">
<!-- sanitycheck.piml -->	<!-- sanitycheck.piml -->
<!-- Scott Harrison -->	<!-- Scott Harrison -->

Line 33 http://www.lon-capa.org/	Line 35 http://www.lon-capa.org/
<file>	<file>
<target dist='default'>/etc/httpd/conf/loncapa.conf</target>	<target dist='default'>/etc/httpd/conf/loncapa.conf</target>
<perlscript mode='fg'>	<perlscript mode='fg'>
my $diff=`diff ../../loncom/loncapa.conf <TARGET />`;
if ($diff) {
print "** ERROR ** There are unexpected differences for <TARGET />\n";
}
</perlscript>
</file>
<file>
<target dist='default'>/etc/httpd/conf/access.conf</target>
<perlscript mode='fg'>
my $diff=`diff -y --suppress-common-lines ../access.conf <TARGET /> \| grep -v PerlSetVar \| grep -v 'Include conf/loncapa.conf'`;
if ($diff) {
print "** ERROR ** There are unexpected differences for <TARGET />\n";
}
open IN, "<<TARGET />";	open IN, "<<TARGET />";
my $hbug=-1;	my $hbug=-1;
my $dbug=-1;	my $dbug=-1;
Line 61 while (<IN>) {	Line 50 while (<IN>) {
$dbug=0;	$dbug=0;
$dbug=1 if $v=~/\W/;	$dbug=1 if $v=~/\W/;
$dbug=1 if $v=~/\_/;	$dbug=1 if $v=~/\_/;
	# Avoid namespace conflicts under the web server's DocumentRoot.
	my @badnames=('raw','userfiles','priv','adm','uploaded');
	foreach my $bad (@badnames) {
	$dbug=1 if $v eq $bad;
	}
}	}
}	}
if ($hbug) {	if ($hbug) {
Line 86 while (<IN>) {	Line 80 while (<IN>) {
$dbug=1 if $a[0]=~/\_/;	$dbug=1 if $a[0]=~/\_/;
$dbug=1 if $a[1]=~/\_/;	$dbug=1 if $a[1]=~/\_/;
$dbug=1 if $a[1]=~/\W/;	$dbug=1 if $a[1]=~/\W/;
$fbug=1 if @a!=5;	$fbug=1 if (@a<5 \|\| @a>6);
$sbug=1 if /\s.+$/;	my $expr='\s.+$';
	$sbug=1 if ($a[0] =~ /$expr/ \|\|
	$a[1] =~ /$expr/ \|\|
	$a[2] =~ /$expr/ \|\|
	$a[3] =~ /$expr/ \|\|
	$a[4] =~ /$expr/ )
	;
}	}
}	}
close IN;	close IN;
Line 98 if ($dbug) {	Line 98 if ($dbug) {
print "** ERROR ** <TARGET /> has invalid host id or domain id\n";	print "** ERROR ** <TARGET /> has invalid host id or domain id\n";
}	}
if ($fbug) {	if ($fbug) {
print "** ERROR ** <TARGET /> is lacking 5 columns for every row\n";	print "** ERROR ** <TARGET /> is lacking 5 or 6 columns for every row\n";
}	}
if ($sbug) {	if ($sbug) {
print "** ERROR ** <TARGET /> has illegal whitespace character\n";	print "** ERROR ** <TARGET /> has illegal whitespace character\n";

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

Removed from v.1.1
changed lines
	Added in v.1.5