From e74645de774ab58a0effb8f22cb13a26e0d9e300 Mon Sep 17 00:00:00 2001
From: ligc <ligc@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 12 May 2010 02:39:41 +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@6066 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/Utils.pm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/perl-xCAT/xCAT/Utils.pm b/perl-xCAT/xCAT/Utils.pm
index addef50bf..34135b062 100644
--- a/perl-xCAT/xCAT/Utils.pm
+++ b/perl-xCAT/xCAT/Utils.pm
@@ -3038,7 +3038,7 @@ sub gethost_ips
     my $cmd;
     my @ipaddress;
     $cmd = "ifconfig" . " -a";
-    $cmd = $cmd . "| grep \"inet \"";
+    $cmd = $cmd . "| grep \"inet\"";
     my @result = xCAT::Utils->runcmd($cmd, 0);
     if ($::RUNCMD_RC != 0)
     {
@@ -4315,6 +4315,7 @@ sub CheckVersion
 =head3   getFacingIP
        Gets the ip address of the adapter of the localhost that is facing the
     the given node.
+       Assume it is the same as my_ip_facing...
     Arguments:
        The name of the node that is facing the localhost.
     Returns:
@@ -5319,7 +5320,7 @@ sub getNodeNetworkCfg
     my $node = shift;
 
     my $nets = xCAT::Utils::my_nets();
-    my $ip   = inet_ntoa(inet_aton($node));
+    my $ip   = xCAT::NetworkUtils->getipaddr($node);
     my $mask = undef;
     for my $net (keys %$nets)
     {