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

fix defect 3627

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@16988 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2013-07-17 10:54:05 +00:00
parent 0602dcfb6d
commit 437b9348d1
1 changed files with 11 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
xCAT-client/bin/xcatDBcmds
View File

@ -1,4 +1,6 @@
#!/usr/bin/perl
ot@hpcrhmn bin]# vi
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
BEGIN
{
@ -106,20 +108,15 @@ foreach my $a (@ARGV)
push(@{$cmdref->{arg}}, $a);
}
# For some commands we need to set the noderange value
# - don't want to depend on the order of args so need to pick
# the operand that doesn't have an "=" sign ( ie. attr=val format)
my @checkcmds = ("nimnodeset", "mkdsklsnode", "rmdsklsnode", "xcat2nim", "nimnodecust");
if (grep(/^$bname$/, @checkcmds) ) {
# strip off all options
# use getopt instead of getopts to let long options pass through
getopt('ismot');
# check the operands for a noderange
while (my $a = shift(@ARGV)) {
if (!($a =~ /=/) && !($a =~ /^-/)) {
$cmdref->{noderange}->[0]=$a;
last;
}
# Set the noderange value - needed for policy table noderange to work
# strip off all options
# use getopt instead of getopts to let long options pass through
getopt('ismot');
# check the operands for a noderange
while (my $a = shift(@ARGV)) {
if (!($a =~ /=/) && !($a =~ /^-/)) {
$cmdref->{noderange}->[0]=$a;
last;
}
}