[LON-CAPA-cvs] cvs: loncom / lond
albertel
lon-capa-cvs@mail.lon-capa.org
Thu, 17 Feb 2005 08:57:51 -0000
albertel Thu Feb 17 03:57:51 2005 EDT
Modified files:
/loncom lond
Log:
- cleaner call to gethostbyname
Index: loncom/lond
diff -u loncom/lond:1.278 loncom/lond:1.279
--- loncom/lond:1.278 Tue Feb 8 12:58:42 2005
+++ loncom/lond Thu Feb 17 03:57:51 2005
@@ -2,7 +2,7 @@
# The LearningOnline Network
# lond "LON Daemon" Server (port "LOND" 5663)
#
-# $Id: lond,v 1.278 2005/02/08 17:58:42 albertel Exp $
+# $Id: lond,v 1.279 2005/02/17 08:57:51 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -58,7 +58,7 @@
my $status='';
my $lastlog='';
-my $VERSION='$Revision: 1.278 $'; #' stupid emacs
+my $VERSION='$Revision: 1.279 $'; #' stupid emacs
my $remoteVERSION;
my $currenthostid="default";
my $currentdomainid;
@@ -4282,7 +4282,7 @@
if ($configline !~ /^\s*\#/ && $configline !~ /^\s*$/ ) {
my ($id,$domain,$role,$name)=split(/:/,$configline);
$name=~s/\s//g;
- my (undef,undef,undef,undef,$ip) = gethostbyname($name);
+ my $ip = gethostbyname($name);
if (length($ip) ne 4) {
&logthis("Skipping host $id name $name no IP $ip found\n");
next;