loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.251, 2002/07/04 15:56:17	version 1.252, 2002/07/17 18:01:33
Line 2948 BEGIN {	Line 2948 BEGIN {
while (my $configline=<$config>) {	while (my $configline=<$config>) {
chomp($configline);	chomp($configline);
my ($id,$domain,$role,$name,$ip,$domdescr)=split(/:/,$configline);	my ($id,$domain,$role,$name,$ip,$domdescr)=split(/:/,$configline);
$hostname{$id}=$name;	if ($id && $domain && $role && $name && $ip) {
$hostdom{$id}=$domain;	$hostname{$id}=$name;
$hostip{$id}=$ip;	$hostdom{$id}=$domain;
if ($domdescr) {	$hostip{$id}=$ip;
$domaindescription{$domain}=$domdescr;	if ($domdescr) { $domaindescription{$domain}=$domdescr; }
	if ($role eq 'library') { $libserv{$id}=$name; }
	} else {
	if ($configline) {
	&logthis("Skipping hosts.tab line -$configline-");
	}
}	}
if ($role eq 'library') { $libserv{$id}=$name; }
}	}
}	}