loncom/lond - diff

Return to lond CVS log

Up to [LON-CAPA] / loncom

version 1.69, 2002/02/07 10:17:00	version 1.70, 2002/02/07 10:22:44
Line 136 open (CONFIG,"$perlvar{'lonTabDir'}/host	Line 136 open (CONFIG,"$perlvar{'lonTabDir'}/host

while ($configline=<CONFIG>) {	while ($configline=<CONFIG>) {
my ($id,$domain,$role,$name,$ip)=split(/:/,$configline);	my ($id,$domain,$role,$name,$ip)=split(/:/,$configline);
chomp($ip); $ip=~s/\D+$//g;	chomp($ip); $ip=~s/\D+$//;
$hostid{$ip}=$id;	$hostid{$ip}=$id;
if ($id eq $perlvar{'lonHostID'}) { $thisserver=$name; }	if ($id eq $perlvar{'lonHostID'}) { $thisserver=$name; }
$PREFORK++;	$PREFORK++;