summaryrefslogtreecommitdiff
path: root/lib/Vyatta/Qos/Shared.pm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/Vyatta/Qos/Shared.pm')
-rw-r--r--lib/Vyatta/Qos/Shared.pm13
1 files changed, 7 insertions, 6 deletions
diff --git a/lib/Vyatta/Qos/Shared.pm b/lib/Vyatta/Qos/Shared.pm
index 2a0fc3d..2b13b04 100644
--- a/lib/Vyatta/Qos/Shared.pm
+++ b/lib/Vyatta/Qos/Shared.pm
@@ -28,21 +28,22 @@ our @EXPORT =
qw(find_policy interfaces_using get_policy_names list_policy %policies);
use base qw(Exporter);
-our %policies = (
+our %policies = (
'out' => {
'shaper-hfsc' => 'HFSCShaper',
'shaper' => 'TrafficShaper',
'fair-queue' => 'FairQueue',
+ 'fq-codel' => 'FairQueueCodel',
'rate-control' => 'RateLimiter',
'drop-tail' => 'DropTail',
'network-emulator' => 'NetworkEmulator',
'round-robin' => 'RoundRobin',
'priority-queue' => 'Priority',
'random-detect' => 'RandomDetect',
- },
+ },
'in' => {
'limiter' => 'TrafficLimiter',
- }
+ }
);
# find policy for name - also check for duplicates
@@ -106,12 +107,12 @@ sub get_policy_names {
$config->setLevel('traffic-policy');
- foreach my $direction ( @args ) {
+ foreach my $direction ( @args ) {
my @qos = grep { $policies{$direction}{$_} } $config->$listNodes();
foreach my $type (@qos) {
my @n = $config->$listNodes($type);
- push @names, @n;
- }
+ push @names, @n;
+ }
}
return @names;
}