loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.310, 2002/12/06 12:55:44	version 1.311, 2002/12/06 16:34:55
Line 143 sub reply {	Line 143 sub reply {
unless (defined($hostname{$server})) { return 'no_such_host'; }	unless (defined($hostname{$server})) { return 'no_such_host'; }
my $answer=subreply($cmd,$server);	my $answer=subreply($cmd,$server);
if ($answer eq 'con_lost') {	if ($answer eq 'con_lost') {
sleep 5;	#sleep 5;
$answer=subreply($cmd,$server);	#$answer=subreply($cmd,$server);
#if ($answer eq 'con_lost') {	#if ($answer eq 'con_lost') {
# &logthis("Second attempt con_lost on $server");	# &logthis("Second attempt con_lost on $server");
# my $peerfile="$perlvar{'lonSockDir'}/$server";	# my $peerfile="$perlvar{'lonSockDir'}/$server";
# my $client=IO::Socket::UNIX->new(Peer =>"$peerfile",	# my $client=IO::Socket::UNIX->new(Peer =>"$peerfile",