diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Vyatta/Qos/TrafficLimiter.pm (renamed from lib/Vyatta/Qos/IngressLimit.pm) | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lib/Vyatta/Qos/IngressLimit.pm b/lib/Vyatta/Qos/TrafficLimiter.pm index e9e2fbb..246d593 100644 --- a/lib/Vyatta/Qos/IngressLimit.pm +++ b/lib/Vyatta/Qos/TrafficLimiter.pm @@ -1,4 +1,5 @@ -# Ingress traffic limit +# Traffic limiter +# This is a rate limiter based on ingress qdisc # # **** License **** # This program is free software; you can redistribute it and/or modify @@ -11,22 +12,26 @@ # General Public License for more details. # # This code was originally developed by Vyatta, Inc. -# Portions created by Vyatta are Copyright (C) 2010 Vyatta, Inc. +# Portions created by Vyatta are Copyright (C) 2008 Vyatta, Inc. # All Rights Reserved. # **** End License **** -package Vyatta::Qos::IngressLimit; +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 = {}; + my $self = {%fields}; my $class = ref($that) || $that; bless $self, $class; @@ -36,6 +41,7 @@ sub new { } # Setup new instance. +# Assumes caller has done $config->setLevel to "traffic-limiter $name" sub _define { my ( $self, $config ) = @_; my $level = $config->setLevel(); |