loncom/lonc - diff

Return to lonc CVS log

Up to [LON-CAPA] / loncom

version 1.45, 2003/02/03 18:03:52	version 1.46, 2003/02/07 22:22:01
Line 325 tie %ready, 'Tie::RefHash';	Line 325 tie %ready, 'Tie::RefHash';

# Main loop: check reads/accepts, check writes, check ready to process	# Main loop: check reads/accepts, check writes, check ready to process

status("Main loop");	status("Main loop $conserver");
while (1) {	while (1) {
my $client;	my $client;
my $rv;	my $rv;
Line 365 while (1) {	Line 365 while (1) {
}	}
$servers{$client->fileno} = $client;	$servers{$client->fileno} = $client;
nonblock($client);	nonblock($client);
	$client->sockopt(SO_KEEPALIVE, 1);# Enable monitoring of
	# connection liveness.
}	}
HandleInput($infdset, \%servers, \%inbuffer, \%outbuffer, \%ready);	HandleInput($infdset, \%servers, \%inbuffer, \%outbuffer, \%ready);
HandleOutput($outfdset, \%servers, \%outbuffer, \%inbuffer,	HandleOutput($outfdset, \%servers, \%outbuffer, \%inbuffer,
Line 700 sub openremote {	Line 702 sub openremote {

my $conserver=shift;	my $conserver=shift;

&status("Opening TCP");	&status("Opening TCP $conserver");
my $st=120+int(rand(240)); # Sleep before opening:	my $st=120+int(rand(240)); # Sleep before opening:

unless (	unless (
Line 740 if ($answer ne 'ok') {	Line 742 if ($answer ne 'ok') {
}	}

sleep 5;	sleep 5;
&status("Ponging");	&status("Ponging $conserver");
print $remotesock "pong\n";	print $remotesock "pong\n";
$answer=<$remotesock>;	$answer=<$remotesock>;
chomp($answer);	chomp($answer);