loncom/loncron - diff

Return to loncron CVS log

Up to [LON-CAPA] / loncom

version 1.54, 2005/01/02 18:57:06	version 1.56, 2005/02/09 20:41:29
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++;
Line 633 sub main () {	Line 633 sub main () {
my (%hostname,%hostdom,%hostrole,%spareid);	my (%hostname,%hostdom,%hostrole,%spareid);
while (my $configline=<$config>) {	while (my $configline=<$config>) {
next if ($configline =~ /^(\#\|\s*\$)/);	next if ($configline =~ /^(\#\|\s*\$)/);
my ($id,$domain,$role,$name,$ip,$domdescr)=split(/:/,$configline);	my ($id,$domain,$role,$name)=split(/:/,$configline);
if ($id && $domain && $role && $name && $ip) {	if ($id && $domain && $role && $name) {
	$name=~s/\s//g;
$hostname{$id}=$name;	$hostname{$id}=$name;
$hostdom{$id}=$domain;	$hostdom{$id}=$domain;
$hostrole{$id}=$role;	$hostrole{$id}=$role;