version 1.12, 2003/10/07 11:23:26
|
version 1.13, 2003/10/27 10:09:37
|
Line 167 sub new {
|
Line 167 sub new {
|
PeerPort => $self->{Port}, |
PeerPort => $self->{Port}, |
Type => SOCK_STREAM, |
Type => SOCK_STREAM, |
Proto => "tcp", |
Proto => "tcp", |
Timeout => 5)) { |
Timeout => 3)) { |
return undef; # Inidicates the socket could not be made. |
return undef; # Inidicates the socket could not be made. |
} |
} |
# |
# |
Line 286 sub Readable {
|
Line 286 sub Readable {
|
$key=substr($key,0,32); |
$key=substr($key,0,32); |
my $cipherkey=pack("H32",$key); |
my $cipherkey=pack("H32",$key); |
$self->{Cipher} = new IDEA $cipherkey; |
$self->{Cipher} = new IDEA $cipherkey; |
if($self->{Cipher} == undef) { |
if($self->{Cipher} eq undef) { |
$self->Transition("Disconnected"); |
$self->Transition("Disconnected"); |
$socket->close(); |
$socket->close(); |
return -1; |
return -1; |