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 |