Workaround CLI regex problem

Recent CLI changes seem to have broken working templates that
do regex matching. Workaround this by doing the syntax checking
all in the perl script

Bugfix: 3553

1 files changed, 14 insertions, 1 deletions

diff --git a/scripts/vyatta-qos-util.pl b/scripts/vyatta-qos-util.pl
index 1e842b8..8c3bafd 100755
--- a/scripts/vyatta-qos-util.pl
+++ b/scripts/vyatta-qos-util.pl
@@ -22,7 +22,10 @@ use lib "/opt/vyatta/share/perl5/";
 use VyattaQosUtil;
 use Getopt::Long;
 
+my ($percent, $rate, $burst, $protocol, $dsfield, $time);
+
 GetOptions(
+    "percent-or-rate=s" => \$percent,
     "rate=s"     => \$rate,
     "burst=s"    => \$burst,
     "protocol=s" => \$protocol,
@@ -31,6 +34,15 @@ GetOptions(
     "time=s"	 => \$time,
 );
 
+if ( defined $percent ) {
+    if ($percent =~ /%$/) {
+	my $p = VyattaQosUtil::getPercent($percent);
+    } else {
+	my $r = VyattaQosUtil::getRate($percent);
+    }
+    exit 0;
+}
+
 if ( defined $rate ) {
     my $r = VyattaQosUtil::getRate($rate);
     exit 0;
@@ -57,7 +69,8 @@ if ( defined $time ) {
 }
 
 print <<EOF;
-usage: vyatta-qos-util.pl --rate rate
+usage: vyatta-qos-util.pl --percent-or-rate value
+       vyatta-qos-util.pl --rate rate
        vyatta-qos-util.pl --time time
        vyatta-qos-util.pl --burst size
        vyatta-qos-util.pl --protocol protocol