Revert "Move traffic-limiter to input-policy"

This reverts commit b75a66a4d5768f22a4b995d49ba442de8762a800.

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();