![[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.784, 2006/09/28 01:38:59 | version 1.785, 2006/09/28 20:03:55 |
|---|---|
| Line 7189 sub get_iphost { | Line 7189 sub get_iphost { |
| chomp($configline); | chomp($configline); |
| if ($configline) { | if ($configline) { |
| my ($host,$type) = split(':',$configline,2); | my ($host,$type) = split(':',$configline,2); |
| if ($type eq '') { $type = 'default' }; | if (!defined($type) || $type eq '') { $type = 'default' }; |
| push(@{ $spareid{$type} }, $host); | push(@{ $spareid{$type} }, $host); |
| } | } |
| } | } |