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

nofire.pl 
#!/usr/bin/perl

sub Allow
{
my ($p0,$p1,$p3)=split /\|/,$dop;
my $speed0=$p1=~/^\s*(\d+)\s*$/ ? $1 : $Plan_speed[$paket];
my $speed1=$p0=~/^\s*(\d+)\s*$/ ? $1 : $Plan_speed[$paket];
my $weight=$p3=~/^\s*(\d+)\s*$/ ? $1 : 50;
my $pipe0=($num-39999)*2;
my ($pipe1)=($pipe0+1);


system("$ipfw pipe $pipe0 config bw ${speed0}Kbit/s >/dev/null") if $p0 ne '-';
system("$ipfw queue $weight config pipe $pipe0 weight $weight")
system("$ipfw pipe $pipe1 config bw ${speed1}Kbit/s >/dev/null") if $p1 ne '-';
system("$ipfw queue $weight config pipe $pipe1 weight $weight")
system("$ipfw add $num queue $weight ip from any to $ip out >/dev/null");
system("$ipfw add $num queue $weight ip from $ip to any in >/dev/null");
}

sub Deny
{
my ($num,$ip) = @_;
system("$ipfw del $num >/dev/null");
}

1;


Дополнительный параметр разбили на 3 части
1 скорость в инет
2 скрость с инета
3 приоритет

Проверка соответствий
если нет дополнительного параметра то юзать переменную указаную в тарифном пакете тоесть если пакет 512кб а доп. параметр будет 128кб то скорость будет у юзера 128
Приоритет если нет в доп параметре цифры на приоритет юзать 50
дальше бла бла бла
формируем пайпы
вот тут хз судите кто понял