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

More traffic shaping progress

Browse Source 
git-svn-id: https://shorewall.svn.sourceforge.net/svnroot/shorewall/trunk@5590 fbd18981-670d-0410-9b5c-8dc0c1a9a2bb
This commit is contained in:
teastep 2007-03-20 01:34:59 +00:00
parent d624332941
commit 1b1911a2d0
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
New/Shorewall/Tc.pm
View File

@ -421,7 +421,7 @@ sub setup_traffic_shaping() {
close TC;
my $devnum = 0;
my $devnum = 1;
$prefix = '10' if @tcdevices > 10;
@ -439,13 +439,14 @@ sub setup_traffic_shaping() {
emit "${dev}_exists=Yes";
emit "qt tc qdisc del dev $device root";
emit "qt tc qdisc del dev $device ingress";
emit "run_tc qdisc add dev $device root handle $devnum: htb default ${prefix}${defmark}";
emit "${dev}_mtu=\$(get_device_mtu $device)";
emit "run_tc class add dev $device parent $devnum: classid $devnum:1 htb rate $devref->{out_bandwidth} mtu \$${dev}_mtu";
my $inband = rate_to_kbit $devref->{in_bandwidth};
if ( $inband ) {
emit "run_tc add dev $device handle ffff: ingress";
emit "run_tc qdisc add dev $device handle ffff: ingress";
emit "run_tc filter add dev $device parent ffff: protocol ip prio 50 u32 match ip src 0.0.0.0/0 police rate ${inband} burst 10k drop flowid :1";
}