From 9172f4f82a6a6131fe5b8307f5c6ba827b1c9587 Mon Sep 17 00:00:00 2001
From: sakolish <sakolish@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 23 Jun 2008 16:41:15 +0000
Subject: [PATCH] Added "-f" flag to getmacs (force LPAR shutdown)

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

diff --git a/perl-xCAT/xCAT/PPCmac.pm b/perl-xCAT/xCAT/PPCmac.pm
index 686f0108a..86bccfbc1 100644
--- a/perl-xCAT/xCAT/PPCmac.pm
+++ b/perl-xCAT/xCAT/PPCmac.pm
@@ -41,7 +41,7 @@ sub parse_args {
     $Getopt::Long::ignorecase = 0;
     Getopt::Long::Configure( "bundling" );
 
-    if ( !GetOptions( \%opt,qw(h|help V|Verbose v|version C=s G=s S=s d))) { 
+    if ( !GetOptions( \%opt,qw(h|help V|Verbose v|version C=s G=s S=s d f))) { 
         return( usage() );
     }
     ####################################
@@ -182,6 +182,12 @@ sub ivm_getmacs {
         $cmd.= " -v -x";
     }
     #######################################
+    # Force LPAR shutdown
+    #######################################
+    if ( exists( $opt->{f} )) {
+        $cmd.= " -i";
+    }
+    #######################################
     # Network specified (-D ping test)
     #######################################
     if ( exists( $opt->{S} )) {