Print correct names for completion

Want the policy names, not the policy type.

1 files changed, 7 insertions, 3 deletions

diff --git a/scripts/vyatta-qos.pl b/scripts/vyatta-qos.pl
index 0547b4b..4245e5e 100755
--- a/scripts/vyatta-qos.pl
+++ b/scripts/vyatta-qos.pl
@@ -94,9 +94,13 @@ sub list_policy {
     $config->setLevel('qos-policy');
 
     while ( my $direction = shift ) {
-        my @types =
-          grep { defined $policies{$direction}{$_} } $config->listNodes();
-        print join( ' ', @types );
+        my @qos = grep { $policies{$direction}{$_} } $config->listNodes();
+        my @names = ();
+        foreach my $type (@qos) {
+            my @n = $config->listNodes($type);
+            push @names, @n;
+        }
+        print join( ' ', @names ), "\n";
     }
 }