![[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.204, 2002/03/29 18:23:50 | version 1.205, 2002/04/03 17:44:50 |
|---|---|
| Line 137 sub subreply { | Line 137 sub subreply { |
| sub reply { | sub reply { |
| my ($cmd,$server)=@_; | my ($cmd,$server)=@_; |
| unless (defined($hostname{$server})) { return 'no_such_host'; } | |
| my $answer=subreply($cmd,$server); | my $answer=subreply($cmd,$server); |
| if ($answer eq 'con_lost') { | if ($answer eq 'con_lost') { |
| sleep 5; | sleep 5; |