loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

-version 1.597, 2005/02/09 22:39:49
+version 1.598, 2005/02/10 22:26:38
  Line 5685  BEGIN {
         my ($id,$domain,$role,$name)=split(/:/,$configline);
         $name=~s/\s//g;
         if ($id && $domain && $role && $name) {
- 	 my $ip = gethostbyname($name);
- 	 if (length($ip) ne 4) {
- 	     &logthis("Skipping host $id name $name no IP $ip found\n");
- 	     next;
- 	 }
- 	 $ip=inet_ntoa($ip);
- 	 push(@{$iphost{$ip}},$id);
  	 $hostname{$id}=$name;
  	 $hostdom{$id}=$domain;
  	 if ($role eq 'library') { $libserv{$id}=$name; }
- Line 5700  BEGIN {
+ Line 5693  BEGIN {
      close($config);
  }
+ sub get_iphost {
+     if (%iphost) { return %iphost; }
+     foreach my $id (keys(%hostname)) {
+ 	my $name=$hostname{$id};
+ 	my $ip = gethostbyname($name);
+ 	if (!$ip || length($ip) ne 4) {
+ 	    &logthis("Skipping host $id name $name no IP found\n");
+ 	    next;
+ 	}
+ 	$ip=inet_ntoa($ip);
+ 	push(@{$iphost{$ip}},$id);
+     }
+     return %iphost;
+ }
  # ------------------------------------------------------ Read spare server file
  {
      open(my $config,"<$perlvar{'lonTabDir'}/spare.tab");