From dbe936c7c9bb246ccba2158b8b2e172b1af5db11 Mon Sep 17 00:00:00 2001 From: Tom Eastep Date: Mon, 17 Oct 2011 06:29:27 -0700 Subject: [PATCH] Cleanup of new IN-BANDWIDTH handling (avoids a syntax error) Signed-off-by: Tom Eastep --- Shorewall/Perl/Shorewall/Tc.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/Shorewall/Perl/Shorewall/Tc.pm b/Shorewall/Perl/Shorewall/Tc.pm index dd2593f71..3b8d95ff2 100644 --- a/Shorewall/Perl/Shorewall/Tc.pm +++ b/Shorewall/Perl/Shorewall/Tc.pm @@ -573,14 +573,14 @@ sub process_in_bandwidth( $ ) { sub handle_in_bandwidth( $$ ) { my ($physical, $arrayref ) = @_;; - my ($in_rate, $in_burst, $in_avrate, $interval, $decay ) = @$arrayref; + my ($in_rate, $in_burst, $in_avrate, $in_interval, $in_decay ) = @$arrayref; emit ( "run_tc qdisc add dev $physical handle ffff: ingress", "run_tc filter add dev $physical parent ffff: protocol all prio 10 " . - "\\\n estimator $interval $decay basic\\" ); + "\\\n estimator $in_interval $in_decay basic\\" ); if ( $in_rate ) { - emit( " police mpu 64 rate ${rate}kbit burst $in_burst action drop\n" ); + emit( " police mpu 64 rate ${in_rate}kbit burst $in_burst action drop\n" ); } else { emit( " police avrate ${in_avrate}kbit action drop\n" ); }