xcat-core/perl-xCAT/xCAT/FSPpower.pm

# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html

package xCAT::FSPpower;
use strict;
#use Getopt::Long;
use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
use xCAT::Usage;
use xCAT::MsgUtils;
use Data::Dumper;
use xCAT::DBobjUtils;
use xCAT::PPCpower;

##########################################################################
# Parse the command line for options and operands
##########################################################################
sub parse_args {
	xCAT::PPCpower::parse_args(@_);	
}




##########################################################################
# Performs boot operation (Off->On, On->Reset)
##########################################################################
sub powercmd_boot {

    my $request = shift;
    my $hash    = shift;
    my @output  = (); 
    
    
    ######################################
    # Power commands are grouped by CEC 
    # not Hardware Control Point
    ######################################
    
    #Example of $hash
    #    $VAR1 = {
    #	              'Server-9110-51A-SN1075ECF' => [
    #		                                        0,
    #						                        0,
    #						                       '9110-51A*1075ECF',
    #			                    			    'Server-9110-51A-SN1075ECF',
    #		                    				    'fsp',
    #						                        0
    #						                        ]
    #            }
    foreach my $node_name ( keys %$hash)
    {
         
       my $d = $hash->{$node_name};
       my $stat = action ($node_name, $d, "state");
	   print "In boot, state\n";
	   print Dumper($stat);
       my $Rc = shift(@$stat);
       my $data = @$stat[0];
       my $type = @$d[4];
       my $id   = ($type=~/^(fsp|bpa)$/) ? $type : @$d[0];
        
	   ##################################
       # Output error
       ##################################
       if ( $Rc != SUCCESS ) {
           push @output, [$node_name,$data,$Rc];
           next;
       }
       my $t = $data->{$node_name}; 
	   print "boot: $t \n";
       ##################################
       # Convert state to on/off
       ##################################
       my $state = power_status($data->{$node_name});
	   print "boot:state:$state\n";
	   my $op    = ($state =~ /^off$/) ? "on" : "reset";
       $stat = action ($node_name, $d, $op);
	
       # @output  ...	
	   $Rc = shift(@$stat);
	   $data = @$stat[0];
	   if ( $Rc != SUCCESS ) {
	       push @output, [$node_name,$data->{$node_name},$Rc];
		   next;
	   }
	   push @output,[$node_name, "SUCCESS", 0];	  

    }
    return( \@output );
}



##########################################################################
# Performs power control operations (on,off,reboot,etc)
##########################################################################
sub powercmd {

    my $request = shift;
    my $hash    = shift;
    my @result  = ();
    my @output;

    print "++++in powercmd++++\n";   
    print Dumper($hash);
    
    ####################################
    # Power commands are grouped by cec or lpar 
    # not Hardware Control Point
    ####################################
    
    #Example of $hash.    
    #$VAR1 = {
    #              'lpar01' => [
    #                             '1',
    #     			  'lpar01_normal',
    #				  '9110-51A*1075ECF',
    #				  'Server-9110-51A-SN1075ECF',
    #				  'lpar',
    #				  0
    #				  ]
    # };
																						      
    foreach my $node_name ( keys %$hash)
    {
        my $d = $hash->{$node_name};
        my $res = action ($node_name, $d, $request->{'op'});
	    print "In boot, state\n";
	    print Dumper($res);
    	my $Rc = shift(@$res);
    	my $data = @$res[0];
       	my $t = $data->{$node_name}; 
        my $type = @$d[4];
        my $id   = ($type=~/^(fsp|bpa)$/) ? $type : @$d[0];
        
	    ##################################
        # Output error
        ##################################
        if ( $Rc != SUCCESS ) {
            push @output, [$node_name,$t,$Rc];
            next;
        }
             
	    push @output, [$node_name,$t,$Rc];
    }

    return( \@output );

}


##########################################################################
# Queries CEC/LPAR power status (On or Off) for powercmd_boot
##########################################################################
sub power_status {

    my @states = (
        "Operating|operating",
        "Running|running",
        "Open Firmware|open-firmware"
    );
    foreach ( @states ) { 
        if ( /^$_[0]$/ ) {
            return("on");
        }
    } 
    return("off");  
}

