check at least one flag supplied
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@5997 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
6862b48dbd
commit
619bd26748
@ -621,6 +621,14 @@ sub tabprune
|
||||
$cb->(\%rsp);
|
||||
return 1;
|
||||
|
||||
}
|
||||
if (!(defined $PERCENT ) && (!(defined $RECID) && (!(defined $ALL)) && (!(defined $NUMBERENTRIES)))) {
|
||||
my %rsp;
|
||||
$rsp{data}->[0] = "One option -p or -i or -n or -a must be supplied.";
|
||||
$rsp{errorcode} = 1;
|
||||
$cb->(\%rsp);
|
||||
return 1;
|
||||
|
||||
}
|
||||
if ((defined $PERCENT ) && ((defined $RECID) || (defined $ALL) || (defined $NUMBERENTRIES))) {
|
||||
my %rsp;
|
||||
|
Loading…
Reference in New Issue
Block a user