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 2010-12-13 05:18:12 +00:00
parent 12ee1583c9
commit c8e2b0e1cf
2 changed files with 213 additions and 1 deletions

View File

@ -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";

View 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;