Clean out unused code.
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@527 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
99fc35a9a9
commit
45560a3017
@ -62,57 +62,5 @@ foreach (@ARGV)
|
||||
push(@{$cmdref->{arg}}, $_);
|
||||
}
|
||||
|
||||
|
||||
#
|
||||
# We need to see if a noderange was provided on the command line
|
||||
# - the command line could be flags(options) -> noderange -> attr=val pairs
|
||||
# - the noderange is used by xCAT remote access support infrastructure
|
||||
# so we need to set it now
|
||||
#
|
||||
|
||||
use Getopt::Long;
|
||||
|
||||
# Allows opts to be grouped (e.g. -avx)
|
||||
Getopt::Long::Configure("bundling");
|
||||
|
||||
# parse the options
|
||||
if (
|
||||
!GetOptions(
|
||||
'all|a' => \$::opt_a,
|
||||
'dynamic|d' => \$::opt_d,
|
||||
'f|force' => \$::opt_f,
|
||||
'i=s' => \$::opt_i,
|
||||
'help|h' => \$::opt_h,
|
||||
'long|l' => \$::opt_l,
|
||||
'm|minus' => \$::opt_m,
|
||||
'o=s' => \$::opt_o,
|
||||
'r|replace' => \$::opt_r,
|
||||
't=s' => \$::opt_t,
|
||||
'update|u' => \$::opt_u,
|
||||
'verbose|V' => \$::opt_V,
|
||||
'version|v' => \$::opt_v,
|
||||
'w=s' => \$::opt_w,
|
||||
'x|xml' => \$::opt_x,
|
||||
'z|stanza' => \$::opt_z
|
||||
)
|
||||
)
|
||||
{
|
||||
return 1;
|
||||
}
|
||||
|
||||
# a node range would be the next arg - but not if it contains an "=" sign
|
||||
# - then it would be an attr=val operand
|
||||
my $arg = shift(@ARGV);
|
||||
if (!($arg =~ /=/))
|
||||
{
|
||||
# only set the noderange if it was a type of node or the type
|
||||
# wasn't specified.
|
||||
if (!$::opt_t || ($::opt_t eq 'node')) {
|
||||
$cmdref->{noderange}->[0] = $arg;
|
||||
}
|
||||
|
||||
}
|
||||
|
||||
|
||||
xCAT::Client::submit_request($cmdref,\&xCAT::Client::handle_response);
|
||||
exit $xCAT::Client::EXITCODE;
|
||||
|
Loading…
Reference in New Issue
Block a user