/
/etc/httpd/conf/loncapa.conf
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 || @a>6);
my $expr='\s.+$';
$sbug=1 if ($a[0] =~ /$expr/ ||
$a[1] =~ /$expr/ ||
$a[2] =~ /$expr/ ||
$a[3] =~ /$expr/ ||
$a[4] =~ /$expr/ )
;
}
}
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 or 6 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";
}