doc/loncapafiles/sanitycheck.piml - diff

Return to sanitycheck.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.15, 2003/05/27 15:44:32	version 1.16, 2005/03/01 03:40:47
Line 158 while (<IN>) {	Line 158 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 \|\| @a>6);	$fbug=1 if (@a<4 \|\| @a>5);
my $expr='\s.+$';	my $expr='\s.+$';
$sbug=1 if ($a[0] =~ /$expr/ \|\|	$sbug=1 if ($a[0] =~ /$expr/ \|\|
$a[1] =~ /$expr/ \|\|	$a[1] =~ /$expr/ \|\|
$a[2] =~ /$expr/ \|\|	$a[2] =~ /$expr/ \|\|
$a[3] =~ /$expr/ \|\|	$a[3] =~ /$expr/ )
$a[4] =~ /$expr/ )
;	;
}	}
}	}
Line 176 if ($dbug) {	Line 175 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 or 6 columns for every row\n";	print "** ERROR ** <TARGET /> is lacking 4 or 5 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";