version 1.1, 2008/05/20 15:43:12
|
version 1.2, 2008/05/20 15:50:47
|
Line 12 while (my $line=<IN>) {
|
Line 12 while (my $line=<IN>) {
|
chomp($line); |
chomp($line); |
unless ($line=~/\S/) { next; } |
unless ($line=~/\S/) { next; } |
my ($domain,$name,$auth,$authparm,$lang,$city,$coord1,$coord2,$lib)=split(/\:/,$line); |
my ($domain,$name,$auth,$authparm,$lang,$city,$coord1,$coord2,$lib)=split(/\:/,$line); |
|
if ($domserv{$domain}) { |
|
print "Domain $domain defined more than once in domain.tab\n"; |
|
} |
$domserv{$domain}=$lib; |
$domserv{$domain}=$lib; |
$domname{$domain}=$name; |
$domname{$domain}=$name; |
} |
} |
Line 40 foreach my $dom (keys %domserv) {
|
Line 43 foreach my $dom (keys %domserv) {
|
print "$domserv{$dom} is not a library server ($hostfunc{$domserv{$dom}})\n"; |
print "$domserv{$dom} is not a library server ($hostfunc{$domserv{$dom}})\n"; |
} |
} |
} |
} |
|
|
|
# Every server should have a valid domain |
|
|
|
foreach my $serv (keys %hostdom) { |
|
unless ($domserv{$hostdom{$serv}}) { |
|
print "Server $serv has invalid domain in hosts.tab\n"; |
|
} |
|
unless (($hostfunc{$serv} eq 'library') || ($hostfunc{$serv} eq 'access')) { |
|
print "Server $serv has invalid function $hostfunc{$serv} in hosts.tab\n"; |
|
} |
|
} |