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

 my $s_in=$dop_param->{_speed_in};		# входящая скорость в учетке клиента, кб/сек
 my $s_out=$dop_param->{_speed_out};		# исходящая скорость в учетке клиента, кб/сек
 my $a_ports=$dop_param->{_open_ports};		# не блокировать запрещенные порты?

 #  Если скорости не указаны, то берутся значения по умолчанию (из конфига сателлита)

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