From 4a4245220873eb0bd8460eaceb9c2c4192f246b3 Mon Sep 17 00:00:00 2001
From: wanghuaz <wanghuaz@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Sun, 30 Oct 2011 06:07:17 +0000
Subject: [PATCH] Added powerinterval support in 2.6 stream

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.6@10919 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 perl-xCAT/xCAT/FSPpower.pm | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

diff --git a/perl-xCAT/xCAT/FSPpower.pm b/perl-xCAT/xCAT/FSPpower.pm
index d19076c2c..6bd0441bd 100644
--- a/perl-xCAT/xCAT/FSPpower.pm
+++ b/perl-xCAT/xCAT/FSPpower.pm
@@ -125,12 +125,19 @@ sub powercmd_boot {
            push @output, [$node_name,$data,$Rc];
            next;
        }
-       
+ 
        ##################################
        # Convert state to on/off
        ##################################
        my $state = power_status($data);
        #print "boot:state:$state\n";
+
+       # Attribute powerinterval in site table,
+       # to control the rpower speed
+       if( defined($request->{'powerinterval'}) ) {
+           Time::HiRes::sleep($request->{'powerinterval'});
+       }
+
        my $op    = ($state =~ /^off$/) ? "on" : "reset";
        $res = xCAT::FSPUtils::fsp_api_action ($node_name, $d, $op);
 	
@@ -209,6 +216,16 @@ sub powercmd {
                  next;
 	     }
         }		
+
+        # Attribute powerinterval in site table,
+        # to control the rpower speed
+        if (($action ne 'enter_rack_standby') && ($action ne 'exit_rack_standby') && ($action ne 'stat') && ($action ne 'status')
+           && ($action ne 'state') && ($action ne 'off') && ($action ne 'softoff')) {
+            if( defined($request->{'powerinterval'}) ) {
+                Time::HiRes::sleep($request->{'powerinterval'});
+            }
+        }
+
         my $res = xCAT::FSPUtils::fsp_api_action($node_name, $d, $action );
 	#    print "In boot, state\n";
 	#    print Dumper($res);