loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.363, 2007/03/28 00:05:38	version 1.364, 2007/03/28 20:28:29
Line 5310 sub reconlonc {	Line 5310 sub reconlonc {
}	}

sub create_connection {	sub create_connection {
my ($server) = @_;	my ($hostname,$lonid) = @_;
my $client=IO::Socket::UNIX->new(Peer => $perlvar{'lonSockCreate'},	my $client=IO::Socket::UNIX->new(Peer => $perlvar{'lonSockCreate'},
Type => SOCK_STREAM,	Type => SOCK_STREAM,
Timeout => 10);	Timeout => 10);
return 0 if (!$client);	return 0 if (!$client);
print $client ("$server\n");	print $client ("$hostname:$lonid\n");
my $result = <$client>;	my $result = <$client>;
chomp($result);	chomp($result);
return 1 if ($result eq 'done');	return 1 if ($result eq 'done');
Line 5335 sub subreply {	Line 5335 sub subreply {
if($sclient) {	if($sclient) {
last; # Connected!	last; # Connected!
} else {	} else {
&create_connection($hostname{$server});	&create_connection($hostname{$server},$server);
}	}
sleep(1); # Try again later if failed connection.	sleep(1); # Try again later if failed connection.
}	}