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");
}
вот так у меня, вижу что проверки на наличия доп поля нет. Правильно?
Куда условие нужно дописать, помогите чайнику
