FSPBootseq supports for setting boot string
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@8382 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jjhua
@@ -68,6 +68,7 @@ sub fsp_api_action {
|
||||
my $attrs = shift;
|
||||
my $action = shift;
|
||||
my $tooltype = shift;
|
||||
my $parameter = shift;
|
||||
# my $user = "HMC";
|
||||
# my $password = "abc123";
|
||||
my $fsp_api = ($::XCATROOT) ? "$::XCATROOT/sbin/fsp-api" : "/opt/xcat/sbin/fsp-api";
|
||||
@@ -125,7 +126,7 @@ sub fsp_api_action {
|
||||
my $password = $password_hash->{password};
|
||||
$cmd = "$fsp_api -a $action -u $user -p $password -T $tooltype -t $type:$fsp_ip:$id:$node_name:";
|
||||
} else {
|
||||
$cmd = "$fsp_api -a $action -T $tooltype -t $type:$fsp_ip:$id:$node_name:";
|
||||
$cmd = "$fsp_api -a $action -T $tooltype -t $type:$fsp_ip:$id:$node_name:$parameter";
|
||||
}
|
||||
|
||||
#print "cmd: $cmd\n";
|
||||
|
||||
211
perl-xCAT/xCAT/FSPbootseq.pm
Normal file
211
perl-xCAT/xCAT/FSPbootseq.pm
Normal file
@@ -0,0 +1,211 @@
|
||||
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
||||
|
||||
package xCAT::FSPbootseq;
|
||||
use Socket;
|
||||
use strict;
|
||||
use Getopt::Long;
|
||||
use xCAT::PPCcli qw(SUCCESS EXPECT_ERROR RC_ERROR NR_ERROR);
|
||||
use xCAT::NetworkUtils;
|
||||
use xCAT::FSPUtils;
|
||||
use Data::Dumper;
|
||||
|
||||
##########################################################################
|
||||
# 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 $node = $request->{node};
|
||||
my $vers =
|
||||
my @VERSION = qw( 2.6 );
|
||||
my @dev = qw(hfi net);
|
||||
|
||||
#############################################
|
||||
# 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|Verbose v|version ))) {
|
||||
return( usage() );
|
||||
}
|
||||
####################################
|
||||
# Option -h for Help
|
||||
####################################
|
||||
#if ( exists( $opt{h} )) {
|
||||
# return( usage() );
|
||||
#}
|
||||
####################################
|
||||
# Option -v for version
|
||||
####################################
|
||||
if ( exists( $opt{v} )) {
|
||||
return( \@VERSION );
|
||||
}
|
||||
####################################
|
||||
# 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]" ));
|
||||
#}
|
||||
|
||||
my $command = grep(/^$ARGV[0]$/, @dev );
|
||||
if ( !defined( $command )) {
|
||||
return(usage( "Invalid command: $ARGV[0]" ));
|
||||
}
|
||||
|
||||
if( $ARGV[0] =~/^hfi$/) {
|
||||
$opt{hfi} = 1;
|
||||
}
|
||||
|
||||
if( $ARGV[0] =~/^net$/) {
|
||||
$opt{net} = 1;
|
||||
}
|
||||
|
||||
shift @ARGV;
|
||||
if ( defined( $ARGV[0] )) {
|
||||
return(usage( "Invalid Argument: $ARGV[0]" ));
|
||||
}
|
||||
|
||||
|
||||
print "in parse_args:\n";
|
||||
print $command;
|
||||
print Dumper(\%opt);
|
||||
|
||||
####################################
|
||||
# Set method to invoke
|
||||
####################################
|
||||
$request->{method} = $cmd;
|
||||
return( \%opt );
|
||||
}
|
||||
|
||||
|
||||
##########################################################################
|
||||
# set hfi/eth boot string
|
||||
##########################################################################
|
||||
sub rbootseq {
|
||||
|
||||
my $request = shift;
|
||||
my $d = shift;
|
||||
my $opt = $request->{opt};
|
||||
my @output ;
|
||||
my $tooltype = 0;
|
||||
my $parameter;
|
||||
my $bootp_retries = 5;
|
||||
my $tftp_retries = 5;
|
||||
my $blksize = 512;
|
||||
my $hash;
|
||||
my $node_name = @$d[6];
|
||||
my $o = @$d[7];
|
||||
|
||||
print "in setbootseq:\n";
|
||||
print "request\n";
|
||||
print Dumper($request);
|
||||
print "d";
|
||||
print Dumper($d);
|
||||
|
||||
|
||||
if (!($$d[4] =~ /^lpar$/)) {
|
||||
push @output, [$node_name, "\'boot\' command not supported for CEC or BPA", -1 ];
|
||||
return (\@output);
|
||||
}
|
||||
|
||||
if( $opt->{net} ) {
|
||||
my $mactab = xCAT::Table->new( 'mac');
|
||||
unless($mactab) {
|
||||
push @output, [$node_name, "Cannot open mac table", -1 ];
|
||||
return (\@output);
|
||||
}
|
||||
|
||||
my $mac_hash = $mactab->getNodeAttribs( $node_name,[qw(mac)]);
|
||||
my $mac = $mac_hash->{mac};
|
||||
if( $mac ) {
|
||||
push @output, [$node_name, "No mac address in mac table", -1 ];
|
||||
}
|
||||
$mactab->close();
|
||||
|
||||
if( $mac =~ /\| /) {
|
||||
#01:02:03:04:05:0E!node5|01:02:03:05:0F!node6-eth1
|
||||
my @mac_t = split(/\|/,$mac);
|
||||
my $m;
|
||||
my $m_t;
|
||||
foreach $m (@mac_t) {
|
||||
if($m =~ /([\w:]{14})!$node_name/) {
|
||||
$m_t = $1;
|
||||
last;
|
||||
}
|
||||
}
|
||||
|
||||
if( !defined($m_t)) {
|
||||
$mac = $mac_t[0];
|
||||
} else {
|
||||
$mac = $m_t;
|
||||
}
|
||||
}
|
||||
$parameter = "mac=$mac:speed=auto,duplex=auto,$o->{server},,$o->{gateway},$o->{client},$bootp_retries,$tftp_retries,$o->{netmask},$blksize";
|
||||
|
||||
}
|
||||
|
||||
if( $opt->{hfi}) {
|
||||
|
||||
$parameter = "/hfi-iohub/hfi-ethernet:$o->{server},,$o->{gateway},$o->{client},$bootp_retries,$tftp_retries,$o->{netmask},$blksize";
|
||||
|
||||
}
|
||||
|
||||
my $res = xCAT::FSPUtils::fsp_api_action ($node_name, $d, "set_lpar_bootstring", $tooltype, $parameter);
|
||||
#print "In boot, state\n";
|
||||
#print Dumper($res);
|
||||
my $Rc = @$res[2];
|
||||
my $data = @$res[1];
|
||||
|
||||
##################################
|
||||
# Output error
|
||||
##################################
|
||||
if ( $Rc != SUCCESS ) {
|
||||
push @output, [$node_name,$data,$Rc];
|
||||
next;
|
||||
}
|
||||
push @output,[$node_name, "Success", 0];
|
||||
|
||||
return( \@output );
|
||||
|
||||
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user