holm/shorewall_code
1
0
Fork 0
forked from extern/shorewall_code
Code Pull Requests Activity

Eliminate silly mistake

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@8464 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2008-04-20 15:17:57 +00:00
parent 3b9a7e5f8e
commit dd8f738a58
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -413,7 +413,7 @@ sub convert_rate( $$$ ) {
fatal_error "$column ($_[1]) exceeds OUT-BANDWIDTH" if $rate > $full;
"${rate}kbit";
$rate;
}
sub dev_by_number( $ ) {
@ -773,7 +773,7 @@ sub setup_traffic_shaping() {
my $tcref = $tcclasses{$device}{$mark};
my $devicenumber = $devref->{number};
my $classid = join( '', $devicenumber, ':', $mark);
my $rate = $tcref->{rate};
my $rate = "$tcref->{rate}kbit";
my $quantum = calculate_quantum $rate, calculate_r2q( $devref->{out_bandwidth} );
my $dev = chain_base $device;
@ -791,7 +791,7 @@ sub setup_traffic_shaping() {
}
emit ( "[ \$${dev}_mtu -gt $quantum ] && quantum=\$${dev}_mtu || quantum=$quantum",
"run_tc class add dev $device parent $devref->{number}:1 classid $classid htb rate $rate ceil $tcref->{ceiling} prio $tcref->{priority} \$${dev}_mtu1 quantum \$quantum",
"run_tc class add dev $device parent $devref->{number}:1 classid $classid htb rate $rate ceil $tcref->{ceiling}kbit prio $tcref->{priority} \$${dev}_mtu1 quantum \$quantum",
"run_tc qdisc add dev $device parent $classid handle ${mark}: sfq perturb 10"
);
#