summaryrefslogtreecommitdiff
path: root/lib/Vyatta/Qos/TrafficLimiter.pm
diff options
context:
space:
mode:
authorStephen Hemminger <stephen.hemminger@vyatta.com>2010-04-06 15:30:59 -0700
committerStephen Hemminger <stephen.hemminger@vyatta.com>2010-04-06 15:30:59 -0700
commitb75a66a4d5768f22a4b995d49ba442de8762a800 (patch)
treefa14f29b93c295b7e4800c9c1f1b1a217188468a /lib/Vyatta/Qos/TrafficLimiter.pm
parentc0d93ca34ddb1b6569d42737692e6a06b99d59d4 (diff)
downloadvyatta-cfg-qos-b75a66a4d5768f22a4b995d49ba442de8762a800.tar.gz
vyatta-cfg-qos-b75a66a4d5768f22a4b995d49ba442de8762a800.zip
Move traffic-limiter to input-policy
This changes: qos-policy traffic-limiter foo class ... interfaces ethernet eth0 qos-policy in foo to interface ethernet eth0 input-policy limit class ... Which unifies all uses of ingress qdisc (limit, redirect, mirror) into a single usage model.
Diffstat (limited to 'lib/Vyatta/Qos/TrafficLimiter.pm')
-rw-r--r--lib/Vyatta/Qos/TrafficLimiter.pm93
1 files changed, 0 insertions, 93 deletions
diff --git a/lib/Vyatta/Qos/TrafficLimiter.pm b/lib/Vyatta/Qos/TrafficLimiter.pm
deleted file mode 100644
index 1ac61b2..0000000
--- a/lib/Vyatta/Qos/TrafficLimiter.pm
+++ /dev/null
@@ -1,93 +0,0 @@
-# Traffic limiter
-# This is a rate limiter based on ingress qdisc
-#
-# **** 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::TrafficLimiter;
-use strict;
-use warnings;
-
-require Vyatta::Config;
-require Vyatta::Qos::LimiterClass;
-
-my %fields = (
- _level => undef,
- _classes => undef,
-);
-
-# Create a new instance based on config information
-sub new {
- my ( $that, $config, $name ) = @_;
- my $self = {%fields};
- my $class = ref($that) || $that;
-
- bless $self, $class;
- $self->_define($config);
-
- return $self;
-}
-
-# Setup new instance.
-# Assumes caller has done $config->setLevel to "traffic-limiter $name"
-sub _define {
- my ( $self, $config ) = @_;
- my $level = $config->setLevel();
- my @classes = ();
-
- $self->{_level} = $level;
-
- # make sure no clash of different types of tc filters
- my %matchTypes = ();
- foreach my $class ( $config->listNodes("class") ) {
- foreach my $match ( $config->listNodes("class $class match") ) {
- foreach my $type ( $config->listNodes("class $class match $match") ) {
- next if ($type eq 'description');
- $matchTypes{$type} = "$class match $match";
- }
- }
- }
-
- if ( scalar keys %matchTypes > 1 && $matchTypes{ip} ) {
- print "Match type conflict:\n";
- while ( my ( $type, $usage ) = each(%matchTypes) ) {
- print " class $usage $type\n";
- }
- die "$level can not match on both ip and other types\n";
- }
-
- foreach my $id ( $config->listNodes("class") ) {
- $config->setLevel("$level class $id");
- push @classes, new Vyatta::Qos::LimiterClass( $config, $id );
- }
- $self->{_classes} = \@classes;
-}
-
-sub commands {
- my ( $self, $dev, $parent ) = @_;
- my $classes = $self->{_classes};
-
- foreach my $class (@$classes) {
- foreach my $match ( $class->matchRules() ) {
- my $police = " police rate " . $class->{rate}
- . " burst " . $class->{burst};
-
- $match->filter( $dev, $parent, $class->{id}, $class->{priority},
- undef, $police );
- }
- }
-}
-
-1;