]>
Commit | Line | Data |
---|---|---|
aba5acdf SH |
1 | #!/usr/bin/perl |
2 | # | |
3 | $TC = "/root/DS-6-beta/iproute2-990530-dsing/tc/tc"; | |
4 | $DEV = "dev eth1"; | |
5 | print "$TC qdisc add $DEV handle 1:0 root dsmark indices 64 set_tc_index\n"; | |
6 | print "$TC filter add $DEV parent 1:0 protocol ip prio 1 tcindex ". | |
7 | "mask 0xfc shift 2\n"; | |
8 | print "$TC qdisc add $DEV parent 1:0 handle 2:0 cbq bandwidth ". | |
9 | "10Mbit cell 8 avpkt 1000 mpu 64\n"; | |
10 | # | |
11 | # EF class | |
12 | # | |
13 | print "$TC class add $DEV parent 2:0 classid 2:1 cbq bandwidth ". | |
14 | "10Mbit rate 1500Kbit avpkt 1000 prio 1 bounded isolated ". | |
15 | "allot 1514 weight 1 maxburst 10 \n"; | |
16 | # packet fifo for EF? | |
17 | print "$TC qdisc add $DEV parent 2:1 pfifo limit 5\n"; | |
18 | print "$TC filter add $DEV parent 2:0 protocol ip prio 1 ". | |
19 | "handle 0x2e tcindex classid 2:1 pass_on\n"; | |
20 | # | |
21 | # BE class | |
22 | # | |
23 | print "#BE class(2:2) \n"; | |
24 | print "$TC class add $DEV parent 2:0 classid 2:2 cbq bandwidth ". | |
25 | "10Mbit rate 5Mbit avpkt 1000 prio 7 allot 1514 weight 1 ". | |
26 | "maxburst 21 borrow split 2:0 defmap 0xffff \n"; | |
27 | print "$TC qdisc add $DEV parent 2:2 red limit 60KB ". | |
28 | "min 15KB max 45KB burst 20 avpkt 1000 bandwidth 10Mbit ". | |
29 | "probability 0.4\n"; | |
30 | print "$TC filter add $DEV parent 2:0 protocol ip prio 2 ". | |
31 | "handle 0 tcindex mask 0 classid 2:2 pass_on\n"; |