Повышение скорости

[goletsa]

Не устраивает текущая реализация повышения скорости (кратно тарифу), хотел ее немного модифицировать, но есть ряд вопросов.
Я так понял это должны быть услуги с тегом ,speed,
1) В users_services у обычных услуг inet_unlim почему-то тоже есть этот тег, что может его добавлять?
Т.е. например такой список тегов формируется у услуги клиента ",plain,inet,speed,start_traf=0,"
2) Как\где в связке coa\noserver добавить свои модификаторы для управления скоростью после поднятия клиентом сессии уже?
При поднятии сессии на уровне radius'a сделал, но по какой-то причине сразу прилетит coa с обычной скоростью тарифа.
Где именно менять поведение, которое передается в coa (speed_in1 и производные от него).

[goletsa]

Судя по всему никому не надо поднимать скорость до фиксированной величины.
В общем решается костылем такого вида, коэффициент работает как скорость в мегабитах.
shapes.pm

Код:

            foreach my $dir( 1..4 )
            {
                my $k = $srv->{"speed_up$dir"};
                ( $k && $k != 1 ) or next;
                $usr->{"speed_in$dir"} = $k*1024*1024;
                $usr->{"speed_out$dir"} = $k*1024*1024;
            }