home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / share / doc / iproute / examples / diffserv / afcbq next >
Encoding:
Text File  |  2004-04-15  |  3.4 KB  |  106 lines
  1. #!/usr/bin/perl
  2. #
  3. #
  4. # AF using CBQ for a single interface eth0 
  5. # 4 AF classes using GRED and one BE using RED
  6. # Things you might want to change:
  7. #    - the device bandwidth (set at 10Mbits)
  8. #    - the bandwidth allocated for each AF class and the BE class    
  9. #    - the drop probability associated with each AF virtual queue
  10. #
  11. # AF DSCP values used (based on AF draft 04)
  12. # -----------------------------------------
  13. # AF DSCP values
  14. # AF1 1. 0x0a 2. 0x0c 3. 0x0e
  15. # AF2 1. 0x12 2. 0x14 3. 0x16
  16. # AF3 1. 0x1a 2. 0x1c 3. 0x1e
  17. # AF4 1. 0x22 2. 0x24 3. 0x26
  18.  
  19. #
  20. # 
  21. # A simple DSCP-class relationship formula used to generate
  22. # values in the for loop of this script; $drop stands for the
  23. # DP
  24. #    $dscp = ($class*8+$drop*2)
  25. #
  26. #  if you use GRIO buffer sharing, then GRED priority is set as follows:
  27. #  $gprio=$drop+1; 
  28. #
  29.  
  30. $TC = "/usr/src/iproute2-current/tc/tc";
  31. $DEV = "dev lo";
  32. $DEV = "dev eth1";
  33. $DEV = "dev eth0";
  34. # the BE-class number
  35. $beclass = "5";  
  36.  
  37. #GRIO buffer sharing on or off?
  38. $GRIO = "";
  39. $GRIO = "grio";
  40. # The bandwidth of your device
  41. $linerate="10Mbit";
  42. # The BE and AF rates
  43. %rate_table=();
  44. $berate="1500Kbit";
  45. $rate_table{"AF1rate"}="1500Kbit";
  46. $rate_table{"AF2rate"}="1500Kbit";
  47. $rate_table{"AF3rate"}="1500Kbit";
  48. $rate_table{"AF4rate"}="1500Kbit";
  49. #
  50. #
  51. #
  52. print "\n# --- General setup  ---\n";
  53. print "$TC qdisc add $DEV handle 1:0 root dsmark indices 64 set_tc_index\n";
  54. print "$TC filter add $DEV parent 1:0 protocol ip prio 1 tcindex mask 0xfc " .
  55.    "shift 2 pass_on\n";
  56.    #"shift 2\n";
  57. print "$TC qdisc add $DEV parent 1:0 handle 2:0 cbq bandwidth $linerate ".
  58.   "cell 8 avpkt 1000 mpu 64\n";
  59. print "$TC filter add $DEV parent 2:0 protocol ip prio 1 tcindex ".
  60.   "mask 0xf0 shift 4 pass_on\n";
  61. for $class (1..4) {
  62.     print "\n# --- AF Class $class specific setup---\n";
  63.     $AFrate=sprintf("AF%drate",$class);
  64.     print "$TC class add $DEV parent 2:0 classid 2:$class cbq ".
  65.       "bandwidth $linerate rate $rate_table{$AFrate} avpkt 1000 prio ".
  66.       (6-$class)." bounded allot 1514 weight 1 maxburst 21\n";
  67.     print "$TC filter add $DEV parent 2:0 protocol ip prio 1 handle $class ".
  68.       "tcindex classid 2:$class\n";
  69.     print "$TC qdisc add $DEV parent 2:$class gred setup DPs 3 default 2 ".
  70.       "$GRIO\n";
  71. # 
  72. # per DP setup
  73. #
  74.     for $drop (1..3) {
  75.     print "\n# --- AF Class $class DP $drop---\n";
  76.     $dscp = $class*8+$drop*2;
  77.     $tcindex = sprintf("1%x%x",$class,$drop);
  78.     print "$TC filter add $DEV parent 1:0 protocol ip prio 1 ".
  79.       "handle $dscp tcindex classid 1:$tcindex\n";
  80.     $prob = $drop*0.02;
  81.         if ($GRIO) {
  82.     $gprio = $drop+1;
  83.     print "$TC qdisc change $DEV parent 2:$class gred limit 60KB min 15KB ".
  84.       "max 45KB burst 20 avpkt 1000 bandwidth $linerate DP $drop ".
  85.       "probability $prob ".
  86.           "prio $gprio\n";
  87.         } else {
  88.     print "$TC qdisc change $DEV parent 2:$class gred limit 60KB min 15KB ".
  89.       "max 45KB burst 20 avpkt 1000 bandwidth $linerate DP $drop ".
  90.       "probability $prob \n";
  91.     }
  92.     }
  93. }
  94. #
  95. #
  96. print "\n#------BE Queue setup------\n";
  97. print "$TC filter add $DEV parent 1:0 protocol ip prio 2 ".
  98.           "handle 0 tcindex mask 0 classid 1:1\n";
  99. print "$TC class add $DEV parent 2:0 classid 2:$beclass cbq ".
  100.       "bandwidth $linerate rate $berate avpkt 1000 prio 6 " .
  101.       "bounded allot 1514 weight 1 maxburst 21 \n";
  102. print "$TC filter add $DEV parent 2:0 protocol ip prio 1 handle 0 tcindex ".
  103.   "classid 2:5\n";
  104. print "$TC qdisc add $DEV parent 2:5 red limit 60KB min 15KB max 45KB ".
  105.   "burst 20 avpkt 1000 bandwidth $linerate probability 0.4\n";
  106.