loncom/loncnew - diff

Return to loncnew CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/loncnew between versions 1.34 and 1.36

version 1.34, 2003/12/11 23:18:37	version 1.36, 2003/12/15 23:30:57
Line 210 sub GetPeername {	Line 210 sub GetPeername {
return $peerfile;	return $peerfile;
}	}
}	}
#----------------------------- Timer management ------------------------
=pod	=pod

=head2 Debug	=head2 Debug
Line 267 sub SocketTimeout {	Line 266 sub SocketTimeout {
# a connection failure:	# a connection failure:
$ConnectionRetriesLeft--;	$ConnectionRetriesLeft--;
}	}
	#----------------------------- Timer management ------------------------

=pod	=pod

Line 301 sub Tick {	Line 301 sub Tick {
#	#
# For each inflight transaction, tick down its timeout counter.	# For each inflight transaction, tick down its timeout counter.
#	#
foreach my $item (keys %ActiveTransactions) {
my $Socket = $ActiveTransactions{$item}->getServer();
$Socket->Tick();
}
foreach my $item (keys %ActiveConnections) {	foreach my $item (keys %ActiveConnections) {
my $State = $ActiveConnections{$item}->data->GetState();	my $State = $ActiveConnections{$item}->data->GetState();
if ($State ne 'Idle' && $State ne 'SendingRequest' &&	if ($State ne 'Idle') {
$State ne 'ReceivingReply') {
Debug(5,"Ticking Socket $State $item");	Debug(5,"Ticking Socket $State $item");
$ActiveConnections{$item}->data->Tick();	$ActiveConnections{$item}->data->Tick();
}	}
Line 661 sub KillSocket {	Line 657 sub KillSocket {
delete($ActiveConnections{$Socket});	delete($ActiveConnections{$Socket});
}	}
$ConnectionCount--;	$ConnectionCount--;
	if ($ConnectionCount < 0) { $ConnectionCount = 0; }
# If the connection count has gone to zero and there is work in the	# If the connection count has gone to zero and there is work in the
# work queue, the work all gets failed with con_lost.	# work queue, the work all gets failed with con_lost.
#	#

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.34
changed lines
	Added in v.1.36