2010-06-04 09:05:30 +00:00
#!/usr/bin/env perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
package xCAT::FSPUtils ;
BEGIN
{
$ ::XCATROOT = $ ENV { 'XCATROOT' } ? $ ENV { 'XCATROOT' } : '/opt/xcat' ;
}
# if AIX - make sure we include perl 5.8.2 in INC path.
# Needed to find perl dependencies shipped in deps tarball.
if ( $^O =~ /^aix/i ) {
use lib "/usr/opt/perl5/lib/5.8.2/aix-thread-multi" ;
use lib "/usr/opt/perl5/lib/5.8.2" ;
use lib "/usr/opt/perl5/lib/site_perl/5.8.2/aix-thread-multi" ;
use lib "/usr/opt/perl5/lib/site_perl/5.8.2" ;
}
use lib "$::XCATROOT/lib/perl" ;
require xCAT::Table ;
use POSIX qw( ceil ) ;
use File::Path ;
use strict ;
use Symbol ;
require xCAT::InstUtils ;
require xCAT::NetworkUtils ;
require xCAT::Schema ;
require xCAT::Utils ;
2011-04-08 05:18:46 +00:00
#use Data::Dumper;
2010-06-04 09:05:30 +00:00
require xCAT::NodeRange ;
#-------------------------------------------------------------------------------
= head3 fsp_api_action
Description:
invoke the fsp_api to perform the functions
Arguments:
$ node_name:
$ attrs: an attributes hash
$ action: the operations on the fsp , bpa or lpar
$ tooltype: 0 for HMC , 1 for HNM
Returns:
Return result of the operation
Globals:
none
Error:
none
Example:
2010-08-09 06:56:18 +00:00
my $ res = xCAT::FSPUtils:: fsp_api_action ( $ node_name , $ d , "add_connection" , $ tooltype ) ;
2010-06-04 09:05:30 +00:00
Comments:
= cut
#-------------------------------------------------------------------------------
sub fsp_api_action {
my $ node_name = shift ;
my $ attrs = shift ;
my $ action = shift ;
my $ tooltype = shift ;
2010-12-13 05:18:12 +00:00
my $ parameter = shift ;
2010-06-04 09:05:30 +00:00
# my $user = "HMC";
# my $password = "abc123";
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 = ( ) ;
my $ res ;
2011-01-06 08:06:20 +00:00
my $ user ;
my $ password ;
my $ fsp_bpa_type ;
2010-06-04 09:05:30 +00:00
if ( ! defined ( $ tooltype ) ) {
$ tooltype = 0 ;
}
$ id = $$ attrs [ 0 ] ;
$ fsp_name = $$ attrs [ 3 ] ;
2010-12-29 02:20:44 +00:00
if ( $$ attrs [ 4 ] =~ /^fsp$/ || $$ attrs [ 4 ] =~ /^lpar$/ || $$ attrs [ 4 ] =~ /^cec$/ ) {
2010-06-04 09:05:30 +00:00
$ type = 0 ;
2011-01-06 08:06:20 +00:00
$ fsp_bpa_type = "fsp" ;
2010-12-29 02:20:44 +00:00
} elsif ( $$ attrs [ 4 ] =~ /^bpa$/ || $$ attrs [ 4 ] =~ /^frame$/ ) {
$ type = 1 ;
2011-01-06 08:06:20 +00:00
$ fsp_bpa_type = "bpa" ;
2010-06-04 09:05:30 +00:00
} else {
2010-12-29 02:20:44 +00:00
$ res = "$fsp_name\'s type is $$attrs[4]. Not support for $$attrs[4]" ;
return ( [ $ node_name , $ res , - 1 ] ) ;
2010-06-04 09:05:30 +00:00
}
2010-12-29 02:20:44 +00:00
if ( $ action =~ /^add_connection$/ ) {
############################
# Get IP address
############################
$ fsp_ip = xCAT::Utils:: getNodeIPaddress ( $ fsp_name , $ parameter ) ;
undef ( $ parameter ) ;
} else {
$ fsp_ip = xCAT::Utils:: getNodeIPaddress ( $ fsp_name ) ;
}
2010-06-04 09:05:30 +00:00
if ( ! defined ( $ fsp_ip ) ) {
2010-12-29 02:20:44 +00:00
$ res = "Failed to get the $fsp_name\'s or the related FSPs/BPAs' ip" ;
2010-06-04 09:05:30 +00:00
return ( [ $ node_name , $ res , - 1 ] ) ;
}
2010-12-29 02:20:44 +00:00
if ( $ fsp_ip eq "-1" ) {
$ res = "Cannot open vpd table" ;
2010-06-04 09:05:30 +00:00
return ( [ $ node_name , $ res , - 1 ] ) ;
2010-12-29 02:20:44 +00:00
} elsif ( $ fsp_ip eq "-3" ) {
$ res = "It doesn't have the FSPs or BPAs whose side is the value as specified or by default." ;
return ( [ $ node_name , $ res , - 1 ] ) ;
}
2010-06-04 09:05:30 +00:00
#print "fsp name: $fsp_name\n";
#print "fsp ip: $fsp_ip\n";
2011-01-06 08:06:20 +00:00
#get the HMC/password from passwd table or ppcdirect table.
if ( $ action =~ /^add_connection$/ ) {
my $ tmp_node ;
if ( $$ attrs [ 4 ] =~ /^cec$/ || $$ attrs [ 4 ] =~ /^frame$/ ) {
#for redundant FSPs/BPAs, we only need to get the one node's HMC/passwd
my $ children = xCAT::DBobjUtils - > getchildren ( $ fsp_name ) ;
if ( ! defined ( $ children ) ) {
$ res = "Failed to get the $fsp_name\'s FSPs/BPAs" ;
return ( [ $ fsp_name , $ res , - 1 ] ) ;
}
$ tmp_node = $$ children [ 0 ] ;
} else {
$ tmp_node = $ fsp_name ;
}
2011-03-18 05:32:28 +00:00
2011-01-06 08:06:20 +00:00
( $ user , $ password ) = xCAT::PPCdb:: credentials ( $ tmp_node , $ fsp_bpa_type , 'HMC' ) ;
if ( ! $ password ) {
$ res = "Cannot get password of userid 'HMC'. Please check table 'passwd' or 'ppcdirect'." ;
return ( [ $ node_name , $ res , - 1 ] ) ;
}
}
2010-06-04 09:05:30 +00:00
my $ cmd ;
2010-09-28 04:59:46 +00:00
my $ install_dir = xCAT::Utils - > getInstallDir ( ) ;
2010-06-04 09:05:30 +00:00
if ( $ action =~ /^code_update$/ ) {
2011-08-10 07:00:18 +00:00
$ cmd = "$fsp_api -a $action -T $tooltype -t $type:$fsp_ip:$id:$node_name:$parameter -d $install_dir/packages_fw/" ;
2010-08-03 09:32:34 +00:00
} elsif ( $ action =~ /^add_connection$/ ) {
$ cmd = "$fsp_api -a $action -u $user -p $password -T $tooltype -t $type:$fsp_ip:$id:$node_name:" ;
2011-05-05 03:24:27 +00:00
} elsif ( $ action =~ /^set_frame_number$/ ) {
$ cmd = "$fsp_api -a $action -T $tooltype -f $parameter -t $type:$fsp_ip:$id:$node_name:" ;
2010-06-04 09:05:30 +00:00
} else {
2010-12-20 09:40:33 +00:00
if ( defined ( $ parameter ) ) {
2011-07-25 03:38:47 +00:00
if ( $ action =~ /^set_(frame|cec|lpar)_name$/ ) {
2011-06-29 04:50:09 +00:00
$ cmd = "$fsp_api -a $action -n $parameter -T $tooltype -t $type:$fsp_ip:$id:$node_name:" ;
} else {
$ cmd = "$fsp_api -a $action -T $tooltype -t $type:$fsp_ip:$id:$node_name:$parameter" ;
}
2010-12-20 09:40:33 +00:00
} else {
$ cmd = "$fsp_api -a $action -T $tooltype -t $type:$fsp_ip:$id:$node_name:" ;
}
2010-06-04 09:05:30 +00:00
}
#print "cmd: $cmd\n";
$ SIG { CHLD } = 'DEFAULT' ;
$ res = xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
#$res = "good";
$ Rc = $ ::RUNCMD_RC ;
2011-04-08 05:18:46 +00:00
2010-06-04 09:05:30 +00:00
##################
# output the prompt
#################
#$outhash{ $node_name } = $res;
2010-12-20 09:40:33 +00:00
if ( defined ( $ res ) ) {
$ res =~ s/$node_name: // ;
}
2010-06-04 09:05:30 +00:00
return ( [ $ node_name , $ res , $ Rc ] ) ;
}
#-------------------------------------------------------------------------------
= head3 fsp_state_action
Description:
invoke the fsp_api to perform the functions ( all_lpars_state )
Arguments:
$ node_name:
$ attrs: an attributes hash
$ action: the operations on the fsp , bpa or lpar
$ tooltype: 0 for HMC , 1 for HNM
Returns:
Return result of the operation
Globals:
none
Error:
none
Example:
2010-08-09 06:56:18 +00:00
my $ res = xCAT::FSPUtils:: fsp_state_action ( $ cec_bpa , $ type , $ action , $ tooltype ) ;
2010-06-04 09:05:30 +00:00
Comments:
= cut
#-------------------------------------------------------------------------------
sub fsp_state_action {
my $ node_name = shift ;
my $ type_name = shift ;
my $ action = shift ;
my $ tooltype = shift ;
my $ fsp_api = ( $ ::XCATROOT ) ? "$::XCATROOT/sbin/fsp-api" : "/opt/xcat/sbin/fsp-api" ;
my $ id = 0 ;
my $ fsp_name = ( ) ;
my $ fsp_ip = ( ) ;
my $ target_list = ( ) ;
my $ type = ( ) ; # fsp|lpar -- 0. BPA -- 1
my @ result ;
my $ Rc = 0 ;
my % outhash = ( ) ;
my @ res ;
if ( ! defined ( $ tooltype ) ) {
$ tooltype = 0 ;
}
$ fsp_name = $ node_name ;
2010-12-10 03:06:43 +00:00
if ( $ type_name =~ /^fsp$/ || $ type_name =~ /^lpar$/ || $ type_name =~ /^cec$/ ) {
2010-06-04 09:05:30 +00:00
$ type = 0 ;
} else {
$ type = 1 ;
}
############################
# Get IP address
############################
$ fsp_ip = xCAT::Utils:: getNodeIPaddress ( $ fsp_name ) ;
if ( ! defined ( $ fsp_ip ) ) {
$ res [ 0 ] = [ "Failed to get the $fsp_name\'s ip" ] ;
return ( [ - 1 , @ res ] ) ;
}
#print "fsp name: $fsp_name\n";
#print "fsp ip: $fsp_ip\n";
my $ cmd ;
#$cmd = "$fsp_api -a $action -u $user -p $password -T $tooltype -t $type:$fsp_ip:$id:$node_name:";
$ cmd = "$fsp_api -a $action -T $tooltype -t $type:$fsp_ip:$id:$node_name:" ;
2011-04-08 05:18:46 +00:00
#print "cmd: $cmd\n";
2010-06-04 09:05:30 +00:00
$ SIG { CHLD } = 'DEFAULT' ;
@ res = xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
#$res = "good";
$ Rc = $ ::RUNCMD_RC ;
#$Rc = -1;
##################
# output the prompt
#################
#$outhash{ $node_name } = $res;
2010-12-28 08:23:56 +00:00
if ( @ res ) {
2010-12-20 09:40:33 +00:00
$ res [ 0 ] =~ s/$node_name: // ;
}
2010-06-04 09:05:30 +00:00
return ( [ $ Rc , @ res ] ) ;
}
2010-08-04 07:06:48 +00:00
sub getTypeOfNode
2010-08-02 08:25:23 +00:00
{
my $ class = shift ;
2010-08-04 07:06:48 +00:00
my $ node = shift ;
2010-09-01 08:17:57 +00:00
my $ callback = shift ;
2010-08-02 08:25:23 +00:00
my $ nodetypetab = xCAT::Table - > new ( 'nodetype' ) ;
2010-09-01 08:17:57 +00:00
if ( ! $ nodetypetab ) {
my $ rsp ;
$ rsp - > { errorcode } - > [ 0 ] = [ 1 ] ;
$ rsp - > { data } - > [ 0 ] = "Failed to open table 'nodetype'" ;
xCAT::MsgUtils - > message ( 'E' , $ rsp , $ callback ) ;
}
2010-08-04 07:06:48 +00:00
my $ nodetype_hash = $ nodetypetab - > getNodeAttribs ( $ node , [ qw( nodetype ) ] ) ;
2010-08-02 08:25:23 +00:00
my $ nodetype = $ nodetype_hash - > { nodetype } ;
if ( ! $ nodetype ) {
2010-09-01 08:17:57 +00:00
my $ rsp ;
$ rsp - > { errorcode } - > [ 0 ] = [ 1 ] ;
$ rsp - > { data } - > [ 0 ] = "Not found the $node\'s nodetype" ;
xCAT::MsgUtils - > message ( 'E' , $ rsp , $ callback ) ;
2010-08-02 08:25:23 +00:00
return undef ;
}
return $ nodetype ;
}
2010-11-25 02:47:15 +00:00
#-------------------------------------------------------------------------------
= head3 fsp_api_partition_action
Description:
invoke the fsp_api to perform the functions
Arguments:
$ node_name:
$ attrs: an attributes hash
$ action: the operations on the fsp , bpa or lpar
$ tooltype: 0 for HMC , 1 for HNM
Returns:
Return result of the operation
Globals:
none
Error:
none
Example:
my $ res = xCAT::FSPUtils:: fsp_api_action ( $ node_name , $ d , "add_connection" , $ tooltype ) ;
Comments:
= cut
#-------------------------------------------------------------------------------
sub fsp_api_create_parttion {
my $ starting_lpar_id = shift ;
2011-03-02 09:32:51 +00:00
my $ octant_cfg = shift ;
2010-11-25 02:47:15 +00:00
my $ node_number = shift ;
my $ attrs = shift ;
my $ action = shift ;
my $ tooltype = shift ;
# my $user = "HMC";
# my $password = "abc123";
my $ fsp_api = ( $ ::XCATROOT ) ? "$::XCATROOT/sbin/fsp-api" : "/opt/xcat/sbin/fsp-api" ;
my $ id = 0 ;
my $ fsp_name = ( ) ;
my $ fsp_ip = ( ) ;
my $ target_list = ( ) ;
my $ type = ( ) ; # fsp|lpar -- 0. BPA -- 1
my @ result ;
my $ Rc = 0 ;
my % outhash = ( ) ;
my $ res ;
my $ number_of_lpars_per_octant ;
my $ octant_num_needed ;
my $ starting_octant_id ;
2011-03-02 09:32:51 +00:00
my $ octant_conf_value ;
my $ octant_cfg_value = $ octant_cfg - > { octant_cfg_value } ;
my $ new_pending_interleave_mode = $ octant_cfg - > { memory_interleave } ;
2010-11-25 02:47:15 +00:00
if ( ! defined ( $ tooltype ) ) {
$ tooltype = 0 ;
}
2011-03-02 09:32:51 +00:00
#use Data::Dumper;
#print Dumper($attrs);
2010-11-25 02:47:15 +00:00
$ fsp_name = $$ attrs [ 3 ] ;
$ type = 0 ;
############################
# Get IP address
############################
$ fsp_ip = xCAT::Utils:: getNodeIPaddress ( $ fsp_name ) ;
if ( ! defined ( $ fsp_ip ) ) {
$ res = "Failed to get the $fsp_name\'s ip" ;
return ( [ $ fsp_name , $ res , - 1 ] ) ;
}
#print "fsp name: $fsp_name\n";
#print "fsp ip: $fsp_ip\n";
$ starting_octant_id = int ( $ starting_lpar_id / 4 ) ;
2011-03-02 09:32:51 +00:00
my $ lparnum_from_octant = 0 ;
my $ new_pending_pump_mode = $ octant_cfg - > { pendingpumpmode } ;
my $ parameters ;
#my $parameters = "$new_pending_pump_mode:$octant_num_needed";
my $ octant_id = $ starting_octant_id ;
my $ i = 0 ;
for ( $ i = $ starting_octant_id ; $ i < ( keys %$ octant_cfg_value ) ; $ i + + ) {
if ( ! exists ( $ octant_cfg_value - > { $ i } ) ) {
$ res = "starting LPAR id is $starting_lpar_id, starting octant id is $starting_octant_id, octant configuration value isn't provided. Wrong plan." ;
return ( [ $ fsp_name , $ res , - 1 ] ) ;
}
my $ octant_conf_value = $ octant_cfg_value - > { $ i } ;
#octant configuration values could be 1,2,3,4,5 ; AS following:
# 1 - 1 partition with all cpus and memory of the octant
# 2 - 2 partitions with a 50/50 split of cpus and memory
# 3 - 3 partitions with a 25/25/50 split of cpus and memory
# 4 - 4 partitions with a 25/25/25/25 split of cpus and memory
# 5 - 2 partitions with a 25/75 split of cpus and memory
if ( $ octant_conf_value == 1 ) {
$ number_of_lpars_per_octant = 1 ;
} elsif ( $ octant_conf_value == 2 ) {
$ number_of_lpars_per_octant = 2 ;
} elsif ( $ octant_conf_value == 3 ) {
$ number_of_lpars_per_octant = 3 ;
} elsif ( $ octant_conf_value == 4 ) {
$ number_of_lpars_per_octant = 4 ;
} elsif ( $ octant_conf_value == 5 ) {
$ number_of_lpars_per_octant = 2 ;
} else {
$ res = "octant $i, configuration values: $octant_conf_value. Wrong octant configuration values!\n" ;
return ( [ $ fsp_name , $ res , - 1 ] ) ;
}
2010-11-25 02:47:15 +00:00
2011-03-02 09:32:51 +00:00
$ lparnum_from_octant += $ number_of_lpars_per_octant ;
$ octant_num_needed + + ;
$ parameters . = ":$octant_id:$octant_conf_value:$new_pending_interleave_mode" ;
}
$ parameters = "$new_pending_pump_mode:$octant_num_needed" . $ parameters ;
if ( $ node_number != $ lparnum_from_octant ) {
$ res = "According to the partition split rule and the starting LPAR id, $lparnum_from_octant LPARs will be gotten. But the noderange has $node_number node. Wrong plan.\n" ;
2010-11-25 02:47:15 +00:00
return ( [ $ fsp_name , $ res , - 1 ] ) ;
}
2011-03-02 09:32:51 +00:00
#my $new_pending_pump_mode = 1;
#my $parameters = "$new_pending_pump_mode:$octant_num_needed";
#my $octant_id = $starting_octant_id ;
#my $new_pending_interleave_mode = 2;
#my $i = 0;
#for($i = 0; $i < $octant_num_needed; $i++ ) {
# $octant_id += $i;
# $parameters = $parameters.":$octant_id:$octant_conf_value:$new_pending_interleave_mode";
#}
2010-11-25 02:47:15 +00:00
my $ cmd ;
$ cmd = "$fsp_api -a $action -T $tooltype -t $type:$fsp_ip:0:$fsp_name:$parameters" ;
#fsp-api -a set_octant_cfg -t 0:40.7.5.1:0:M019:1:1:7:4:2
#print "cmd: $cmd\n";
$ SIG { CHLD } = 'DEFAULT' ;
$ res = xCAT::Utils - > runcmd ( $ cmd , - 1 ) ;
#$res = "good";
$ Rc = $ ::RUNCMD_RC ;
#$Rc = -1;
##################
# output the prompt
#################
#$outhash{ $node_name } = $res;
2010-12-20 09:40:33 +00:00
if ( defined ( $ res ) ) {
$ res =~ s/$fsp_name: // ;
}
2010-11-25 02:47:15 +00:00
return ( [ $ fsp_name , $ res , $ Rc ] ) ;
}
2010-08-02 08:25:23 +00:00
2010-06-04 09:05:30 +00:00
1 ;