Add drop-tail (aka FIFO) QoS policy

Add new configuration support for plain fifo queueing.
Better code for the table in perl script that loads queue objects.

1 files changed, 4 insertions, 4 deletions

diff --git a/scripts/vyatta-qos.pl b/scripts/vyatta-qos.pl
index 3d8e58b..690894d 100755
--- a/scripts/vyatta-qos.pl
+++ b/scripts/vyatta-qos.pl
@@ -46,10 +46,8 @@ my %policies = (
     'traffic-shaper' => "VyattaQosTrafficShaper",
     'fair-queue'     => "VyattaQosFairQueue",
     'rate-limit'     => "VyattaQosRateLimiter",
+    'drop-tail'	     => "VyattaQosDropTail",
 );
-use VyattaQosTrafficShaper;
-use VyattaQosFairQueue;
-use VyattaQosRateLimiter;
 
 sub make_policy {
     my ($config, $type, $name) = @_;
@@ -58,8 +56,10 @@ sub make_policy {
     # This means template exists but we don't know what it is.
     defined $class or die "Unknown policy type $type";
 
-    $config->setLevel("qos-policy $type $name");
+    my $location = "$class.pm";
+    require $location;
 
+    $config->setLevel("qos-policy $type $name");
     return $class->new($config, $name);
 }