version 1.1, 2002/03/03 04:29:10
|
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 33 http://www.lon-capa.org/
|
Line 35 http://www.lon-capa.org/
|
<file> |
<file> |
<target dist='default'>/etc/httpd/conf/loncapa.conf</target> |
<target dist='default'>/etc/httpd/conf/loncapa.conf</target> |
<perlscript mode='fg'> |
<perlscript mode='fg'> |
my $diff=`diff ../../loncom/loncapa.conf <TARGET />`; |
|
if ($diff) { |
|
print "**** ERROR **** There are unexpected differences for <TARGET />\n"; |
|
} |
|
</perlscript> |
|
</file> |
|
<file> |
|
<target dist='default'>/etc/httpd/conf/access.conf</target> |
|
<perlscript mode='fg'> |
|
my $diff=`diff -y --suppress-common-lines ../access.conf <TARGET /> | grep -v PerlSetVar | grep -v 'Include conf/loncapa.conf'`; |
|
if ($diff) { |
|
print "**** ERROR **** There are unexpected differences for <TARGET />\n"; |
|
} |
|
open IN, "<<TARGET />"; |
open IN, "<<TARGET />"; |
my $hbug=-1; |
my $hbug=-1; |
my $dbug=-1; |
my $dbug=-1; |
Line 86 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 98 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"; |