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

If no nodes specified for nodepurge, nodechprofile and noderefresh, then just print help message

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@14880 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
leiaibj 2013-01-15 05:47:34 +00:00
parent 485bf6c6b1
commit f176866943
1 changed files with 17 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
xCAT-server/lib/xcat/plugins/profilednodes.pm
View File

@ -428,10 +428,6 @@ Usage:
#-------------------------------------------------------
sub nodepurge{
my $nodes = $request->{node};
xCAT::MsgUtils->message('S', "Purging nodes.");
# For remove nodes, we should call 'nodemgmt' in front of 'noderm'
setrsp_progress("Configuring nodes...");
my $helpmsg = "nodepurge: Removes nodes from database and system configuration.
Usage:
\tnodepurge <noderange>
@ -442,6 +438,14 @@ Usage:
if (! $ret){
return;
}
if (! $nodes){
setrsp_infostr($helpmsg);
return;
}
xCAT::MsgUtils->message('S', "Purging nodes.");
# For remove nodes, we should call 'nodemgmt' in front of 'noderm'
setrsp_progress("Configuring nodes...");
my $warnstr = "";
my $retref = xCAT::Utils->runxcmd({command=>["kitnoderemove"], node=>$nodes, sequential=>[1]}, $request_command, 0, 2);
@ -488,6 +492,10 @@ Usage:
\tnoderefresh [-h|--help]
\tnoderefresh {-v|--version}";
if (! $nodes){
setrsp_infostr($helpmsg);
return;
}
my $ret = validate_args($helpmsg);
if (! $ret){
return;
@ -514,13 +522,15 @@ Usage:
#-------------------------------------------------------
sub nodechprofile{
my $nodes = $request->{node};
xCAT::MsgUtils->message('S', "Update nodes' profile settings.");
my $helpmsg = "nodechprofile: Update node profiles for profiled nodes.
Usage:
\tnodechprofile <noderange> [networkprofile=<networkprofile>] [imageprofile=<imageprofile>] [hardwareprofile=<hardwareprofile>]
\tnodechprofile [-h|--help]
\tnodechprofile {-v|--version}";
if (! $nodes){
setrsp_infostr($helpmsg);
return;
}
my @enabledparams = ('networkprofile', 'hardwareprofile', 'imageprofile');
my $ret = validate_args($helpmsg, \@enabledparams);
@ -528,6 +538,7 @@ Usage:
return;
}
xCAT::MsgUtils->message('S', "Update nodes' profile settings.");
my %updated_groups;
# Get current templates for all nodes.
setrsp_progress("Getting all node groups from the database...");