Merge pull request #4 from kouak/bug446

Bug #446: fq_codel patch from Carl Byington

1 files changed, 66 insertions, 0 deletions

diff --git a/lib/Vyatta/Qos/FairQueueCodel.pm b/lib/Vyatta/Qos/FairQueueCodel.pm
new file mode 100644
index 0000000..a6f4220
--- /dev/null
+++ b/lib/Vyatta/Qos/FairQueueCodel.pm
@@ -0,0 +1,66 @@
+# This is a wrapper around fq_codel queue discipline
+#
+#
+# **** License ****
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License version 2 as
+# published by the Free Software Foundation.
+#
+# This program is distributed in the hope that it will be useful, but
+# WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+# General Public License for more details.
+#
+# This code was originally developed by Vyatta, Inc.
+# Portions created by Vyatta are Copyright (C) 2008 Vyatta, Inc.
+# All Rights Reserved.
+# **** End License ****
+
+package Vyatta::Qos::FairQueueCodel;
+
+use strict;
+use warnings;
+
+require Vyatta::Config;
+
+# Fair Queue Codel
+# Uses fq_codel
+
+my %fields = (
+    _limit    => undef,
+    _flows    => undef,
+    _target   => undef,
+    _interval => undef,
+    _quantum  => undef,
+);
+
+sub new {
+    my ( $that, $config ) = @_;
+    my $class = ref($that) || $that;
+    my $self = {%fields};
+
+    $self->{_limit}    = $config->returnValue('queue-limit');
+    $self->{_flows}    = $config->returnValue('flows');
+    $self->{_target}   = $config->returnValue('target');
+    $self->{_interval} = $config->returnValue('interval');
+    $self->{_cquantum} = $config->returnValue('codel-quantum');
+
+    if ( $self->{_target} )    { $self->{_target} *= 1000; }
+    if ( $self->{_interval} )  { $self->{_interval} *= 1000; }
+
+    return bless $self, $class;
+}
+
+sub commands {
+    my ( $self, $dev ) = @_;
+
+    print "qdisc add dev $dev root fq_codel";
+    print " limit    $self->{_limit}"    if ( $self->{_limit} );
+    print " flows    $self->{_flows}"    if ( $self->{_flows} );
+    print " target   $self->{_target}"   if ( $self->{_target} );
+    print " interval $self->{_interval}" if ( $self->{_interval} );
+    print " quantum  $self->{_cquantum}" if ( $self->{_cquantum} );
+    print " noecn\n";
+}
+
+1;