[LON-CAPA-cvs] cvs: loncom / lond

[albertel]

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;