![[BACK]](/icons/back.gif){kind=icon}
Return to lonnet.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / lonnet / perl|
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); |