From 25ab309d45ecdb3e1689fb6361a205b6b5cfed0a Mon Sep 17 00:00:00 2001
From: lissav <lissav@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 18 Jan 2010 19:45:31 +0000
Subject: [PATCH]  fix for defect 2932537  add check for no ipaddress returned
 and for an ip address that starts with 127.0.0

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@4966 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/sbin/xcatconfig | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/xCAT-server/sbin/xcatconfig b/xCAT-server/sbin/xcatconfig
index a9d683c75..e70b500dd 100644
--- a/xCAT-server/sbin/xcatconfig
+++ b/xCAT-server/sbin/xcatconfig
@@ -810,7 +810,23 @@ sub initDB
     my ($name, $aliases, $addrtype, $length, @addrs) = gethostbyname($hname);
     if ($? == 0)
     {
-        $master = inet_ntoa($addrs[0]);
+        my $len= scalar(@addrs);
+        if ($len > 0 ) {   # we got some ip addresses
+           for (my $i = 0 ; $i < $len ; $i++){           
+             my @ipaddr=inet_ntoa($addrs[$i]);
+             if (!grep(/127.0.0/, @ipaddr)) {
+                $master = inet_ntoa($addrs[$i]);
+                last;
+             }
+           }
+           if (!defined($master)) {
+            xCAT::MsgUtils->message("E", "Hostname resolution for $hname failed.");
+            $master = "NORESOLUTION";
+           } 
+        } else {
+          xCAT::MsgUtils->message("E", "Hostname resolution for $hname failed.");
+          $master = "NORESOLUTION";
+        }
     }
     else
     {