loncom/loncnew - diff

Return to loncnew CVS log

Up to [LON-CAPA] / loncom

version 1.47, 2004/06/01 10:02:13	version 1.48, 2004/06/17 10:15:46
Line 232 sub SocketDump {	Line 232 sub SocketDump {
my ($level, $socket) = @_;	my ($level, $socket) = @_;

if($level <= $DebugLevel) {	if($level <= $DebugLevel) {
$socket->Dump();	$socket->Dump(-1); # Ensure it will get dumped.
}	}
}	}

Line 265 sub SocketTimeout {	Line 265 sub SocketTimeout {
my $Socket = shift;	my $Socket = shift;
Log("WARNING", "A socket timeout was detected");	Log("WARNING", "A socket timeout was detected");
Debug(0, " SocketTimeout called: ");	Debug(0, " SocketTimeout called: ");
$Socket->Dump();	$Socket->Dump(0);
if(exists($ActiveTransactions{$Socket})) {	if(exists($ActiveTransactions{$Socket})) {
FailTransaction($ActiveTransactions{$Socket});	FailTransaction($ActiveTransactions{$Socket});
}	}
Line 1441 sub ChildStatus {	Line 1441 sub ChildStatus {
my $state = $Socket->GetState();	my $state = $Socket->GetState();
print $fh "Connection $i State: $state\n";	print $fh "Connection $i State: $state\n";
print STDERR "---------------------- Connection $i \n";	print STDERR "---------------------- Connection $i \n";
$Socket->Dump();	$Socket->Dump(-1); # Ensure it gets dumped..
$i++;	$i++;
}	}
}	}