doc/loncapafiles/sanitycheck.piml - diff

Return to sanitycheck.piml CVS log

Up to [LON-CAPA] / doc / loncapafiles

version 1.16, 2005/03/01 03:40:47	version 1.21, 2006/10/05 18:20:23
Line 111 else # It exists, so look at the file me	Line 111 else # It exists, so look at the file me
</file>	</file>
<file>	<file>
<target dist='default'>/etc/httpd/conf/loncapa.conf</target>	<target dist='default'>/etc/httpd/conf/loncapa.conf</target>
	<target dist='sles10 suse10.1'>/etc/apache2/loncapa.conf</target>
<perlscript mode='fg'>	<perlscript mode='fg'>
open IN, "<<TARGET />";	open IN, "<<TARGET />";
my $hbug=-1;	my $hbug=-1;
Line 187 open IN, "<<TARGET />";	Line 188 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.*\n/) {
$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 200 if ($rbug) {	Line 203 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";