xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-05-31 01:56:39 +00:00
Code Issues Releases Wiki Activity

fix issue 5627, find verbose option and delete it for openbmc perl (#5629)

Browse Source
This commit is contained in:
xuweibj 2018-09-14 18:21:40 +08:00 committed by Bin Xu
parent 089c6c576c
commit 8132701423
1 changed files with 5 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
xCAT-server/lib/xcat/plugins/openbmc.pm
View File

@ -1224,12 +1224,6 @@ sub parse_args {
return ([ 1, "Error parsing arguments." ]);
}
# If command includes '-V', it must be the last one prarmeter. Or print error message.
if ($verbose) {
my $option = $$extrargs[-1];
return ([ 1, "Error parsing arguments." ]) if ($option !~ /V|verbose/);
}
if (scalar(@ARGV) >= 2 and ($command =~ /rpower|rinv|rvitals/)) {
return ([ 1, "Only one option is supported at the same time for $command" ]);
} elsif (scalar(@ARGV) >= 2 and $command eq "reventlog") {
@ -1514,9 +1508,11 @@ sub parse_command_status {
return if ($command eq "getopenbmccons");
if ($$subcommands[-1] and $$subcommands[-1] =~ /V|verbose/) {
$::VERBOSE = 1;
pop(@$subcommands);
for (my $i = $#{ $subcommands }; $i >= 0; $i--) {
if (${ $subcommands }[$i] =~ /^-V$|^--verbose$/) {
$::VERBOSE = 1;
splice(@{ $subcommands }, $i, 1);
}
}
$next_status{LOGIN_REQUEST} = "LOGIN_RESPONSE";