version 1.18, 2003/12/02 10:38:40
|
version 1.20, 2003/12/11 23:16:06
|
Line 129 sub Dump {
|
Line 129 sub Dump {
|
my $value; |
my $value; |
print "Dumping LondConnectionObject:\n"; |
print "Dumping LondConnectionObject:\n"; |
while(($key, $value) = each %$self) { |
while(($key, $value) = each %$self) { |
print STDERR "$key -> $value\n"; |
print "$key -> $value\n"; |
} |
} |
print "-------------------------------\n"; |
print "-------------------------------\n"; |
} |
} |
Line 562 Shuts down the socket.
|
Line 562 Shuts down the socket.
|
sub Shutdown { |
sub Shutdown { |
my $self = shift; |
my $self = shift; |
my $socket = $self->GetSocket(); |
my $socket = $self->GetSocket(); |
$socket->send("exit\n", 0); # Ask lond to exit too. Non blocking so |
Debug(5,"socket is -$socket-"); |
# there's no cost for failure. |
if ($socket) { |
$socket->shutdown(2); |
# Ask lond to exit too. Non blocking so |
|
# there is no cost for failure. |
|
eval { |
|
$socket->send("exit\n", 0); |
|
$socket->shutdown(2); |
|
} |
|
} |
} |
} |
|
|
=pod |
=pod |