From 4de6fcf10b6de4977bbd5f0458f225d985bbad4d Mon Sep 17 00:00:00 2001
From: ligc <ligc@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 12 May 2010 02:30:25 +0000
Subject: [PATCH] ipv6 fix, replace the Socket library calls with NetworkUtils
 subroutines

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@6064 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Utils.pm | 35 +++++++++++++++++++++++++++--------
 1 file changed, 27 insertions(+), 8 deletions(-)

diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index 189a3f0bf..addef50bf 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -3050,23 +3050,42 @@ sub gethost_ips
         my @ip;
         if (xCAT::Utils->isLinux())
         {
-            my ($inet, $addr1, $Bcast, $Mask) = split(" ", $addr);
-            @ip = split(":", $addr1);
-            push @ipaddress, $ip[1];
+            if ($addr =~ /inet6/)
+            {
+               #TODO, Linux ipv6 
+            }
+            else
+            {
+                my ($inet, $addr1, $Bcast, $Mask) = split(" ", $addr);
+                @ip = split(":", $addr1);
+                push @ipaddress, $ip[1];
+            }
         }
         else
         {    #AIX
-            my ($inet, $addr1, $netmask, $mask1, $Bcast, $bcastaddr) =
-              split(" ", $addr);
-            push @ipaddress, $addr1;
+            if ($addr =~ /inet6/)
+            {
+               $addr =~ /\s*inet6\s+([\da-fA-F:]+).*\/(\d+)/;
+               my $v6ip = $1;
+               my $v6mask = $2;
+               if ($v6ip)
+               {
+                   push @ipaddress, $v6ip;
+               }
+            }
+            else
+            {
+                my ($inet, $addr1, $netmask, $mask1, $Bcast, $bcastaddr) =
+                  split(" ", $addr);
+                push @ipaddress, $addr1;
+            }
 
         }
     }
     my @names = @ipaddress;
     foreach my $ipaddr (@names)
     {
-        my $packedaddr = inet_aton($ipaddr);
-        my $hostname = gethostbyaddr($packedaddr, AF_INET);
+        my $hostname = xCAT::NetworkUtils->gethostname($ipaddr);
         if ($hostname)
         {
             my @shorthost = split(/\./, $hostname);