From d266a464d8d064a1d854549bebc3c9162d7e3085 Mon Sep 17 00:00:00 2001
From: yinle <yinle@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 8 Mar 2012 05:18:32 +0000
Subject: [PATCH] Fix bug  3491699: rnetboot "-V" issue

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@11789 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/PPCboot.pm | 15 +++++++++++++--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/perl-xCAT/xCAT/PPCboot.pm b/perl-xCAT/xCAT/PPCboot.pm
index 61bb55a9c..6237e5170 100644
--- a/perl-xCAT/xCAT/PPCboot.pm
+++ b/perl-xCAT/xCAT/PPCboot.pm
@@ -45,7 +45,7 @@ sub parse_args {
     $Getopt::Long::ignorecase = 0;
     Getopt::Long::Configure( "bundling" );
 
-    if ( !GetOptions( \%opt, qw(h|help V|Verbose v|version I|iscsiboot F f o s=s m:s@ r=s t=s) )) { 
+    if ( !GetOptions( \%opt, qw(h|help V T v|version I|iscsiboot F f o s=s m:s@ r=s t=s) )) { 
         return( usage() );
     }
 
@@ -77,6 +77,17 @@ sub parse_args {
              return(usage());
         } 
     }
+    #############################################
+    # T is used for trace, V is used for debug
+    #############################################
+    if (exists($opt{T})) {
+        $opt{V} = 1;
+        delete $opt{T};
+
+    }elsif(exists($opt{V})) {
+        $opt{T} = 1;
+        delete $opt{V};
+    }
     ####################################
     # Check for "-" with no option
     ####################################
@@ -154,7 +165,7 @@ sub do_rnetboot {
     #######################################
     # Turn on verbose and debugging
     #######################################
-    if ( exists($request->{verbose}) ) {
+    if ( ${$request->{arg}}[0] eq '-V' ) {
         #$cmd.= " -v -x";
         $optarg{'v'} = 1; #for verbose
         $optarg{'x'} = 1; #for debug