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

329  $speed_in=$p->{speed_in};      # скорость к клиенту, указанная в пакете
330  $speed_out=$p->{speed_out};
331  $dop_param=$p->{dop_param};    # дополнительные параметры учетки клиента
332  $plan_flags=$p->{plan_flags};  # флаги пакета тарификации
333
334  ($num1,$num2)=&Get_Ipfw_Num($num); # номера правил ipfw `от клиента` и `на клиента`
335  $Need_Del_Rule{$ip}=0;         # признак, что для $ip персонального правила не создано,
336                                 # 0 останется если все будет оформлено через таблицы
337
338  &Add_Tbl_Rule(0,$ip);
339
340  my $s_in=$dop_param->{_speed_in};              # входящая скорость в учетке клиента, кб/сек
341  my $s_out=$dop_param->{_speed_out};            # исходящая скорость в учетке клиента, кб/сек
342  my $a_ports=$dop_param->{_open_ports};         # не блокировать запрещенные порты?
343
344  #  Если скорости не указаны, то берутся значения по умолчанию (из конфига сателлита)
345
346  if( $speed_in )
347  {  # Cкорость указана в пакете. Это самая приоритетная скорость, даже если в учетной
348     # записи в доп параметре указана другая. Получим уникальный номер pipe по основной записи:
349     # $main_num - трафик всех алиасов должен попадать в один pipe!
350     $pipe_in=&Get_Pipe_Num($main_num);
351     &Add_Rule("pipe $pipe_in config bw ${speed_in}Kbit/s");
352     if( $speed_out )
353     {  # указана скорость от клиента, для нее отдельный pipe
354        $pipe_out=$pipe_in+1;
355        &Add_Rule("pipe $pipe_out config bw ${speed_out}Kbit/s");
356     }
357      else
358     {  # входящий и исходящий трафик в одной трубе
359        $speed_out=$speed_in;
360        $pipe_out=$pipe_in;
361     }
362  }
363   else
364  {  # Если какая-либо скорость не указана - берем стандартную. Нулевая скорость в пайпах = allow
365     $pipe_in=&Get_Pipe_Num($num);
366     $pipe_out=$pipe_in+1;
367     $speed_in=$s_in>0? $s_in*8 : $default_in;
368     $speed_out=$s_out>0? $s_out*8 : $default_out;
369     &Add_Rule("pipe $pipe_in config bw ${speed_in}Kbit/s");
370     &Add_Rule("pipe $pipe_out config bw ${speed_out}Kbit/s");
371  }