/ /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"; }