From 7692a7ed1bcde08992d6321a8eb7eef9a4aae91b Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 18 Feb 2008 20:11:02 +0000
Subject: [PATCH] Don't support Power4 HMCs (Regatta and under) - Line #682

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

diff --git a/perl-xCAT-2.0/xCAT/PPCcli.pm b/perl-xCAT-2.0/xCAT/PPCcli.pm
index 0d9582008..8984a9fe6 100644
--- a/perl-xCAT-2.0/xCAT/PPCcli.pm
+++ b/perl-xCAT-2.0/xCAT/PPCcli.pm
@@ -676,6 +676,14 @@ sub lshmc {
     my @values;
     my $vpd = join( ",", @$result );
 
+    #####################################
+    # Power4 (and below) HMCs unsupported
+    #####################################
+    if ( $vpd =~ /\*RM V(\d+)/ ) {
+        if ( $1 <= 5 ) {
+            return( [RC_ERROR,"Command not supported on V$1 HMC"] );
+        }
+    }
     #####################################
     # Type-Model may be in the formats:
     #  "eserver xSeries 336 -[7310CR3]-"