diff options
Diffstat (limited to 'scripts')
| -rwxr-xr-x | scripts/vyatta-qos.pl | 10 |
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"; } } |