support lslite command.
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@7118 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
226bb0d06d
commit
9e181a4ff9
@ -29,12 +29,25 @@ if (-p STDIN) {
|
||||
$cmdref->{stdin}->[0]=$data;
|
||||
}
|
||||
|
||||
# Consider the 1st non-hyphen arg to be the noderange. All others (before and after) go on the arg list.
|
||||
my $arg=shift(@ARGV);
|
||||
while ($arg =~ /^-/) {
|
||||
push (@{$cmdref->{arg}}, $arg);
|
||||
$arg=shift(@ARGV);
|
||||
my $arg;
|
||||
my @tmpargv = @ARGV;
|
||||
|
||||
# lslite needs to handle imagename besides noderange
|
||||
# so do not fill {noderange} if imagename given
|
||||
my $str = join(',', @tmpargv);
|
||||
if (($bname =~ /lslite/) && $str =~ /-i/)
|
||||
{
|
||||
$arg = "NO_NODE_RANGE";
|
||||
}
|
||||
else
|
||||
{ # Consider the 1st non-hyphen arg to be the noderange. All others (before and after) go on the arg list.
|
||||
$arg=shift(@ARGV);
|
||||
while ($arg =~ /^-/) {
|
||||
push (@{$cmdref->{arg}}, $arg);
|
||||
$arg=shift(@ARGV);
|
||||
}
|
||||
}
|
||||
|
||||
if ($arg ne "NO_NODE_RANGE") {
|
||||
# The noderange can be specified through a noderange file,
|
||||
# the noderange file can be a relative path,
|
||||
|
Loading…
Reference in New Issue
Block a user