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

fix parsing

Browse Source
This commit is contained in:
lissav
2014-03-12 11:33:27 -04:00
parent acc07123e9
commit 24da10e021
1 changed files with 8 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
xCAT-server/lib/xcat/plugins/zone.pm
View File

@@ -97,10 +97,14 @@ sub process_request
@ARGV = @{$args}; # get arguments
# Get the zonename if it is in the input
my @SaveARGV = @ARGV;
my $zonename = @SaveARGV[0]; # here is the zonename, if there is one
if ($zonename) { # take zonename off the argument list so it will parse correctly
my $tmp = shift(@SaveARGV);
@ARGV = @SaveARGV;
my $zonename;
my $arg= @SaveARGV[0];
if (!($arg =~ /-h/) && (!($arg =~ /-v/))) { # if not -h -v,then it must be a zone name
$zonename = @SaveARGV[0]; # here is the zonename, if there is one
if ($zonename) { # take zonename off the argument list so it will parse correctly
my $tmp = shift(@SaveARGV);
@ARGV = @SaveARGV;
}
}
Getopt::Long::Configure("posix_default");
Getopt::Long::Configure("no_gnu_compat");