version 1.2, 2008/05/20 15:50:47
|
version 1.3, 2010/08/18 22:57:12
|
Line 24 while (my $line=<IN>) {
|
Line 24 while (my $line=<IN>) {
|
if ($line=~/^\s*\#/) { next; } |
if ($line=~/^\s*\#/) { next; } |
chomp($line); |
chomp($line); |
unless ($line=~/\S/) { next; } |
unless ($line=~/\S/) { next; } |
my ($server,$domain,$function,$ip)=split(/\:/,$line); |
my ($server,$domain,$function,$ip,$protocol,$interdom)=split(/\:/,$line); |
|
unless (($protocol eq 'http') || ($protocol eq 'https')) { |
|
print "Invalid protocol $protocol for $server\n"; |
|
} |
|
unless ($interdom=~/\./) { |
|
print "Invalid internet domain $interdom for $server\n"; |
|
} |
if ($hostdom{$server}) { |
if ($hostdom{$server}) { |
print "$server defined more than once in hosts.tab\n"; |
print "$server defined more than once in hosts.tab\n"; |
} |
} |
Line 35 close(IN);
|
Line 41 close(IN);
|
|
|
# Every mentioned library server should be in hosts.tab |
# Every mentioned library server should be in hosts.tab |
|
|
|
my $doms=0; |
foreach my $dom (keys %domserv) { |
foreach my $dom (keys %domserv) { |
unless ($hostdom{$domserv{$dom}} eq $dom) { |
unless ($hostdom{$domserv{$dom}} eq $dom) { |
print "Did not find $domserv{$dom} in hosts.tab\n"; |
print "Did not find $domserv{$dom} in hosts.tab\n"; |
Line 42 foreach my $dom (keys %domserv) {
|
Line 49 foreach my $dom (keys %domserv) {
|
unless ($hostfunc{$domserv{$dom}} eq 'library') { |
unless ($hostfunc{$domserv{$dom}} eq 'library') { |
print "$domserv{$dom} is not a library server ($hostfunc{$domserv{$dom}})\n"; |
print "$domserv{$dom} is not a library server ($hostfunc{$domserv{$dom}})\n"; |
} |
} |
|
$doms++; |
} |
} |
|
|
# Every server should have a valid domain |
# Every server should have a valid domain |
|
|
|
my $servs=0; |
foreach my $serv (keys %hostdom) { |
foreach my $serv (keys %hostdom) { |
unless ($domserv{$hostdom{$serv}}) { |
unless ($domserv{$hostdom{$serv}}) { |
print "Server $serv has invalid domain in hosts.tab\n"; |
print "Server $serv has invalid domain in hosts.tab\n"; |
Line 53 foreach my $serv (keys %hostdom) {
|
Line 62 foreach my $serv (keys %hostdom) {
|
unless (($hostfunc{$serv} eq 'library') || ($hostfunc{$serv} eq 'access')) { |
unless (($hostfunc{$serv} eq 'library') || ($hostfunc{$serv} eq 'access')) { |
print "Server $serv has invalid function $hostfunc{$serv} in hosts.tab\n"; |
print "Server $serv has invalid function $hostfunc{$serv} in hosts.tab\n"; |
} |
} |
|
$servs++; |
} |
} |
|
print "\nValidated $doms domains and $servs servers\n"; |
|
|