![[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.755, 2006/06/22 14:30:14 | version 1.756, 2006/06/22 14:48:40 |
|---|---|
| Line 285 sub critical { | Line 285 sub critical { |
| sub error { | sub error { |
| my ($result) = @_; | my ($result) = @_; |
| if ($result =~ /^(con_lost|no_such_host|error: (\d+) )/) { | if ($result =~ /^(con_lost|no_such_host|error: (\d+) (.*))/) { |
| if ($2 == 2) { return undef; } | if ($2 == 2) { return undef; } |
| return $1; | return $1; |
| } | } |
| &logthis("accepting $result"); | |
| return undef; | return undef; |
| } | } |