##########################################################################
# Queries CEC/LPAR power status 
##########################################################################
sub state {

    my $request = shift;
    my $hash    = shift;
    my $exp     = shift; # NOt use
    my $prefix  = shift;
    my $convert = shift;
    my @output  = ();
  
			
    
    #print "------in state--------\n"; 
    #print Dumper($request);	
    #print Dumper($hash); 
    ####################################
    # Power commands are grouped by hardware control point
    # In FSPpower, the hcp is the related fsp.  
    ####################################
    
    # Example of $hash.    
    #VAR1 = {
    #	          '9110-51A*1075ECF' => {
    #                                   'Server-9110-51A-SN1075ECF' => [
    #    	                                                          0,
    #		                                                          0,
    #			                            						  '9110-51A*1075ECF',
    #			                            						  'fsp1_name',
    #                           									  'fsp',
    #							                            		  0
    #									                                ]
    #					                 }          
    # 	   };

    
    foreach my $cec_bpa ( keys %$hash)
    { 

        my $node_hash = $hash->{$cec_bpa};
        for my $node_name ( keys %$node_hash)
        {
            my $d = $node_hash->{$node_name};
            my $stat = action ($node_name, $d, "state", $prefix, $convert);
            my $Rc = shift(@$stat);
    	    my $data = @$stat[0];
       	    my $t = $data->{$node_name}; 
            my $type = @$d[4];
            my $id   = ($type=~/^(fsp|bpa)$/) ? $type : @$d[0];
        
	    ##################################
            # Output error
            ##################################
            if ( $Rc != SUCCESS ) {
                push @output, [$node_name,$t,$Rc];
                next;
            }
	    push @output,[$node_name, $t, $Rc];
	}

    }
    return( \@output );
   
}


##########################################################################
# invoke the fsp-api command.
##########################################################################
sub action {
    my $node_name  = shift;
    my $attrs          = shift;
    my $action     = shift;
    my $prefix    = shift;
    my $convert = shift;
#    my $fsp_api    ="/opt/xcat/sbin/fsp-api"; 
    my $fsp_api    = ($::XCATROOT) ? "$::XCATROOT/sbin/fsp-api" : "/opt/xcat/sbin/fsp-api";
    my $id         = 1;
    my $fsp_name   = ();
    my $fsp_ip     = ();
    my $target_list=();
    my $type = (); # fsp|lpar -- 0. BPA -- 1
    my @result;
    my $Rc = 0 ;
    my %outhash = ();
        
    $id = $$attrs[0];
    $fsp_name = $$attrs[3]; 

    my %objhash = (); 
    $objhash{$fsp_name} = "node";
    my %myhash      = xCAT::DBobjUtils->getobjdefs(\%objhash);
    my $password    = $myhash{$fsp_name}{"passwd.hscroot"};
    #print "fspname:$fsp_name password:$password\n";
#    print Dumper(%myhash);
    if(!$password ) {
	$outhash{$node_name} = "The password.hscroot of $fsp_name in ppcdirect table is empty";
	return ([-1, \%outhash]);
    }
#   my $user = "HMC";
    my $user = "hscroot";
#    my $cred = $request->{$fsp_name}{cred};
#    my $user = @$cred[0];
#    my $password = @$cred[1];
	    
    if($$attrs[4] =~ /^lpar$/) {
	   	$type = 0;
	} elsif($$attrs[4] =~ /^fsp$/) { 
		$type = 0;
	    if($action =~ /^state$/) {$action = "cec_state"; }
	    if($action =~ /^on$/) { $action = "cec_on_autostart"; }
	    if($action =~ /^off$/) { $action = "cec_off"; }
   	    if($action =~ /^of$/ ) {
	        $outhash{$node_name} = "\'$action\' command not supported";
		    return ([-1, \%outhash]);
        }
	    
	} else {
	    $type = 1;
		if($action =~ /^state$/) {
		    $action = "cec_state"; 
	    } else {
		    $outhash{$node_name} = "$node_name\'s type isn't fsp or lpar. Not allow doing this operation";
		    return ([-1, \%outhash]);
	    }
	}

	############################
    # Get IP address
    ############################
    $fsp_ip = xCAT::Utils::get_hdwr_ip($fsp_name);
    if($fsp_ip == -1) {
        $outhash{$node_name} = "Failed to get the $fsp_name\'s ip";
        return ([-1, \%outhash]);	
    }
	
	print "fsp name: $fsp_name\n";
	print "fsp ip: $fsp_ip\n";

    my $cmd = "$fsp_api -a $action -u $user -p $password -t $type:$fsp_ip:$id:$node_name:";

    print "cmd: $cmd\n"; 
    $SIG{CHLD} = (); 
    my $res = xCAT::Utils->runcmd($cmd, -1);
	if($::RUNCMD_RC != 0){
	   	$Rc = -1;	
	} else {
	  	$Rc = SUCCESS;
		####################
		# on,off, of, reset, cec_onstandby,cec_off, if $? == 0, it will return sucess
		###################
		if(index($action,"state") == -1 ) {
		    $outhash{$node_name} = "Sucess";
		    return ([$Rc, \%outhash]);
		}
	}
       ##############################
       # Convert state to on/off 
       ##############################
       if ( defined( $convert )) {
          $res = power_status( $res );
       }

        #print Dumper($prefix); 
        ##################
	# state cec_state
	#################
	if (!defined($prefix)) {
             $outhash{ $node_name } = $res;
	} else {
             $outhash{ $node_name } = "$prefix $res";
        }
       
	return( [$Rc,\%outhash] ); 

}


1;