extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2025-06-21 10:18:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

Correct mark range with shifted mask.

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2012-10-26 12:41:06 -07:00
parent e908473d29
commit 3f1aeb33be
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
Shorewall/Perl/Shorewall/Tc.pm
View File

@ -644,12 +644,13 @@ sub process_tc_rule( ) {
$mask = numeric_value $mask; $mask = numeric_value $mask;
my $increment = 1; my $increment = 1;
my $shift = 0;
$increment <<= 1 until $increment & $mask; $increment <<= 1, $shift++ until $increment & $mask;
$mask = in_hex $mask; $mask = in_hex $mask;
my $marks = $mark1val - $markval + 1; my $marks = ( ( $mark1val - $markval ) >> $shift ) + 1;
for ( my $packet = 0; $packet < $marks; $packet++, $markval += $increment ) { for ( my $packet = 0; $packet < $marks; $packet++, $markval += $increment ) {
my $match = "-m statistic --mode nth --every $marks --packet $packet "; my $match = "-m statistic --mode nth --every $marks --packet $packet ";