Cleanup of new IN-BANDWIDTH handling (avoids a syntax error)

Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2011-10-17 06:29:27 -07:00
parent 4d83201843
commit dbe936c7c9

View File

@ -573,14 +573,14 @@ sub process_in_bandwidth( $ ) {
sub handle_in_bandwidth( $$ ) { sub handle_in_bandwidth( $$ ) {
my ($physical, $arrayref ) = @_;; 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", emit ( "run_tc qdisc add dev $physical handle ffff: ingress",
"run_tc filter add dev $physical parent ffff: protocol all prio 10 " . "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 ) { 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 { } else {
emit( " police avrate ${in_avrate}kbit action drop\n" ); emit( " police avrate ${in_avrate}kbit action drop\n" );
} }