arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity
Files
06fe33434a94f18b3267e9037c33b562b5f16a46
xcat-core/perl-xCAT/xCAT/PPCboot.pm
zhaoertao 571f3e3962 for item: clean up Utils.pm, the code in perl-xCAT/xCAT 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@13461 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
2012-08-09 03:48:50 +00:00

607 lines
19 KiB
Perl
Raw Blame History

# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
package xCAT::PPCboot;
use lib "/opt/xcat/lib/perl";
use Data::Dumper;
use strict;
use Getopt::Long;
use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
use xCAT::Usage;
use xCAT::Utils;
use xCAT::TableUtils;
use xCAT::MsgUtils;
use xCAT::LparNetbootExp;
##########################################################################
# Parse the command line for options and operands
##########################################################################
sub parse_args {
my $request = shift;
my %opt = ();
my $cmd = $request->{command};
my $args = $request->{arg};
my @VERSION = qw( 2.1 );
#############################################
# Responds with usage statement
#############################################
local *usage = sub {
my $usage_string = xCAT::Usage->getUsage($cmd);
return( [ $_[0], $usage_string] );
};
#############################################
# Process command-line arguments
#############################################
if ( !defined( $args )) {
$request->{method} = $cmd;
return( \%opt );
}
#############################################
# Checks case in GetOptions, allows opts
# to be grouped (e.g. -vx), and terminates
# at the first unrecognized option.
#############################################
@ARGV = @$args;
$Getopt::Long::ignorecase = 0;
Getopt::Long::Configure( "bundling" );
if ( !GetOptions( \%opt, qw(h|help V T v|version I|iscsiboot F f o s=s m:s@ r=s t=s) )) {
return( usage() );
}
####################################
# Option -h for Help
####################################
if ( exists( $opt{h} )) {
return( usage() );
}
####################################
# Option -v for version
####################################
if ( exists( $opt{v} )) {
return( \@VERSION );
}
if ( exists( $opt{s} ) ){
my @boot_devices = split(/,/, $opt{s});
foreach (@boot_devices) {
if ( (!/^net$/) && (!/^hd$/) ) {
return(usage( "boot device $_ is not supported" ));
}
}
}
if (exists( $opt{m} ) ){
my $res = xCAT::Utils->check_deployment_monitoring_settings($request, \%opt);
if ($res != SUCCESS) {
return(usage());
}
}
#############################################
# T is used for trace, V is used for debug
#############################################
if (exists($opt{T})) {
$opt{V} = 1;
delete $opt{T};
}elsif(exists($opt{V})) {
$opt{T} = 1;
delete $opt{V};
}
####################################
# Check for "-" with no option
####################################
if ( grep(/^-$/, @ARGV )) {
return(usage( "Missing option: -" ));
}
####################################
# Check for an extra argument
####################################
if ( defined( $ARGV[0] )) {
return(usage( "Invalid Argument: $ARGV[0]" ));
}
$request->{method} = $cmd;
return( \%opt );
}
##########################################################################
# Netboot the lpar
##########################################################################
sub do_rnetboot {
my $request = shift;
my $d = shift;
my $exp = shift;
my $name = shift;
my $node = shift;
my $opt = shift;
my $ssh = @$exp[0];
my $userid = @$exp[4];
my $pw = @$exp[5];
my $subreq = $request->{subreq};
my $Rc = SUCCESS;
my $result = "";
my $cmd;
my %optarg;
#######################################
# Disconnect Expect session
#######################################
xCAT::PPCcli::disconnect( $exp );
#######################################
# Get node data
#######################################
my $id = @$d[0];
my $pprofile = @$d[1];
my $fsp = @$d[2];
my $hcp = @$d[3];
########################################
## Find Expect script
########################################
#$cmd = ($::XCATROOT) ? "$::XCATROOT/sbin/" : "/opt/xcat/sbin/";
#$cmd .= "lpar_netboot.expect";
#
########################################
## Check command installed
########################################
#if ( !-x $cmd ) {
# return( [RC_ERROR,"Command not installed: $cmd"] );
#}
#if (!-x "/usr/bin/expect" ) {
# return( [RC_ERROR,"Command not installed: /usr/bin/expect"] );
#}
#######################################
# Save user name and passwd of hcp to
# environment variables.
# lpar_netboot.expect depends on it
#######################################
$ENV{HCP_USERID} = $userid;
$ENV{HCP_PASSWD} = $pw;
#######################################
# Turn on verbose and debugging
#######################################
if ( ${$request->{arg}}[0] eq '-V' ) {
#$cmd.= " -v -x";
$optarg{'v'} = 1; #for verbose
$optarg{'x'} = 1; #for debug
}
#######################################
# Force LPAR shutdown
#######################################
if ( exists( $opt->{f} ) || !xCAT::Utils->isAIX() ) {
#$cmd.= " -i";
$optarg{'i'} = 1;
}
#######################################
# Write boot order
#######################################
if ( exists( $opt->{s} )) {
foreach ($opt->{s}) {
if ( /^net$/ ) {
#$cmd.= " -w 1";
$optarg{'w'} = 1;
} elsif ( /^net,hd$/ ) {
#$cmd.= " -w 2";
$optarg{'w'} = 2;
} elsif ( /^hd,net$/ ) {
#$cmd.= " -w 3";
$optarg{'w'} = 3;
} elsif ( /^hd$/ ) {
#$cmd.= " -w 4";
$optarg{'w'} = 4;
}
}
}
if ( exists( $opt->{o} )) {
#$cmd.= " -o";
$optarg{'o'} = 1;
}
my @macs = split /\|/, $opt->{m};
foreach my $mac ( @macs ) {
#######################################
# Network specified
#######################################
my $mac_a = lc($mac);
#$cmd.= " -s auto -d auto -m $mac_a -S $opt->{S} -C $opt->{C} -N $opt->{N}";
$optarg{'s'} = 'auto';
$optarg{'d'} = 'auto';
$optarg{'m'} = $mac_a;
$optarg{'S'} = $opt->{S};
$optarg{'C'} = $opt->{C};
$optarg{'N'} = $opt->{N};
if (defined($opt->{G}))
{
#$cmd.= " -G $opt->{G}";
$optarg{'G'} = $opt->{G};
}
#######################################
# Get required attributes from master
# of the node if -I|--iscsiboot is
# specified
#######################################
if ( exists( $opt->{I} )) {
my $ret;
my $dump_target;
my $dump_lun;
my $dump_port;
my $noderestab = xCAT::Table->new('noderes');
unless ($noderestab)
{
xCAT::MsgUtils->message('S',
"Unable to open noderes table.\n");
return 1;
}
my $et = $noderestab->getNodeAttribs($node, ['xcatmaster']);
if ($et and $et->{'xcatmaster'})
{
$ret = xCAT::Utils->runxcmd(
{
command => ['xdsh'],
node => [$et->{'xcatmaster'}],
arg => [ 'cat /tftpboot/$node.info' ]
},
$subreq, 0, 0 );
} else {
$ret = `cat /tftpboot/$node.info`;
}
chomp($ret);
my @attrs = split /\n/, $ret;
foreach (@attrs)
{
if (/DUMP_TARGET=(.*)$/) {
$dump_target = $1;
} elsif (/DUMP_LUN=(.*)$/) {
$dump_lun = $1;
$dump_lun =~ s/^0x(.*)$/$1/g;
} elsif (/DUMP_PORT=(.*)$/) {
$dump_port =$1;
}
}
if ( defined($dump_target) and defined($dump_lun) and defined($dump_port) ) {
#$cmd.= " -T \"$dump_target\" -L \"$dump_lun\" -p \"$dump_port\"";
$optarg{'T'} = $dump_target;
$optarg{'L'} = $dump_lun;
$optarg{'p'} = $dump_port;
} else {
return( [RC_ERROR,"Unable to find DUMP_TARGET, DUMP_LUN, DUMP_PORT for iscsi dump"] );
}
}
my %client_nethash = xCAT::DBobjUtils->getNetwkInfo( [$node] );
if ( grep /hf/, $client_nethash{$node}{mgtifname} ) {
#$cmd.= " -t hfi-ent";
$optarg{'t'} = "hfi-ent";
} else {
#$cmd.= " -t ent";
$optarg{'t'} = "ent";
}
#######################################
# Add command options
#######################################
#$cmd.= " -f \"$name\" \"$pprofile\" \"$fsp\" $id $hcp \"$node\"";
$optarg{'f'} = 1;
$optarg{'name'} = $name;
$optarg{'pprofile'} = $pprofile;
$optarg{'fsp'} = $fsp;
$optarg{'id'} = $id;
$optarg{'hcp'} = $hcp;
$optarg{'node'} = $node;
my $done = 0;
while ( $done < 2 ) {
$result = "";
$Rc = SUCCESS;
########################################
## Execute command
########################################
#my $pid = open( OUTPUT, "$cmd 2>&1 |");
#$SIG{INT} = $SIG{TERM} = sub { #prepare to process job termination and propogate it down
# kill 9, $pid;
# return( [RC_ERROR,"Received INT or TERM signal"] );
#};
#if ( !$pid ) {
# return( [RC_ERROR,"$cmd fork error: $!"] );
#}
########################################
## Get command output
########################################
#while ( <OUTPUT> ) {
# $result.=$_;
#}
#close OUTPUT;
#
########################################
## Get command exit code
########################################
#
#foreach ( split /\n/, $result ) {
# if ( /^lpar_netboot / ) {
# $Rc = RC_ERROR;
# last;
# }
#}
#######################################
# Invoke the lpar_netbootexp
#######################################
$result = xCAT::LparNetbootExp->lparnetbootexp(\%optarg, $request);
$Rc = @$result[0];
if ( $Rc == SUCCESS ) {
$done = 2;
} else {
$done = $done + 1;
sleep 1;
}
}
if ( $Rc == SUCCESS ) {
last;
}
}
return $result;
}
##########################################################################
# Get LPAR MAC addresses
##########################################################################
sub rnetboot {
my $request = shift;
my $d = shift;
my $exp = shift;
my $options = $request->{opt};
my $hwtype = @$exp[2];
my $result;
my $name;
my $callback = $request->{callback};
#####################################
# Get node data
#####################################
my $lparid = @$d[0];
my $mtms = @$d[2];
my $type = @$d[4];
my $node = @$d[6];
my $o = @$d[7];
#####################################
# Gateway (-G)
# Server (-S)
# Client (-C)
# mac (-m)
#####################################
my %opt = (
G => $o->{gateway},
S => $o->{server},
C => $o->{client},
N => $o->{netmask},
m => $o->{mac}
);
#####################################
# Strip colons from mac address
#####################################
$opt{m} =~ s/://g;
#####################################
# Force LPAR shutdown
#####################################
if ( exists( $options->{f} )) {
$opt{f} = 1;
}
#####################################
# Write boot device order
#####################################
if ( exists( $options->{s} )) {
$opt{s} = $options->{s};
}
if ( exists( $options->{o} )) {
$opt{o} = $options->{o};
}
#####################################
# Do iscsi boot
#####################################
if ( exists( $options->{I} )) {
$opt{I} = 1;
}
#####################################
# Invalid target hardware
#####################################
if ( $type !~ /^lpar$/ ) {
return( [[$name,"Not supported",RC_ERROR]] );
}
#########################################
# Get name known by HCP
#########################################
my $filter = "name,lpar_id";
my $values = xCAT::PPCcli::lssyscfg( $exp, $type, $mtms, $filter );
my $Rc = shift(@$values);
#########################################
# Return error
#########################################
if ( $Rc != SUCCESS ) {
return( [[$node,@$values[0],$Rc]] );
}
#########################################
# Find LPARs by lpar_id
#########################################
foreach ( @$values ) {
if ( /^(.*),$lparid$/ ) {
$name = $1;
last;
}
}
#########################################
# Node not found by lpar_id
#########################################
if ( !defined( $name )) {
return( [[$node,"Node not found, lparid=$lparid",RC_ERROR]] );
}
#########################################
# Check current node state.
# It is not allowed to rinitialize node
# if it is in boot state
#########################################
if ( !exists( $options->{F} ) && !xCAT::Utils->isAIX() ) {
my $chaintab = xCAT::Table->new('chain');
my $vcon = $chaintab->getAttribs({ node => "$node"}, 'currstate');
if ( $vcon and $vcon->{"currstate"} and $vcon->{"currstate"} eq "boot" ) {
return( [[$node,"Node is in boot state. Use nodeset command before rnetboot or use -F option with rnetboot",RC_ERROR]] );
}
}
#my $sitetab = xCAT::Table->new('site');
#my $vcon = $sitetab->getAttribs({key => "conserverondemand"}, 'value');
my @vcons = xCAT::TableUtils->get_site_attribute("conserverondemand");
my $vcon = $vcons[0];
#if ($vcon and $vcon->{"value"} and $vcon->{"value"} eq "yes" ) {
if ( defined($vcon) and $vcon eq "yes" ) {
$result = xCAT::PPCcli::lpar_netboot(
$exp,
$request->{verbose},
$name,
$d,
\%opt );
} else {
#########################################
# Manually perform boot.
#########################################
$result = do_rnetboot( $request, $d, $exp, $name, $node, \%opt );
}
#$sitetab->close;
if (defined($request->{opt}->{m})) {
my $retries = 0;
my @monnodes = ($name);
my $monsettings = xCAT::Utils->generate_monsettings($request, \@monnodes);
xCAT::Utils->monitor_installation($request, $monsettings);;
while ($retries++ < $monsettings->{'retrycount'} && scalar(keys %{$monsettings->{'nodes'}}) > 0) {
####lparnetboot can not support multiple nodes in one invocation
####for now, does not know how the $d and \%opt will be changed if
####support mulitiple nodes in one invocation,
####so just use the original node name and node attribute array and hash
my $rsp={};
$rsp->{data}->[0] = "$node: Reinitializing the installation: $retries retry";
xCAT::MsgUtils->message("I", $rsp, $callback);
if ($vcon and $vcon->{"value"} and $vcon->{"value"} eq "yes" ) {
$result = xCAT::PPCcli::lpar_netboot(
$exp,
$request->{verbose},
$name,
$d,
\%opt );
} else {
$result = do_rnetboot( $request, $d, $exp, $name, $node, \%opt );
}
xCAT::Utils->monitor_installation($request, $monsettings);
}
#failed after retries
if (scalar(keys %{$monsettings->{'nodes'}}) > 0) {
foreach my $node (keys %{$monsettings->{'nodes'}}) {
my $rsp={};
$rsp->{data}->[0] = "The node \"$node\" can not reach the expected status after $monsettings->{'retrycount'} retries, the installation for this done failed";
xCAT::MsgUtils->message("E", $rsp, $callback);
}
}
}
$Rc = shift(@$result);
##################################
# Form string from array results
##################################
if ( exists($request->{verbose}) ) {
return( [[$node,join( '', @$result ),$Rc]] );
}
##################################
# Return error
# lpar_netboot returns (for example):
# # Connecting to lpar1
# # Connected
# # Checking for power off.
# # Power off the node
# # Wait for power off.
# # Power off complete.
# # Power on lpar1 to Open Firmware.
# # Power on complete.
# lpar_netboot: can not find mac address 42DAB.
#
##################################
if ( $Rc != SUCCESS ) {
if ( @$result[0] =~ /lpar_netboot (.*)/ ) {
return( [[$node,$1,$Rc]] );
}
return( [[$node,join( '', @$result ),$Rc]] );
}
##################################
# Split array into string
##################################
my $data = @$result[0];
if ( $hwtype eq "hmc" ) {
$data = join( '', @$result );
}
##################################
# lpar_netboot returns:
#
# # Connecting to lpar1
# # Connected
# ...
# lpar_netboot Status: network boot initiated
# # bootp sent over network.
# lpar_netboot Status: waiting for the boot image to boot up.
# # Network boot proceeding, lpar_netboot is exiting.
# # Finished.
#
#####################################
if ( $data =~ /Finished/) {
return( [[$node,"Success",$Rc]] );
}
#####################################
# Can still be error w/ Rc=0:
#
# # Connecting to lpar1
# # Connected
# ...
# lpar_netboot Status: network boot initiated
# # bootp sent over network.
# lpar_netboot Status: waiting for the boot image to boot up.
# lpar_netboot: bootp operation failed.
#
#####################################
if ( $data =~ /lpar_netboot (.*)/ ) {
return( [[$node,$1,RC_ERROR]] );
}
return( [[$node,$data,RC_ERROR]] );
}
1;
Reference in New Issue View Git Blame Copy Permalink