Add incoming traffic limiting to Qos

This adds support for Qos using incoming policing. It is accepts the
syntax and processes commands, but is not fully debugged.

Bugfix: 3664

1 files changed, 4 insertions, 2 deletions

diff --git a/scripts/VyattaQosTrafficShaper.pm b/scripts/VyattaQosTrafficShaper.pm
index ce4ea3f..5f9fe75 100644
--- a/scripts/VyattaQosTrafficShaper.pm
+++ b/scripts/VyattaQosTrafficShaper.pm
@@ -384,7 +384,8 @@ sub commands {
 	foreach my $class (@$classes) {
 	    $class->dsmarkClass($out, 1, $dev);
 	    foreach my $match ($class->matchRules()) {
-		$match->filter($out, $dev, 1, $class->{id});
+		$match->filter($out, $dev, 1, 1);
+		printf {$out} " classid %x:%x\n", $parent, $class->{id};
 	    }
 	}
 
@@ -401,7 +402,8 @@ sub commands {
         $class->htbClass($out, $dev, $parent, $rate);
 
 	foreach my $match ($class->matchRules()) {
-	    $match->filter($out, $dev, $parent, $class->{id}, $class->{dsmark});
+	    $match->filter($out, $dev, $parent, 1, $class->{dsmark});
+	    printf {$out} " classid %x:%x\n", $parent, $class->{id};
 	}
     }
 }