--- loncom/lonnet/perl/lonnet.pm 2007/04/03 00:48:33 1.856 +++ loncom/lonnet/perl/lonnet.pm 2007/04/03 00:49:14 1.857 @@ -1,7 +1,7 @@ # The LearningOnline Network # TCP networking package # -# $Id: lonnet.pm,v 1.856 2007/04/03 00:48:33 albertel Exp $ +# $Id: lonnet.pm,v 1.857 2007/04/03 00:49:14 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -7778,7 +7778,6 @@ sub get_dns { if (exists($lonid_to_ip{$lonid})) { return $lonid_to_ip{$lonid}; } - &logthis(" looking ip $lonid ...."); my $name=&hostname($lonid); my $ip = gethostbyname($name); return if (!$ip || length($ip) ne 4); @@ -7790,7 +7789,6 @@ sub get_dns { sub get_iphost { if (%iphost) { return %iphost; } - &logthis(" getting ips ...."); my %hostname = &all_hostnames(); foreach my $id (keys(%hostname)) { my $name=$hostname{$id};