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.2 and 1.5

version 1.2, 2002/05/16 01:46:29	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 48 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 73 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 85 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.2
changed lines
	Added in v.1.5