{

$OUT = '';
our $r2q = $qos{'r2q'} || '';
$r2q = "r2q $r2q" if ($r2q ne '');

}


$TC qdisc add dev $EXTDEV root handle 1: htb {"$r2q";}

$TC class add dev $EXTDEV parent 1: classid 1:1 htb rate $\{UPLINK\}kbit ceil $\{UPLINK\}kbit burst 10k

$TC class add dev $EXTDEV parent 1:1 classid 1:10 htb rate $\{CLASS_1\}kbit ceil $\{UPLINK\}kbit prio 1 burst 5k
$TC class add dev $EXTDEV parent 1:1 classid 1:11 htb rate $\{CLASS_2\}kbit ceil $\{UPLINK\}kbit prio 2 burst 5k
$TC class add dev $EXTDEV parent 1:1 classid 1:12 htb rate $\{CLASS_3\}kbit ceil $\{UPLINK\}kbit prio 3
$TC class add dev $EXTDEV parent 1:1 classid 1:13 htb rate $\{CLASS_4\}kbit ceil $\{UPLINK\}kbit prio 4
$TC class add dev $EXTDEV parent 1:1 classid 1:14 htb rate $\{CLASS_5\}kbit ceil $\{UPLINK\}kbit prio 5

$TC qdisc add dev $EXTDEV parent 1:10 handle 110: pfifo limit 1000
$TC qdisc add dev $EXTDEV parent 1:11 handle 111: sfq perturb 10
$TC qdisc add dev $EXTDEV parent 1:12 handle 112: sfq perturb 10
$TC qdisc add dev $EXTDEV parent 1:13 handle 113: sfq perturb 10
$TC qdisc add dev $EXTDEV parent 1:14 handle 114: sfq perturb 10

$TC filter add dev $EXTDEV parent 1:0 protocol ip prio 1 handle 1 fw flowid 1:10
$TC filter add dev $EXTDEV parent 1:0 protocol ip prio 2 handle 2 fw flowid 1:11
$TC filter add dev $EXTDEV parent 1:0 protocol ip prio 3 handle 3 fw flowid 1:12
$TC filter add dev $EXTDEV parent 1:0 protocol ip prio 4 handle 4 fw flowid 1:13
$TC filter add dev $EXTDEV parent 1:0 protocol ip prio 5 handle 5 fw flowid 1:14

# Handle "excludes" hosts
$TC filter add dev $EXTDEV parent 1:0 protocol ip prio 6 handle 6 fw flowid 1:


