arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

move --resetnet from lsslp to rspconfig

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9656 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
yinle 2011-05-23 10:00:31 +00:00
parent aa00d93e11
commit 2bce8884fe
1 changed files with 33 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

39
perl-xCAT/xCAT/FSPcfg.pm
View File

@ -31,27 +31,31 @@ sub parse_args {
"HMC_passwd",
"admin_passwd",
"general_passwd",
"*_passwd"
"*_passwd",
"resetnet",
);
my @bpa = (
"frame",
"HMC_passwd",
"admin_passwd",
"general_passwd",
"*_passwd"
"*_passwd",
"resetnet"
);
my @cec = (
"HMC_passwd",
"admin_passwd",
"general_passwd",
"*_passwd"
"*_passwd",
"resetnet"
);
my @frame = (
"frame",
"HMC_passwd",
"admin_passwd",
"general_passwd",
"*_passwd"
"*_passwd",
"resetnet"
);
@ -103,7 +107,7 @@ sub parse_args {
Getopt::Long::Configure( "bundling" );
$request->{method} = undef;
if ( !GetOptions( \%opt, qw(V|Verbose) )) {
if ( !GetOptions( \%opt, qw(V|Verbose resetnet))) {
return( usage() );
}
####################################
@ -123,7 +127,7 @@ sub parse_args {
####################################
foreach my $arg ( @ARGV ) {
my ($command,$value) = split( /=/, $arg );
if ( !grep( /^$command$/, @$supported )) {
if ( !grep( /^$command$/, @$supported) and !$opt{resetnet}) {
return(usage( "Invalid command for $request->{hwtype} : $arg" ));
}
if ( exists( $cmds{$command} )) {
@ -159,6 +163,14 @@ sub parse_args {
return( \%opt );
}
####################################
# Return method to invoke
####################################
if ( $opt{resetnet} ) {
$request->{hcp} = "fsp";
$request->{method} = "resetnet";
return( \%opt );
}
####################################
# Return method to invoke
####################################
@ -468,5 +480,20 @@ sub fsp_api_passwd {
}
##########################################################################
# Do resetnet
##########################################################################
sub resetnet {
my $request = shift;
my $hash = shift;
my %nodehash;
foreach ( @{$request->{noderange}}) {
$nodehash{$_} = 1;
}
# go to use lsslp do_resetnet
my $result = xCAT_plugin::lsslp::do_resetnet($request, \%nodehash);
return [$result];
}
1;