diff options
author | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2008-11-20 12:16:02 -0800 |
---|---|---|
committer | Stephen Hemminger <stephen.hemminger@vyatta.com> | 2008-11-20 20:34:16 -0800 |
commit | 790663c88fb291ddb5b645bdde62d8229d5e115b (patch) | |
tree | bdf236cc76437e82df9254d3cb89ef1c271424bc /scripts/VyattaQosDropTail.pm | |
parent | 22fba825c57ed336bca64ff154bbd911bc6754d5 (diff) | |
download | vyatta-cfg-qos-790663c88fb291ddb5b645bdde62d8229d5e115b.tar.gz vyatta-cfg-qos-790663c88fb291ddb5b645bdde62d8229d5e115b.zip |
Change perl module names from VyattaQosXXX to Vyatta::Qos:XXX
Use more multi-level directory hierarchy instead of having all
modules at top level.
Diffstat (limited to 'scripts/VyattaQosDropTail.pm')
-rw-r--r-- | scripts/VyattaQosDropTail.pm | 57 |
1 files changed, 0 insertions, 57 deletions
diff --git a/scripts/VyattaQosDropTail.pm b/scripts/VyattaQosDropTail.pm deleted file mode 100644 index 1345fb0..0000000 --- a/scripts/VyattaQosDropTail.pm +++ /dev/null @@ -1,57 +0,0 @@ -# This is a wrapper around FIFO 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 VyattaQosDropTail; - -use strict; -require VyattaConfig; -use VyattaQosUtil; - -my %fields = ( - _limit => undef, -); - -sub new { - my ( $that, $config ) = @_; - my $level = $config->setLevel(); - my $class = ref($that) || $that; - my $self = {%fields}; - - $self->{_limit} = $config->returnValue("queue-limit"); - - return bless $self, $class; -} - -sub commands { - my ( $self, $out, $dev ) = @_; - my $limit = $self->{_limit}; - my $cmd = "qdisc add dev $dev root pfifo"; - - $cmd .= " limit $limit" if defined $limit; - printf {$out} "%s\n", $cmd; -} - -sub isChanged { - my ($self, $name) = @_; - my $config = new VyattaConfig; - - $config->setLevel("qos-policy drop-tail $name"); - return $config->isChanged('queue-limit'); -} - -1; |