|
version 1.28, 2004/03/02 14:57:40
|
version 1.29, 2004/03/02 22:38:07
|
|
Line 308 sub Readable {
|
Line 308 sub Readable {
|
| |
|
| &Debug(9,"Received from host: ".$data); |
&Debug(9,"Received from host: ".$data); |
| $self->{TransactionReply} .= $data; |
$self->{TransactionReply} .= $data; |
| if($self->{TransactionReply} =~ /(.*\n)/) { |
if($self->{TransactionReply} =~ m/\n$/) { |
| &Debug(8,"Readable End of line detected"); |
&Debug(8,"Readable End of line detected"); |
| if ($self->{State} eq "Initialized") { # We received the challenge: |
if ($self->{State} eq "Initialized") { # We received the challenge: |
| if($self->{TransactionReply} eq "refused\n") { # Remote doesn't have |
if($self->{TransactionReply} eq "refused\n") { # Remote doesn't have |
![[BACK]](/icons/back.gif){kind=icon}
Return to LondConnection.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom