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

Cleanup of new IN-BANDWIDTH handling.

Browse Source 
Signed-off-by: Tom Eastep <teastep@shorewall.net>
This commit is contained in:
Tom Eastep 2011-10-18 05:53:50 -07:00
parent 15915799b9
commit 62d43ab6dd
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -521,6 +521,9 @@ sub calculate_quantum( $$ ) {
int( ( $rate * 125 ) / $r2q ); int( ( $rate * 125 ) / $r2q );
} }
#
# The next two function implement handling of the IN-BANDWIDTH column in both tcdevices and tcinterfaces
#
sub process_in_bandwidth( $ ) { sub process_in_bandwidth( $ ) {
my $in_rate = shift; my $in_rate = shift;
@ -566,9 +569,7 @@ sub process_in_bandwidth( $ ) {
} }
my @result = ( $in_rate, $in_burst, $in_avrate, $in_interval, $in_decay); [ $in_rate, $in_burst, $in_avrate, $in_interval, $in_decay ];
\@result;
} }
sub handle_in_bandwidth( $$ ) { sub handle_in_bandwidth( $$ ) {