From dcd5e5d318a4aed028fec5fa81e1226357ac6d1b Mon Sep 17 00:00:00 2001 From: ligc Date: Mon, 10 May 2010 09:16:24 +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@6044 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- xCAT-server/lib/xcat/plugins/sles.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/xCAT-server/lib/xcat/plugins/sles.pm b/xCAT-server/lib/xcat/plugins/sles.pm index f036ec474..63aaafa66 100644 --- a/xCAT-server/lib/xcat/plugins/sles.pm +++ b/xCAT-server/lib/xcat/plugins/sles.pm @@ -10,6 +10,7 @@ use Sys::Syslog; use File::Temp qw/tempdir/; use xCAT::Table; use xCAT::Utils; +use xCAT::NetworkUtils; use xCAT::SvrUtils; use xCAT::MsgUtils; use Data::Dumper; @@ -336,7 +337,7 @@ sub mknetboot #BEGIN service node my $isSV = xCAT::Utils->isServiceNode(); my $res = xCAT::Utils->runcmd("hostname", 0); - my $sip = inet_ntoa(inet_aton($res)); # this is the IP of service node + my $sip = xCAT::NetworkUtils->getipaddr($res); # this is the IP of service node if($isSV and (($xcatmaster eq $sip) or ($xcatmaster eq $res))) { # if the NFS directory in litetree is on the service node, # and it is not exported, then it will be mounted automatically