From b7054d05454ec1e69c8ebd659b339b7afa60d830 Mon Sep 17 00:00:00 2001
From: daniceexi <daniceexi@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 18 Aug 2010 01:34:22 +0000
Subject: [PATCH] defect 3041747: IO::Socket::INET->new has problem to handle
 the hostname, use the IP to replace. And added the retry for update state

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7116 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT/postscripts/xcataixpost | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/xCAT/postscripts/xcataixpost b/xCAT/postscripts/xcataixpost
index 4278eeab8..85fdb9b07 100755
--- a/xCAT/postscripts/xcataixpost
+++ b/xCAT/postscripts/xcataixpost
@@ -445,10 +445,19 @@ sub  updateflag {
     my $state="booted";
  
     my $port = "3002";
-    my $remote = IO::Socket::INET->new( Proto => "tcp", PeerAddr  => $servnode, PeerPort  => $port, );
+    my $servip = `host $servnode | awk '{print \$3}'`;
+    chomp($servip);
+    my $remote = IO::Socket::INET->new( Proto => "tcp", PeerAddr  => $servip, PeerPort  => $port, Timeout => 0);
+
+    my $try = 10;
+    while (!$remote && $try-- > 0) {
+        sleep 1;
+        $remote = IO::Socket::INET->new( Proto => "tcp", PeerAddr  => $servip, PeerPort  => $port, Timeout => 0);
+        print $::LOG_FILE "$::sdate  xcataixpost: Cannot connect to host \'$servip\'\n";
+    }
     unless ($remote) { 
-        print "$::sdate  xcataixpost: Cannot connect to host \'$servnode\'\n";
-        print $::LOG_FILE "$::sdate  xcataixpost: Cannot connect to host \'$servnode\'\n";
+        print "$::sdate  xcataixpost: Cannot connect to host \'$servip\'\n";
+        print $::LOG_FILE "$::sdate  xcataixpost: Cannot connect to host \'$servip\'\n";
 	return 1;
     }
     $remote->autoflush(1);