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.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->shutdown(2);	Debug(5,"socket is -$socket-");
	if ($socket) {
	# 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