loncom/loncnew - diff

Return to loncnew CVS log

Up to [LON-CAPA] / loncom

version 1.89, 2010/06/14 13:29:27	version 1.90, 2010/12/20 11:15:51
Line 761 sub KillSocket {	Line 761 sub KillSocket {
delete ($ActiveTransactions{$Socket});	delete ($ActiveTransactions{$Socket});
}	}
if(exists($ActiveConnections{$Socket})) {	if(exists($ActiveConnections{$Socket})) {
	$ActiveConnections{$Socket}->cancel;
delete($ActiveConnections{$Socket});	delete($ActiveConnections{$Socket});
$ConnectionCount--;	$ConnectionCount--;
if ($ConnectionCount < 0) { $ConnectionCount = 0; }	if ($ConnectionCount < 0) { $ConnectionCount = 0; }
Line 772 sub KillSocket {	Line 773 sub KillSocket {
EmptyQueue();	EmptyQueue();
CloseAllLondConnections; # Should all already be closed but...	CloseAllLondConnections; # Should all already be closed but...
}	}
	UpdateStatus();
}	}

=pod	=pod
Line 1206 sub MakeLondConnection {	Line 1208 sub MakeLondConnection {
&GetServerPort(),	&GetServerPort(),
&GetHostId());	&GetHostId());

if($Connection eq undef) { # Needs to be more robust later.	if($Connection eq undef) {
Log("CRITICAL","Failed to make a connection with lond.");	Log("CRITICAL","Failed to make a connection with lond.");
$ConnectionRetriesLeft--;	$ConnectionRetriesLeft--;
return 0; # Failure.	return 0; # Failure.