From b6d55c85e3ba04cac2c3c88a56c0912df0830c1c Mon Sep 17 00:00:00 2001
From: jjhua <jjhua@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Mon, 13 Dec 2010 05:54:32 +0000
Subject: [PATCH] add rbootseq  =>  fsp  => xCAT::FSPbootseq

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

diff --git a/xCAT-server/lib/perl/xCAT/PPC.pm b/xCAT-server/lib/perl/xCAT/PPC.pm
index 33c1875d6..ce0e8a822 100644
--- a/xCAT-server/lib/perl/xCAT/PPC.pm
+++ b/xCAT-server/lib/perl/xCAT/PPC.pm
@@ -86,6 +86,8 @@ my %modules = (
 		      },
         renergy   => { hmc    => "xCAT::PPCenergy",
 		     },
+        rbootseq  => { fsp    => "xCAT::FSPbootseq",
+             },
         );
 
 
@@ -281,7 +283,7 @@ sub process_command {
     #       |count    //node number managed by the hcp
     #       |runprocess    //the process number connect to the hcp
     #       |index    //the index of node will be forked of the hcp
-    if ( ($request->{command} =~ /^(getmacs)$/ && exists( $request->{opt}->{D} )) || ($request->{command} =~ /^(rnetboot)$/) ) {
+    if ( ($request->{command} =~ /^(getmacs)$/ && exists( $request->{opt}->{D} )) || ($request->{command} =~ /^(rnetboot)$/) || ($request->{command} =~ /^(rbootseq)$/) ) {
         my %pid_owner = ();
 
         $request->{maxssh} = int($request->{maxssh}/2);
@@ -696,7 +698,7 @@ sub preprocess_nodes {
     ##########################################
     # Special processing - rnetboot 
     ##########################################
-    if ( $request->{command} eq "rnetboot" ) { 
+    if ( $request->{command} eq "rnetboot"  || $request->{command} eq "rbootseq"  ) { 
         $netwk = resolve_netwk( $request, $noderange );
         if ( !defined( %$netwk )) {
             return undef;
@@ -774,7 +776,7 @@ sub preprocess_nodes {
     # LPAR-by-LPAR basis - fork one process
     # per LPAR.  
     ##########################################
-    if ( ($method =~ /^(getmacs)$/ && exists( $request->{opt}->{D} )) || ($method =~ /^(rnetboot)$/) ) {
+    if ( ($method =~ /^(getmacs)$/ && exists( $request->{opt}->{D} )) || ($method =~ /^(rnetboot)$/) || $method =~ /^(rbootseq)$/ ) {
         while (my ($hcp,$hash) = each(%nodehash) ) {    
             @nodegroup = ();
             while (my ($mtms,$h) = each(%$hash) ) {
@@ -784,7 +786,7 @@ sub preprocess_nodes {
                     ##########################
                     # Save network info
                     ##########################
-                    if ( $method =~ /^rnetboot$/ ) {
+                    if ( $method =~ /^rnetboot$/ || $method =~ /^(rbootseq)$/  ) {
                         push @$d, $netwk->{$lpar}; 
                     }
                     push @nodegroup,[$hcp,$d];