[mirror_iproute2.git] / examples / diffserv / ef-prio

#!/usr/bin/perl
$TC = "/root/DS-6-beta/iproute2-990530-dsing/tc/tc";
$DEV = "dev eth1";
$efrate="1.5Mbit";
$MTU="1.5kB";
print "$TC qdisc add $DEV handle 1:0 root dsmark indices 64 set_tc_index\n";
print "$TC filter add $DEV parent 1:0 protocol ip prio 1 tcindex ".
  "mask 0xfc shift 2\n";
print "$TC qdisc add $DEV parent 1:0 handle 2:0 prio\n";
#
# EF class: Maximum about one MTU sized packet allowed on the queue
#
print "$TC qdisc add $DEV parent 2:1 tbf rate $efrate burst $MTU limit 1.6kB\n";
print "$TC filter add $DEV parent 2:0 protocol ip prio 1 ".
	  "handle 0x2e tcindex classid 2:1 pass_on\n";
#
# BE class
#
print "#BE class(2:2) \n";
print "$TC qdisc add $DEV parent 2:2 red limit 60KB ".
	  "min 15KB max 45KB burst 20 avpkt 1000 bandwidth 10Mbit ".
	  "probability 0.4\n";
#
print "$TC filter add $DEV parent 2:0 protocol ip prio 2 ".
	  "handle 0 tcindex mask 0 classid 2:2 pass_on\n";
Commit	Line	Data
aba5acdf SH	1	#!/usr/bin/perl
	2	$TC = "/root/DS-6-beta/iproute2-990530-dsing/tc/tc";
	3	$DEV = "dev eth1";
	4	$efrate="1.5Mbit";
	5	$MTU="1.5kB";
	6	print "$TC qdisc add $DEV handle 1:0 root dsmark indices 64 set_tc_index\n";
	7	print "$TC filter add $DEV parent 1:0 protocol ip prio 1 tcindex ".
	8	"mask 0xfc shift 2\n";
	9	print "$TC qdisc add $DEV parent 1:0 handle 2:0 prio\n";
	10	#
	11	# EF class: Maximum about one MTU sized packet allowed on the queue
	12	#
	13	print "$TC qdisc add $DEV parent 2:1 tbf rate $efrate burst $MTU limit 1.6kB\n";
	14	print "$TC filter add $DEV parent 2:0 protocol ip prio 1 ".
	15	"handle 0x2e tcindex classid 2:1 pass_on\n";
	16	#
	17	# BE class
	18	#
	19	print "#BE class(2:2) \n";
	20	print "$TC qdisc add $DEV parent 2:2 red limit 60KB ".
	21	"min 15KB max 45KB burst 20 avpkt 1000 bandwidth 10Mbit ".
	22	"probability 0.4\n";
	23	#
	24	print "$TC filter add $DEV parent 2:0 protocol ip prio 2 ".
	25	"handle 0 tcindex mask 0 classid 2:2 pass_on\n";