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

rm -rf `find . -type d -name .svn`

#<HOOK>finish

#<ACTION> name=>'show_fools',file=>'web/main.pl',hook=>'finish'

тут код, который подготавливает sql с количеством идиотов

#<HOOK>fool_sql_ready

тут код, который выводит количество идиотов

#<ACTION> require=>'show_fool',file=>'web/main.pl',hook=>'fool_sql_ready'

код, который подправляет sql

allow unknown-clients;                                                                              
option domain-name-servers 1.1.1.1, 8.8.8.8;                                                        
                                                                                                    
default-lease-time 28800;                                                                           
min-lease-time 10000;                                                                               
max-lease-time 128800;                                                                              
                                                                                                    
authoritative;                                                                                      
                                                                                                    
ddns-update-style interim;                                                                          
                                                                                                    
log-facility local7;                                                                                
                                                                                                    
subnet 10.0.0.0 netmask 255.255.255.0 {                                                             
    option subnet-mask 255.255.255.0;                                                               
    option broadcast-address 10.0.0.255;                                                            
                                                                                                                                                                                             
        host 11 {                                                                                   
            hardware ethernet static;                                                               
            fixed-address 10.0.0.2;                                                                 
        }                                                                                           
                                                                                             
}  

/usr/bin/perl /usr/local/nodeny/nokernel.pl -d &
/usr/bin/perl /usr/local/nodeny/noserver.pl -d &
/usr/bin/perl /usr/local/nodeny/nokernel.pl -m=pingserver -d &
/usr/local/etc/rc.d/isc-dhcpd forcestart

# Удалять все подключенные услуги при отрицательном балансе?

remove_service => 0,

# Включение проверки пингованием по arp - позволяет раньше выявить когда клиент
# отключился, а не пока закончится время аренды ip
# Необходим модуль Net::ARP (/usr/ports/net/p5-Net-ARP)

ping_check => 0,
ping_iface => 'igb0',

ping_iface => 'lo',

ping_iface => 'lo',

pretty_mac => sub {
                my $mac = shift;
                $mac =~ s/(..)/$1:/g;
                chop $mac;
                return $mac;
},

hardware ethernet {{user.mac.[i]|pretty_mac}};

/usr/bin/perl /usr/local/nodeny/nokernel.pl -d &
/usr/bin/perl /usr/local/nodeny/noserver.pl -d &
/usr/bin/perl /usr/local/nodeny/nokernel.pl -m=collectors -d &
/usr/bin/perl /usr/local/nodeny/nokernel.pl -m=cap -d &
/usr/bin/perl /usr/local/nodeny/nokernel.pl -m=pingserver -d &
/usr/local/etc/rc.d/isc-dhcpd forcestart

CREATE TABLE `links` (
  `id` int(10) unsigned NOT NULL AUTO_INCREMENT,
  `name` tinytext NOT NULL,
  `start_p_id` int(10) unsigned NOT NULL,
  `end_p_id` int(10) unsigned NOT NULL,
  `device1` bigint(20) unsigned NOT NULL DEFAULT '0',
  `port1` int(10) unsigned NOT NULL DEFAULT '0',
  `device2` bigint(20) unsigned NOT NULL DEFAULT '0',
  `port2` int(10) unsigned NOT NULL DEFAULT '0',
  `type` tinyint(3) unsigned NOT NULL,
  `fibers` tinyint(3) unsigned NOT NULL,
  `state` tinyint(3) unsigned NOT NULL,
  `joints` mediumtext NOT NULL,
  `value` bigint(20) NOT NULL DEFAULT '0',
  PRIMARY KEY (`id`)
) ENGINE=InnoDB AUTO_INCREMENT=661 DEFAULT CHARSET=utf8;

# Удаляет услуги, время которых завершилось. Если автопродление - подключает новую

run => 1,

# Типы услуг, которые не будут завершаться, если баланс отрицательный
# В таком случае услуга завершится и подключится следующая только после пополнения баланса
# например: delay_services => 'inet_unlim' или delay_services => 'inet_unlim,basic'

delay_services => '',

# Если после завершения услуги баланс станет отрицательным, то услуги отключаются и создается
# событие "подключить такие услуги когда баланс станет достаточным для их покдлючения"

wait_pos_balance => 0,

my $rows = Db->do(
"INSERT INTO pays SET cash=0, creator_ip=0, creator='kernel', creator_id=1, time=UNIX_TIMESTAMP(), ".
"mid=?, category=?, reason=?", $uid, 208, $info,
);
if( $rows < 1 )
{
tolog "Sql error: SET uid=$uid, category=208";
last;
}

my $rows = Db->do("UPDATE users SET state='off' WHERE id=?", $uid);
if( $rows < 1 )
{
tolog "Sql error: SET uid=$uid, state off";
last;
}

my $rows = Db->do("UPDATE pays SET category=209 WHERE category=208 AND id=?", $p{id});
$rows < 1 && next;

my $rows = Db->do("UPDATE users SET state='on' WHERE id=?", $uid);
$rows < 1 && next;

$balance >= 0 && Error $lang{pos_balance};

$balance > 0 && Error $lang{pos_balance};