examples/diffserv/ef-prio

   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";