get dsmark working

This makes dsmark work. Need to round up to power of 2 and also
pass parent down to handle nested case properly.

1 files changed, 3 insertions, 3 deletions

diff --git a/scripts/VyattaQosMatch.pm b/scripts/VyattaQosMatch.pm
index 334b7c1..437dd50 100644
--- a/scripts/VyattaQosMatch.pm
+++ b/scripts/VyattaQosMatch.pm
@@ -41,7 +41,7 @@ sub _define {
 }
 
 sub filter {
-    my ( $self, $out, $dev, $id ) = @_;
+    my ( $self, $out, $dev, $parent, $id ) = @_;
     my $ip = $self->{_ip};
     my $indev = $self->{_dev};
     my $vif = $self->{_vif};
@@ -51,7 +51,7 @@ sub filter {
 	return;
     }
 
-    print {$out} "filter add dev $dev parent 1:0 prio 1";
+    print {$out} "filter add dev $dev parent $parent:0 prio 1";
     if (defined $ip) {
 	print {$out} " protocol ip u32";
 	print {$out} " match ip dsfield $$ip{dsfield} 0xff"
@@ -73,5 +73,5 @@ sub filter {
 	print {$out} " match meta\(vlan mask 0xfff eq $vif\)"
 	    if (defined $vif);
     }
-    print {$out} " classid 1:$id\n";
+    print {$out} " classid $parent:$id\n";
 }