loncom/loncnew - diff

Return to loncnew CVS log

Up to [LON-CAPA] / loncom

Diff for /loncom/loncnew between versions 1.48 and 1.49

version 1.48, 2004/06/17 10:15:46	version 1.49, 2004/06/17 22:37:06
Line 103 my $RecentLogEntry = "";	Line 103 my $RecentLogEntry = "";
my $ConnectionRetries=2; # Number of connection retries allowed.	my $ConnectionRetries=2; # Number of connection retries allowed.
my $ConnectionRetriesLeft=2; # Number of connection retries remaining.	my $ConnectionRetriesLeft=2; # Number of connection retries remaining.
my $LondVersion = "unknown"; # Version of lond we talk with.	my $LondVersion = "unknown"; # Version of lond we talk with.
	my $KeyMode = ""; # e.g. ssl, local, insecure from last connect.

#	#
# The hash below gives the HTML format for log messages	# The hash below gives the HTML format for log messages
Line 292 sub Tick {	Line 293 sub Tick {
my $client;	my $client;
if($ConnectionRetriesLeft > 0) {	if($ConnectionRetriesLeft > 0) {
ShowStatus(GetServerHost()." Connection count: ".$ConnectionCount	ShowStatus(GetServerHost()." Connection count: ".$ConnectionCount
." Retries remaining: ".$ConnectionRetriesLeft);	." Retries remaining: ".$ConnectionRetriesLeft
	." ($KeyMode)");
} else {	} else {
ShowStatus(GetServerHost()." >> DEAD <<");	ShowStatus(GetServerHost()." >> DEAD <<");
}	}
Line 347 sub Tick {	Line 349 sub Tick {
}	}

}	}
	if ($ConnectionCount == 0) {
	$KeyMode = "";
	}
}	}

=pod	=pod
Line 387 long enough, it will be shut down and re	Line 392 long enough, it will be shut down and re

sub ServerToIdle {	sub ServerToIdle {
my $Socket = shift; # Get the socket.	my $Socket = shift; # Get the socket.
	$KeyMode = $Socket->{AuthenticationMode};
delete($ActiveTransactions{$Socket}); # Server has no transaction	delete($ActiveTransactions{$Socket}); # Server has no transaction

&Debug(5, "Server to idle");	&Debug(5, "Server to idle");

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

Removed from v.1.48
changed lines
	Added in v.1.49