loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.54, 2005/01/02 18:57:06	version 1.55, 2005/01/20 16:27:40
Line 463 sub test_connections {	Line 463 sub test_connections {
foreach my $tryserver (sort(keys(%{$hostname}))) {	foreach my $tryserver (sort(keys(%{$hostname}))) {
print(".");	print(".");
my $result;	my $result;
my $answer=reply("pong",$tryserver);	my $answer=reply("ping",$tryserver);
if ($answer eq "$tryserver:$perlvar{'lonHostID'}") {	if ($answer eq "$tryserver:$perlvar{'lonHostID'}") {
$result="<b>ok</b>";	$result="<b>ok</b>";
$good++;	$good++;