Diff for /loncom/production_dns_sanity.pl between versions 1.2 and 1.3

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

Removed from v.1.2  
changed lines
  Added in v.1.3


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>