loncom/LondConnection.pm - diff

Return to LondConnection.pm CVS log

Up to [LON-CAPA] / loncom

version 1.17, 2003/11/04 11:22:48	version 1.19, 2003/12/08 20:32:17
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
	# there's no cost for failure.
$socket->shutdown(2);	$socket->shutdown(2);
}	}