loncom/production_dns_sanity.pl - diff

Return to production_dns_sanity.pl CVS log

Up to [LON-CAPA] / loncom

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