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

Событие Заблокирован по денежной задолженности 10.0.1.177: -0.02 < 0.00 06.03.11 21:45 Блокировка по задолженности   → 
  30   04.03.11 09:22  Запись отредактированаНаличный платеж adm → 
  Событие История смен тарифных планов:

04.03.11 09:22  Базовый
01.01.11 00:01  Безлимитный 3 04.03.11 09:22 История смены тарифов   → 
  Событие Изменены следующие данные:
Пакет: 'Безлимитный 3' -> 'Базовый' 04.03.11 09:22 Изменение данных клиента adm → 
  Событие Заблокирован по денежной задолженности 10.0.1.177: -70.00 < 0.00 01.03.11 00:01 Блокировка по задолженности   → 

Тип трафика Оплачено, Мб Использовано, Мб Превышение, Мб Стоимость превышения, грн. 
  интернет 500   972.65   472.65     0.030 грн./Мб * 472.65 Мб = 14.18 

8 209.403 6.321                             
7 240.492 7.052                             
6 101.710 3.627                             
5 363.355 14.430                             
4 23.480 2.777 

16:05 0.764 0.684 adm → 
16:04 1711.540 31.862 adm → 
16:04 4005.234 86.603 adm → 
16:03 0.048 0.088 adm → 
16:02 0.128 0.552 adm → 
16:02 0.642 0.040 adm → 
15:59 0.040 0.168 adm → 
15:59 0.040 0.040 adm → 
15:58 1786.540 33.596 adm → 
15:58 492.744 17.505 adm → 
15:57 2121.364 39.427 adm → 
15:57 325.785 15.459 

1   08.03.11   16:19:54 отключен   
2   08.03.11   15:01:09  Авторизатор 
3   08.03.11   14:58:03 отключен   
4   08.03.11   14:50:50  Авторизатор 
5   08.03.11   14:33:14 отключен   
6   08.03.11   12:27:18  Авторизатор 
7   08.03.11   12:15:09 отключен   
8   08.03.11   12:11:16  Авторизатор 
9   08.03.11   00:20:39 отключен   

sub Deny
{
my $p=$_[0];
my ($auth,$dop_param,$i,$id,$ip,$mid,$n,$num,$num1,$num2,$opt,$options,$chnl);
my ($paket,$pipe2,$pipe_in,$pipe_out,$speed2,$speed_in,$speed_out,$name,$chnl);

$ip=$p->{ip};
$id=$p->{id};                
$num=$p->{num};              
$mid=$p->{mid};             
$auth=$p->{auth};           
$paket=$p->{paket};
$pr=$p->{speed2};       
$options=$p->{options};      
$main_num=$p->{main_num};    
$speed_in=$p->{speed_in};     
$speed_out=$p->{speed_out};


&Add_Tbl_Rule(0,$ip);
#Удаляем правила добавленые в Allow
while (!system("$IPT -t filter -D FORWARD -s $ip -d ! 10.0.0.0/8 -j ACCEPT")) {}; 
while (!system("$IPT -t filter -D FORWARD -d $ip -s ! 10.0.0.0/8 -j ACCEPT")) {};
while (!system("iptables -D FORWARD -s $ip -j ULOG --ulog-nlgroup 15 ")) {};
while (!system("iptables -D FORWARD -d $ip -j ULOG --ulog-nlgroup 15 ")) {};

}

........

 ###### контрольная подчистка перед добавлением
 while (!system("$IPT -t filter -D FORWARD -s $ip -d ! 10.0.0.0/8 -j ACCEPT")) {};
 while (!system("$IPT -t filter -D FORWARD -d $ip -s ! 10.0.0.0/8 -j ACCEPT")) {};
 while (!system("iptables -D FORWARD -s $ip -j ULOG --ulog-nlgroup 15 ")) {};
 while (!system("iptables -D FORWARD -d $ip -j ULOG --ulog-nlgroup 15 ")) {};
 ###### 
#добавляем правила разрешающие доступ в инет
 system("$IPT -t filter -A FORWARD -s $ip -d ! 10.0.0.0/8 -j ACCEPT");
 system("$IPT -t filter -A FORWARD -d $ip -s ! 10.0.0.0/8 -j ACCEPT");
 system("iptables -I FORWARD 1 -s $ip -j ULOG --ulog-nlgroup 15 ");
 system("iptables -I FORWARD 1 -d $ip -j ULOG --ulog-nlgroup 15 ");
.....

df -h