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

230  if( $Now_revision{$id} != $Revision{$id} )
231  {  # изменились дополнительные данные клиента
232     &Debug("Обнаружено изменение ревизии дополнительных данных:\n".
233            "\told: ".($Now_revision{$id}||'отсутствует')."\n".
234            "\tnow: $Revision{$id}");
235     $sth=&Sql("$SQL_BUF field_alias,field_value,field_name FROM dopdata......
236     $data='';
237     if( $sth )
238     {
239        $Udop{$id}={};
240        while( $p=$sth->fetchrow_hashref )
241        {
242           $Udop{$id}{$p->{field_alias}}=$p->{field_value};
243           $data.="\n\t\talias: ".$p->{field_alias}.
244                  "\n\t\t name: ".$p->{field_name}.
245                  "\n\t\tvalue: ".$p->{field_value}.
246                  "\n\t\t------";
247        }
248        &Debug($data);

10000 deny tcp from not table(4) to any dst-port 25

203  &SetIpfwRule(qq{deny tcp from table(15) to any $denied_ports});        # клиент -> запрещенные порты

403  if( $a_ports )
404  {  # для данного клиента разрешить доступ к портам, которые в списке запрещенных
405     if( $TBL_15{$ip} )
406     {
407        &Add_Rule("table 15 delete $ip");
408        $TBL_15{$ip}=0;
409     }
410  }else
411  {  # для данного клиента запретить доступ к портам, которые в списке запрещенных
412     if( !$TBL_15{$ip} )
413     {
414        &Add_Rule("table 15 add $ip");
415        $TBL_15{$ip}=1;
416     }
417  }

&Add_Rule("table 15 delete $ip");

&Add_Rule(qq{table $table_port_25 delete $ip}) if $table =~ /^$ip\/32/;

 if( $a_ports )
 {  # для данного клиента разрешить доступ к портам, которые в списке запрещенных
    if( $TBL_15{$ip} )
    {
       &Add_Rule("table 15 delete $ip");
       $TBL_15{$ip}=0;
    }
 }else
 {  # для данного клиента запретить доступ к портам, которые в списке запрещенных
    if( !$TBL_15{$ip} )
    {
       &Add_Rule("table 15 add $ip");
       $TBL_15{$ip}=1;
    }

 my $a_ports=$dop_param->{_open_ports};		# не блокировать запрещенные порты?