loncom/loncnew - diff

Return to loncnew CVS log

Up to [LON-CAPA] / loncom

version 1.32, 2003/11/21 19:27:18	version 1.34, 2003/12/11 23:18:37
Line 305 sub Tick {	Line 305 sub Tick {
my $Socket = $ActiveTransactions{$item}->getServer();	my $Socket = $ActiveTransactions{$item}->getServer();
$Socket->Tick();	$Socket->Tick();
}	}
	foreach my $item (keys %ActiveConnections) {
	my $State = $ActiveConnections{$item}->data->GetState();
	if ($State ne 'Idle' && $State ne 'SendingRequest' &&
	$State ne 'ReceivingReply') {
	Debug(5,"Ticking Socket $State $item");
	$ActiveConnections{$item}->data->Tick();
	}
	}
# Do we have work in the queue, but no connections to service them?	# Do we have work in the queue, but no connections to service them?
# If so, try to make some new connections to get things going again.	# If so, try to make some new connections to get things going again.
#	#
Line 350 Trigger disconnections of idle sockets.	Line 358 Trigger disconnections of idle sockets.

sub SetupTimer {	sub SetupTimer {
Debug(6, "SetupTimer");	Debug(6, "SetupTimer");
Event->timer(interval => 1, debug => 1, cb => \&Tick );	Event->timer(interval => 1, cb => \&Tick );
}	}

=pod	=pod