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:
lissav 2010-05-06 18:53:17 +00:00
parent 6862b48dbd
commit 619bd26748

View File

@ -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;