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

%Flags=(
 'a' => 'разрешить клиентам через клиентскую статистику заказывать данный пакет на следующий месяц',
 'b' => 'если у клиента выбран данный пакет, то клиент не может заказать автоматическую смену пакета в следующем месяце',
 'c' => 'если у клиента выбран данный пакет и разрешено заказывать пакеты, то клиент может заказывать только пакеты из текущего пресета',
 'd' => 'у клиентов данного пакета почтовый ящик должен быть заблокирован',
 'f' => 'невыработанный трафик переносить на следующий месяц',
 'g' => 'для данного тарифа не осуществлять пропорциональное преобразование данных для новых клиентов, т.е. день начала потребления услуг будет установлен в ноль для таких клиентов',
 'h' => 'полностью отключить детализацию трафика',
 'j' => 'ограничение скорости действительно и для трафика между клиентами',
 'k' => 'доступ должен быть заблокирован всегда',
 'm' => 'при появлении денежной переработки разрешить клиенту в клиентской статистике докупить дополнительный пакета в этом же месяце. '.
        'Будет произведено снятие за текущий пакет и выдан новый, который будет активирован с текущего момента. Трафик клиента будет обнулен',
 'n' => 'удвоение скорости в период времени, указанный в тарифе',
 'p' => 'включить скрипты. Лицензирование обязательно!',
 'x' => 'ограничение скорости не действительно для трафика направления 2',
 'y' => 'ограничение скорости не действительно для трафика направления 3',
 'z' => 'ограничение скорости не действительно для трафика направления 4',
);

# разрешим доступ, если денег недостаточно - все равно отключит
 &sql_do($dbh,"UPDATE users SET state='on' WHERE id=$Mid OR mid=$Mid");

# разрешим доступ, если денег недостаточно - все равно отключит
 $Plan_flags[$pm->{paket}]!~/k/ && sql_do($dbh,"UPDATE users SET state='on' WHERE id=$Mid OR mid=$Mid");

$auth>0 && !$c{Allow_overlimits} && next;
&Allow_inet($id);
$NowOn{$id}=1;

$auth>0 && !$c{Allow_overlimits} && next;
# Tariff has 'k' flag, so we do not allow the access
$Plan_flags[$paket]=~/k/ && next;
# Finally - allow
&Allow_inet($id);
$NowOn{$id}=1;