--- loncom/lond 2002/02/07 10:17:00 1.69 +++ loncom/lond 2002/02/07 10:22:44 1.70 @@ -2,7 +2,7 @@ # The LearningOnline Network # lond "LON Daemon" Server (port "LOND" 5663) # -# $Id: lond,v 1.69 2002/02/07 10:17:00 harris41 Exp $ +# $Id: lond,v 1.70 2002/02/07 10:22:44 harris41 Exp $ # # Copyright Michigan State University Board of Trustees # @@ -136,7 +136,7 @@ open (CONFIG,"$perlvar{'lonTabDir'}/host while ($configline=) { my ($id,$domain,$role,$name,$ip)=split(/:/,$configline); - chomp($ip); $ip=~s/\D+$//g; + chomp($ip); $ip=~s/\D+$//; $hostid{$ip}=$id; if ($id eq $perlvar{'lonHostID'}) { $thisserver=$name; } $PREFORK++;