From 48e1838d7cc5e367109ef6a1a9a40cc1fc736306 Mon Sep 17 00:00:00 2001
From: jjhua <jjhua@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 29 Mar 2010 03:38:05 +0000
Subject: [PATCH] fixed the defect 2971353;hw control commands support for
 hierarchy

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5594 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/lib/perl/xCAT/PPC.pm | 18 +++++++++++++-----
 1 file changed, 13 insertions(+), 5 deletions(-)

diff --git a/xCAT-server/lib/perl/xCAT/PPC.pm b/xCAT-server/lib/perl/xCAT/PPC.pm
index bbbb888c3..85e24d0d3 100644
--- a/xCAT-server/lib/perl/xCAT/PPC.pm
+++ b/xCAT-server/lib/perl/xCAT/PPC.pm
@@ -1298,6 +1298,10 @@ sub preprocess_request {
 
     $req->{opt} = $opt;
 
+    if ( exists( $req->{opt}->{V} )) {
+        $req->{verbose} = 1;
+    }
+
     ####################################
     # Get hwtype 
     ####################################
@@ -1418,13 +1422,15 @@ sub parse_args
     $req->{command}  = $command;
     $req->{stdin}    = $stdin; 
     $req->{hwtype}   = $package; 
-    $req->{callback} = $callback; 
+    #$req->{callback} = $callback; 
     $req->{method}   = "parse_args";
 
     my $opt = runcmd( $req);
 
     $req->{command} = [ $command];
     $req->{stdin}   = [ $stdin];
+    $req->{method}  = [$req->{method}];
+    $req->{op}  = [$req->{op}];
     return $opt;
 }
 
@@ -1449,7 +1455,9 @@ sub process_request {
     ####################################
     my $request = {%$req};
     $request->{command} = $req->{command}->[0];
-    $request->{stdin}   = $req->{stdin}->[0]; 
+    $request->{stdin}   = $req->{stdin}->[0];
+    $request->{method} = $req->{method}->[0];
+    $request->{op}   = $req->{op}->[0];
 #    $request->{hwtype}  = $package;
     $request->{callback}= $callback;
     $request->{subreq}  = $subreq;
@@ -1466,9 +1474,9 @@ sub process_request {
     ####################################
     # Option -V for verbose output
     ####################################
-    if ( exists( $request->{opt}->{V} )) {
-        $request->{verbose} = 1;
-    }
+    #if ( exists( $request->{opt}->{V} )) {
+    #    $request->{verbose} = 1;
+    #}
     ####################################
     # Process remote command
     ####################################