Change perl module names from VyattaQosXXX to Vyatta::Qos:XXX

Use more multi-level directory hierarchy instead of having all
modules at top level.

1 files changed, 0 insertions, 71 deletions

diff --git a/scripts/VyattaQosRateLimiter.pm b/scripts/VyattaQosRateLimiter.pm
deleted file mode 100644
index f519683..0000000
--- a/scripts/VyattaQosRateLimiter.pm
+++ /dev/null
@@ -1,71 +0,0 @@
-# This is a wrapper around Token Bucket Filter (TBF) 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 VyattaQosRateLimiter;
-
-use strict;
-
-require VyattaConfig;
-use VyattaQosUtil;
-
-my %fields = (
-    _rate	=> undef,
-    _burst	=> undef,
-    _latency	=> undef,
-);
-
-sub new {
-    my ( $that, $config ) = @_;
-    my $level = $config->setLevel();
-    my $class = ref($that) || $that;
-    my $self = {%fields};
-
-    $self->{_rate}     = VyattaQosUtil::getRate($config->returnValue("bandwidth"));
-    defined $self->{_rate}  or die "$level bandwidth not defined\n";
-
-    $self->{_burst}     = $config->returnValue("burst");
-    defined $self->{_burst}  or die "$level burst not defined\n";
-
-    $self->{_latency}     = VyattaQosUtil::getTime($config->returnValue("latency"));
-    defined $self->{_latency}  or die "$level latency not defined\n";
-
-    return bless $self, $class;
-}
-
-sub commands {
-    my ( $self, $out, $dev ) = @_;
-
-    
-    printf {$out} "qdisc add dev %s root tbf rate %s latency %s burst %s\n",
-	    $dev, $self->{_rate}, $self->{_latency}, $self->{_burst};
-}
-
-sub isChanged {
-    my ($self, $name) = @_;
-    my $config = new VyattaConfig;
-
-    $config->setLevel("qos-policy rate-limit $name");
-    foreach my $attr ('bandwidth', 'burst', 'latency') {
-	if ($config->isChanged($attr)) {
-	    return $attr
-	}
-    }
-    return undef; # false
-}
-
-1;