doc/loncapafiles/sanitycheck.piml - diff

Return to sanitycheck.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.17, 2006/09/15 20:55:15	version 1.18, 2006/09/28 02:15:06
Line 189 open IN, "<<TARGET />";	Line 189 open IN, "<<TARGET />";
my $rbug=0;	my $rbug=0;
my $dbug=0;	my $dbug=0;
my $sbug=0;	my $sbug=0;
while (<IN>) {	while (my $line = <IN>) {
if (/\S/) {	if ($line =~ /\S/) {
$rbug=1 if /\r/;	$rbug=1 if $line=~/\r/;
$dbug=1 if $_=~/\W.*\n$/;	if ($line =~ /\W/) {
$dbug=1 if $_=~/\_/;	$dbug=$line if ($line !~/\w:(?:primary\|default)$/);
$sbug=1 if /\s.+$/;	}
	$dbug=$line if $line=~/\_/;
	$sbug=1 if $line=~/\s.+$/;
}	}
}	}
close IN;	close IN;
Line 202 if ($rbug) {	Line 204 if ($rbug) {
print "** ERROR ** <TARGET /> is DOS-formatted\n";	print "** ERROR ** <TARGET /> is DOS-formatted\n";
}	}
if ($dbug) {	if ($dbug) {
print "** ERROR ** <TARGET /> has invalid host id\n";	print "** ERROR ** <TARGET /> has invalid host id ($dbug)\n";
}	}
if ($sbug) {	if ($sbug) {
print "** ERROR ** <TARGET /> has illegal whitespace character\n";	print "** ERROR ** <TARGET /> has illegal whitespace character\n";