intf='ppp0'
tc qdisc del dev $intf root

speed_limit=120kbit

tc qdisc add dev $intf root handle 1: htb default 10
tc class add dev $intf parent 1: classid 1:1 htb rate 100mbit

tc class add dev $intf parent 1:1 classid 1:5 htb rate $speed_limit prio 1
tc class add dev $intf parent 1:1 classid 1:10 htb rate $speed_limit burst 25k prio 1
tc class add dev $intf parent 1:1 classid 1:11 htb rate $speed_limit burst 25k prio 1
tc class add dev $intf parent 1:1 classid 1:12 htb rate $speed_limit burst 25k prio 1
tc class add dev $intf parent 1:1 classid 1:20 htb rate $speed_limit burst 25k prio 1
tc class add dev $intf parent 1:1 classid 1:25 htb rate $speed_limit burst 25k prio 1
tc class add dev $intf parent 1:1 classid 1:26 htb rate $speed_limit burst 25k prio 1
tc class add dev $intf parent 1:1 classid 1:30 htb rate $speed_limit burst 25k prio 1
tc class add dev $intf parent 1:1 classid 1:35 htb rate $speed_limit burst 25k prio 1
tc class add dev $intf parent 1:1 classid 1:90 htb rate $speed_limit burst 25k prio 1
tc class add dev $intf parent 1:1 classid 1:15 htb rate $speed_limit burst 25k prio 1
tc class add dev $intf parent 1:1 classid 1:100 htb rate $speed_limit burst 25k prio 1


tc qdisc add dev $intf parent 1:5 handle 5: sfq perturb 10
tc qdisc add dev $intf parent 1:10 handle 10: sfq perturb 10
tc qdisc add dev $intf parent 1:11 handle 11: sfq perturb 10
tc qdisc add dev $intf parent 1:12 handle 12: sfq perturb 10
tc qdisc add dev $intf parent 1:20 handle 20: sfq perturb 10
tc qdisc add dev $intf parent 1:25 handle 25: sfq perturb 10
tc qdisc add dev $intf parent 1:26 handle 26: sfq perturb 10
tc qdisc add dev $intf parent 1:30 handle 30: sfq perturb 10
tc qdisc add dev $intf parent 1:35 handle 35: sfq perturb 10
tc qdisc add dev $intf parent 1:90 handle 90: sfq perturb 10
tc qdisc add dev $intf parent 1:15 handle 15: sfq perturb 10
tc qdisc add dev $intf parent 1:100 handle 100: sfq perturb 10

tc filter add dev $intf parent 1: protocol ip u32 match ip dst 192.168.0.5 flowid 1:5
tc filter add dev $intf parent 1: protocol ip u32 match ip dst 192.168.0.11 flowid 1:11
tc filter add dev $intf parent 1: protocol ip u32 match ip dst 192.168.0.12 flowid 1:12
tc filter add dev $intf parent 1: protocol ip u32 match ip dst 192.168.0.20 flowid 1:20
tc filter add dev $intf parent 1: protocol ip u32 match ip dst 192.168.0.25 flowid 1:25
tc filter add dev $intf parent 1: protocol ip u32 match ip dst 192.168.0.26 flowid 1:26
tc filter add dev $intf parent 1: protocol ip u32 match ip dst 192.168.0.30 flowid 1:30
tc filter add dev $intf parent 1: protocol ip u32 match ip dst 192.168.0.35 flowid 1:35
tc filter add dev $intf parent 1: protocol ip u32 match ip dst 192.168.0.15 flowid 1:15
tc filter add dev $intf parent 1: protocol ip u32 match ip dst 192.168.0.90 flowid 1:90
tc filter add dev $intf parent 1: protocol ip u32 match ip dst 192.168.0.100 flowid 1:100