From 5d547f0985ae48e9a9b160d6df987633fe1fa3c0 Mon Sep 17 00:00:00 2001
From: ligc <liguangc@cn.ibm.com>
Date: Wed, 31 Jul 2013 16:23:43 +0800
Subject: [PATCH] fix for bug 4239: do not use ip command on AIX

---
 perl-xCAT/xCAT/InstUtils.pm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)
 mode change 100644 => 100755 perl-xCAT/xCAT/InstUtils.pm

diff --git a/perl-xCAT/xCAT/InstUtils.pm b/perl-xCAT/xCAT/InstUtils.pm
old mode 100644
new mode 100755
index e227950db..c43caa420
--- a/perl-xCAT/xCAT/InstUtils.pm
+++ b/perl-xCAT/xCAT/InstUtils.pm
@@ -217,7 +217,17 @@ sub is_me
     #my ($b1, $b2, $b3, $b4) = split /\./, $nameIP;
 
     # get all the possible IPs for the node I'm running on
-    my $ipcmd = "ip addr | grep 'inet'";
+    # this is a common subroutine for both AIX and Linux,
+    # AIX does not have ip command
+    my $ipcmd;
+    if ( -f "/sbin/ip" )
+    {
+        $ipcmd = "ip addr | grep 'inet'";
+    }
+    else
+    {
+        $ipcmd = "ifconfig -a | grep 'inet'";
+    }
     my $result = xCAT::Utils->runcmd($ipcmd, -1, 1);
     if ($::RUNCMD_RC != 0)
     {