extern/shorewall_code
1
0
Fork 1
mirror of https://gitlab.com/shorewall/code.git synced 2024-11-28 02:23:20 +01:00
Code Issues Packages Projects Releases Wiki Activity

Remove some crudeness from the traffic shaping code

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@7838 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-12-06 19:26:12 +00:00
parent 9f7cfc8489
commit cf4b54e762
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Shorewall-perl/Shorewall/Tc.pm
View File

@ -324,21 +324,22 @@ sub validate_tc_device( $$$$ ) {
fatal_error "Duplicate device ($device)" if $tcdevices{$device}; fatal_error "Duplicate device ($device)" if $tcdevices{$device};
fatal_error "Invalid device name ($device)" if $device =~ /[:+]/; fatal_error "Invalid device name ($device)" if $device =~ /[:+]/;
$tcdevices{$device} = {}; my $classify = 0;
$tcdevices{$device}{in_bandwidth} = rate_to_kbit( $inband ) . 'kbit';
$tcdevices{$device}{out_bandwidth} = rate_to_kbit( $outband ) . 'kbit';
$tcdevices{$device}{classify} = 0;
if ( $options ne '-' ) { if ( $options ne '-' ) {
for my $option ( split /,/, $options ) { for my $option ( split /,/, $options ) {
if ( $option eq 'classify' ) { if ( $option eq 'classify' ) {
$tcdevices{$device}{classify} = 1; $classify = 1;
} else { } else {
fatal_error "Unknown device option ($option)"; fatal_error "Unknown device option ($option)";
} }
} }
} }
$tcdevices{$device} = { in_bandwidth => rate_to_kbit( $inband ) . 'kbit' ,
out_bandwidth => rate_to_kbit( $outband ) . 'kbit' ,
classify => $classify };
push @tcdevices, $device; push @tcdevices, $device;
progress_message " Tcdevice \"$currentline\" $done."; progress_message " Tcdevice \"$currentline\" $done.";