Return to lonnet.pm CVS log | Up to [LON-CAPA] / loncom / lonnet / perl |
version 1.825, 2007/01/16 22:08:48 | version 1.826, 2007/01/18 15:58:29 |
---|---|
Line 7501 sub get_iphost { | Line 7501 sub get_iphost { |
if (!exists($name_to_ip{$name})) { | if (!exists($name_to_ip{$name})) { |
$ip = gethostbyname($name); | $ip = gethostbyname($name); |
if (!$ip || length($ip) ne 4) { | if (!$ip || length($ip) ne 4) { |
&logthis("Skipping host $id name $name no IP found\n"); | &logthis("Skipping host $id name $name no IP found"); |
next; | next; |
} | } |
$ip=inet_ntoa($ip); | $ip=inet_ntoa($ip); |