[BACK]Return to lonnet.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / lonnet / perl

Diff for /loncom/lonnet/perl/lonnet.pm between versions 1.846 and 1.847

version 1.846, 2007/03/08 01:58:41 version 1.847, 2007/03/12 17:07:43
Line 35  use HTTP::Headers; Line 35  use HTTP::Headers;
 use HTTP::Date;  use HTTP::Date;
 # use Date::Parse;  # use Date::Parse;
 use vars   use vars 
 qw(%perlvar %badServerCache %iphost %spareid   qw(%perlvar %badServerCache %spareid 
    %pr %prp $memcache %packagetab      %pr %prp $memcache %packagetab 
    %courselogs %accesshash %userrolehash %domainrolehash $processmarker $dumpcount      %courselogs %accesshash %userrolehash %domainrolehash $processmarker $dumpcount 
    %coursedombuf %coursenumbuf %coursehombuf %coursedescrbuf %courseinstcodebuf %courseownerbuf %coursetypebuf     %coursedombuf %coursenumbuf %coursehombuf %coursedescrbuf %courseinstcodebuf %courseownerbuf %coursetypebuf
Line 7671  BEGIN { Line 7671  BEGIN {
     }      }
 }  }
   
 sub get_hosts_from_ip {  { 
     my ($ip) = @_;      my %iphost;
     my %iphosts = &get_iphost();      sub get_hosts_from_ip {
     if (ref($iphosts{$ip})) {   my ($ip) = @_;
  return @{$iphosts{$ip}};   my %iphosts = &get_iphost();
    if (ref($iphosts{$ip})) {
       return @{$iphosts{$ip}};
    }
    return;
     }      }
     return;      
 }      sub get_iphost {
    if (%iphost) { return %iphost; }
 sub get_iphost {   my %name_to_ip;
     if (%iphost) { return %iphost; }   my %hostname = &all_hostnames();
     my %name_to_ip;   foreach my $id (keys(%hostname)) {
     my %hostname = &all_hostnames();      my $name=$hostname{$id};
     foreach my $id (keys(%hostname)) {      my $ip;
  my $name=$hostname{$id};      if (!exists($name_to_ip{$name})) {
  my $ip;   $ip = gethostbyname($name);
  if (!exists($name_to_ip{$name})) {   if (!$ip || length($ip) ne 4) {
     $ip = gethostbyname($name);      &logthis("Skipping host $id name $name no IP found");
     if (!$ip || length($ip) ne 4) {      next;
  &logthis("Skipping host $id name $name no IP found");   }
  next;   $ip=inet_ntoa($ip);
    $name_to_ip{$name} = $ip;
       } else {
    $ip = $name_to_ip{$name};
     }      }
     $ip=inet_ntoa($ip);      push(@{$iphost{$ip}},$id);
     $name_to_ip{$name} = $ip;  
  } else {  
     $ip = $name_to_ip{$name};  
  }   }
  push(@{$iphost{$ip}},$id);   return %iphost;
     }      }
     return %iphost;  
 }  }
   
 # ------------------------------------------------------ Read spare server file  # ------------------------------------------------------ Read spare server file
Removed from v.1.846  
changed lines
  Added in v.1.847

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