Биллинговая система Nodeny

if( $speed_in )
{  # Cкорость указана в пакете. Это самая приоритетная скорость, даже если в учетной
   # записи в доп параметре указана другая. Получим уникальный номер pipe по основной записи:
   # $main_num - трафик всех алиасов должен попадать в один pipe!
   $pipe_in=&Get_Pipe_Num($main_num);
   &Add_Rule("pipe $pipe_in config bw ${speed_in}Kbit/s");
   if( $speed_out )
   {  # указана скорость от клиента, для нее отдельный pipe
      $pipe_out=$pipe_in+1;
      &Add_Rule("pipe $pipe_out config bw ${speed_out}Kbit/s");
   }
    else
   {  # входящий и исходящий трафик в одной трубе
      $speed_out=$speed_in;
      $pipe_out=$pipe_in;
   }
}
 else
{  # Если какая-либо скорость не указана - берем стандартную. Нулевая скорость в пайпах = allow
   $pipe_in=&Get_Pipe_Num($num);
   $pipe_out=$pipe_in+1;
   $speed_in=$s_in>0? $s_in*8 : $default_in;
   $speed_out=$s_out>0? $s_out*8 : $default_out;
   &Add_Rule("pipe $pipe_in config bw ${speed_in}Kbit/s");
   &Add_Rule("pipe $pipe_out config bw ${speed_out}Kbit/s");
}

&Add_Rule("table 22 flush");   # клиенты без шейпов

if( $speed_in )
{  # Cкорость указана в пакете. Это самая приоритетная скорость, даже если в учетной
   # записи в доп параметре указана другая. Получим уникальный номер pipe по основной записи:
   # $main_num - трафик всех алиасов должен попадать в один pipe!

if( $speed_in > 100000)   
     &Add_Tbl_Rule(22,$ip,1);
     }else{

 $pipe_in=&Get_Pipe_Num($main_num);
     &Add_Rule("pipe $pipe_in config bw ${speed_in}Kbit/s");

allow ip from "table(22)" to any
allow ip from any to "table(22)"