/
/etc/httpd/conf/loncapa.conf
my $diff=`diff ../../loncom/loncapa.conf `;
if ($diff) {
print "**** ERROR **** There are unexpected differences for \n";
}
/etc/httpd/conf/access.conf
my $diff=`diff -y --suppress-common-lines ../access.conf | grep -v PerlSetVar | grep -v 'Include conf/loncapa.conf'`;
if ($diff) {
print "**** ERROR **** There are unexpected differences for \n";
}
open IN, "<";
my $hbug=-1;
my $dbug=-1;
while (<IN>) {
if (/PerlSetVar\s+lonHostID\s+(\S+)/) {
my $v=$1;
$hbug=0;
$hbug=1 if $v=~/\W/;
$hbug=1 if $v=~/\_/;
}
if (/PerlSetVar\s+lonDefDomain\s+(\S+)/) {
my $v=$1;
$dbug=0;
$dbug=1 if $v=~/\W/;
$dbug=1 if $v=~/\_/;
}
}
if ($hbug) {
print "**** ERROR **** has invalid lonHostID\n";
}
if ($dbug) {
print "**** ERROR **** has invalid lonDefDomain\n";
}
/home/httpd/lonTabs/hosts.tab
open IN, "<";
my $rbug=0;
my $dbug=0;
my $sbug=0;
my $fbug=0;
while (<IN>) {
if (/\S/) {
$rbug=1 if /\r/;
my @a=split(/\:/,$_);
$dbug=1 if $a[0]=~/\W/;
$dbug=1 if $a[0]=~/\_/;
$dbug=1 if $a[1]=~/\_/;
$dbug=1 if $a[1]=~/\W/;
$fbug=1 if @a!=5;
$sbug=1 if /\s.+$/;
}
}
close IN;
if ($rbug) {
print "**** ERROR **** is DOS-formatted\n";
}
if ($dbug) {
print "**** ERROR **** has invalid host id or domain id\n";
}
if ($fbug) {
print "**** ERROR **** is lacking 5 columns for every row\n";
}
if ($sbug) {
print "**** ERROR **** has illegal whitespace character\n";
}
/home/httpd/lonTabs/spare.tab
open IN, "<";
my $rbug=0;
my $dbug=0;
my $sbug=0;
while (<IN>) {
if (/\S/) {
$rbug=1 if /\r/;
$dbug=1 if $_=~/\W.*\n$/;
$dbug=1 if $_=~/\_/;
$sbug=1 if /\s.+$/;
}
}
close IN;
if ($rbug) {
print "**** ERROR **** is DOS-formatted\n";
}
if ($dbug) {
print "**** ERROR **** has invalid host id\n";
}
if ($sbug) {
print "**** ERROR **** has illegal whitespace character\n";
}