Исходное сообщение
"Traffic Control (shaper) - как сделать ? PPPoE+FreeRADIUS+My..." Отправлено Den, 13-Фев-06 13:54
в nibs в таблице users добавляешь столбец rate Потом заменяешь  /etc/ppp/ip-up на аналогичный но на перле и через DBI вытягиваешь из базы нужный rate и шейпишь с поиощью htb #!/usr/bin/perl $interface = $ARGV[0]; $tty = $ARGV[1]; $speed = $ARGV[2]; $localip = $ARGV[3]; $remoteip = $ARGV[4]; $ipparam = $ARGV[5]; my $rate = "64kbit"; my $burst = "4kb"; ($a1, $a2, $a3, $a4) = split(/\./, $remoteip); if($a3 eq "6") {     if(($a4 >= 1) && ($a4 <= 62)) {     $rate = "64kbit";     $burst = "4kb";     }     if(($a4 >= 65) && ($a4 <= 126)) {     $rate = "128kbit";     $burst = "6kb";     }     if(($a4 >= 129) && ($a4 <= 190)) {     $rate = "256kbit";     $burst = "8kb";     }     if(($a4 >= 193) && ($a4 <= 254)) {     $rate = "512kbit";     $burst = "16kb";     }     system("/sbin/tc qdisc add dev $interface root handle 1: htb");     system("/sbin/tc class add dev $interface parent 1: classid 1:10 htb rate $rate ceil $rate burst $burst");     system("/sbin/tc qdisc add dev $interface parent 1:10 handle 10:0 sfq perturb 10");     system("/sbin/tc filter add dev $interface parent 1:0 protocol ip prio 5 u32  match ip dst $remoteip flowid 1:10"); } У меня вариант без DBI так как я freenibs не использую, но дописывается за минут 5. ip-down выглядит так: #!/bin/sh # this is a script which is executed after disconnecting the ppp interface. # look at man pppd for details # the followings parameters are available: interface=$1 # $2 = tty-device # $3 = speed # $4 = local-IP-address # $5 = remote-IP-address # $6 = ipparam /sbin/tc qdisc del dev $interface root