Merge pull request #4 from kouak/bug446

Bug #446: fq_codel patch from Carl Byington

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