From 4e85065eb5e24506ee2753d3076411ab002a01d8 Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Wed, 14 May 2008 14:57:37 +0000
Subject: [PATCH] Added "ifconfig -a" for AIX inplace of "ip addr" for Linux.
 "ip" command is not available on AIX

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1387 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server-2.0/sbin/xcatd | 24 +++++++++++++++---------
 1 file changed, 15 insertions(+), 9 deletions(-)

diff --git a/xCAT-server-2.0/sbin/xcatd b/xCAT-server-2.0/sbin/xcatd
index d80ca4e63..611dd41b4 100755
--- a/xCAT-server-2.0/sbin/xcatd
+++ b/xCAT-server-2.0/sbin/xcatd
@@ -891,21 +891,27 @@ sub dispatch_request {
 
 sub thishostisnot {
   my $comparison = shift;
-  my @ips = split /\n/,`/sbin/ip addr`;
+
+  # use "ip addr" for linux, since ifconfig 
+  # doesn't list "ip addr add" aliases for linux
+  # 
+  my $cmd = ($^O !~ /^aix/i) ? "/sbin/ip addr" : "ifconfig -a";
+  my @ips = split /\n/,`$cmd`;
   my $comp=inet_aton($comparison);
-  foreach (@ips) { 
+  foreach (@ips) {
     if (/^\s*inet/) {
-	my @ents = split(/\s+/);
-	my $ip=$ents[2];
-	$ip =~ s/\/.*//;
-	if (inet_aton($ip) eq $comp) { 
-	  return 0;
-	}
-	#print Dumper(inet_aton($ip));
+      my @ents = split(/\s+/);
+      my $ip=$ents[2];
+      $ip =~ s/\/.*//;
+      if (inet_aton($ip) eq $comp) {
+        return 0;
+      }
+      #print Dumper(inet_aton($ip));
     }
   }
   return 1;
 }
+
 sub do_request {
   my $req = shift;
   my $second = shift;