Я в Моем Мире - http://my.mail.ru/mail/bogdan_wifi/
В deny не получается передавать все данные, ибо при передаче в allow
они могут быть изменены noserver-ом. Такие ситуации решаются очень
просто: поскольку мы не может выключить клиента, предварительно не
включив его, то мы всегда сможем запомнить данные, которые были на
момент включения. Т.е. в самой подпрограмме allow после:
my $p=$_[0];
my ($auth,$dop_param,$i,$id,$ip,$mid,$n,$num,$num1,$num2,$opt,
$options);
my ($paket,$pipe2,$pipe_in,$pipe_out,$speed2,$speed_in,$speed_out);
$ip=$p->{ip};
$id=$p->{id};
вставляешь:
my %m=%$p;
$Udata{$id}=\%m;
Т.е. в $Udata{$id} запомнил ссылку на хеш данных. Финт с %m нужен чтоб
мы создали новыйхеш из ссылки на хеш ($p) т.к. впоследствии хеш может
меняться