From 72e21be89d5f0a11b23d2377d23c462bfcf96ec1 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Thu, 4 Aug 2016 11:03:36 -0700 Subject: [PATCH] Add a handle back to the flow classifier Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Tc.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/Shorewall/Perl/Shorewall/Tc.pm b/Shorewall/Perl/Shorewall/Tc.pm index 41d1f8cec..f87d7f740 100644 --- a/Shorewall/Perl/Shorewall/Tc.pm +++ b/Shorewall/Perl/Shorewall/Tc.pm @@ -350,9 +350,10 @@ sub process_simple_device() { for ( my $i = 1; $i <= 3; $i++ ) { my $prio = 16 | $i; + my $j = $i + 3; emit "run_tc qdisc add dev $physical parent $number:$i handle ${number}${i}: sfq quantum 1875 limit 127 perturb 10"; emit "run_tc filter add dev $physical protocol all prio $prio parent $number: handle $i fw classid $number:$i"; - emit "run_tc filter add dev $physical protocol all prio 1 parent ${number}$i: flow hash keys $type divisor 1024" if $type ne '-' && have_capability 'FLOW_FILTER'; + emit "run_tc filter add dev $physical protocol all prio 1 parent ${number}$i: handle $j flow hash keys $type divisor 1024" if $type ne '-' && have_capability 'FLOW_FILTER'; emit ''; }