summaryrefslogtreecommitdiff
path: root/lib
diff options
context:
space:
mode:
Diffstat (limited to 'lib')
-rw-r--r--lib/Vyatta/Qos/FairQueueCodel.pm66
-rw-r--r--lib/Vyatta/Qos/ShaperClass.pm38
-rw-r--r--lib/Vyatta/Qos/Shared.pm13
3 files changed, 102 insertions, 15 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;
diff --git a/lib/Vyatta/Qos/ShaperClass.pm b/lib/Vyatta/Qos/ShaperClass.pm
index 4d3cf33..b0d6343 100644
--- a/lib/Vyatta/Qos/ShaperClass.pm
+++ b/lib/Vyatta/Qos/ShaperClass.pm
@@ -51,7 +51,14 @@ sub new {
$self->{_qdisc} = $config->returnValue("queue-type");
$self->{_avgpkt} = $config->returnValue("packet-length");
$self->{_latency} = $config->returnValue("latency");
- $self->{_quantum} = $config->returnValue("quantum");
+ $self->{_quantum} = $config->returnValue("quantum");
+ $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; }
$self->{dsmark} = getDsfield( $config->returnValue("set-dscp") );
my @matches = _getMatch("$level match");
@@ -94,7 +101,7 @@ sub _getPercentRate {
}
return ( $percent * $speed ) / 100.;
- }
+ }
return getRate($rate);
}
@@ -122,6 +129,18 @@ sub sfqQdisc {
print "\n";
}
+sub codelQdisc {
+ my ( $self, $dev, $rate ) = @_;
+
+ print "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";
+}
+
sub sfqValidate {
my ( $self, $level ) = @_;
my $limit = $self->{_limit};
@@ -178,15 +197,15 @@ sub redQdisc {
sub redValidate {
my ( $self, $level, $rate ) = @_;
- my $limit = $self->{_limit}; # packets
- my $thresh = redQsize($rate); # bytes
+ my $limit = $self->{_limit}; # packets
+ my $thresh = redQsize($rate); # bytes
my $qmax = POSIX::ceil($thresh / AVGPKT); # packets
if ( defined($limit) && $limit < $qmax ) {
print STDERR "Configuration error in: $level\n";
printf STDERR
"The queue limit (%d) is too small, must be %d or more when using random-detect\n",
- $limit, $qmax;
+ $limit, $qmax;
exit 1;
}
@@ -194,16 +213,17 @@ sub redValidate {
my $minbw = ( 3 * AVGPKT * 8 ) / LATENCY;
print STDERR "Configuration error in: $level\n";
- printf STDERR
+ printf STDERR
"Random-detect queue type requires effective bandwidth of %d Kbit/sec or greater\n",
$minbw;
- exit 1;
+ exit 1;
}
}
my %qdiscOptions = (
'priority' => \&prioQdisc,
'fair-queue' => \&sfqQdisc,
+ 'fq-codel' => \&codelQdisc,
'random-detect' => \&redQdisc,
'drop-tail' => \&fifoQdisc,
);
@@ -264,7 +284,7 @@ sub gen_class {
# Hack to avoid kernel HTB message if quantum is small.
# Only occurs if link speed is high and offered bandwidth is small.
if ( defined($r2q) && !defined($quantum) && ($rate / 8) / $r2q < MINQUANTUM ) {
- $quantum = MINQUANTUM;
+ $quantum = MINQUANTUM;
}
printf "class add dev %s parent %x:1 classid %x:%x %s",
@@ -272,7 +292,7 @@ sub gen_class {
print " rate $rate" if ($rate);
print " ceil $ceil" if ($ceil);
- print " quantum $quantum" if ($quantum);
+ print " quantum $quantum" if ($quantum);
print " burst $self->{_burst}" if ( $self->{_burst} );
print " prio $self->{_priority}" if ( $self->{_priority} );
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;
}
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-10 00:42:02 +0000