doc/loncapafiles/sanitycheck.piml - diff

Return to sanitycheck.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.2, 2002/05/16 01:46:29	version 1.4, 2002/08/15 15:41:57
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 73 while (<IN>) {	Line 75 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 93 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";