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

 # Редирект на заглушку. Если не используется - закомментировать строку
 $M->{fw}{rules} .= 'add '.$M->{fw}{cursor_out2}++." fwd 127.0.0.1, 8080 tcp from any to any 80\n";

echo '/usr/bin/perl /usr/local/nodeny/nokernel.pl -m=cap -d &' >> /etc/rc.local
/usr/bin/perl /usr/local/nodeny/nokernel.pl -m=cap -d &

#!/usr/bin/perl
# ------------------- NoDeny ------------------
# Copyright (▒~A) Volik Stanislav, 2008..2012

# ---------------------------------------------
package noserver::nofire;
use strict;
use Debug;
use Exporter 'import';

our @EXPORT = qw( fw_flush fw_set fw_usr_on fw_usr_off fw_run fw_net_add fw_net_del fw_add_in fw_add_out );

=head

Ск▒~@ип▒~B ▒~Cп▒~@авл▒~Oе▒~B ▒~Aозданием п▒~@авил в ipfw ▒~@аз▒~@е▒~Hа▒~N▒~Iи▒~E/
▒~\ожно мен▒~O▒~B▒~L, п▒~@и ▒~M▒~Bом ав▒~Bо▒~@ и ▒~Bе▒~Eподде▒~@жка о▒~Gен▒~L п▒~

▒~R▒~Eод▒~O▒~Iий/и▒~A▒~Eод▒~O▒~Iий ▒~B▒~@а▒~Dик ▒~@а▒~A▒~Aма▒~B▒~@ивае▒~B▒~A▒~O по о▒~B

▒~_▒~@ин▒~Fип ▒~@або▒~B▒~K.

▒~R ▒~Dае▒~@воле в▒~Kдел▒~O▒~N▒~B▒~A▒~O 2 окна, в ко▒~Bо▒~@▒~Kе данн▒~Kе ▒~Aк▒~@ип
▒~_е▒~@вое окно (▒~A мен▒~L▒~Hими номе▒~@ами п▒~@авил) п▒~@едназна▒~Gено
в▒~Bо▒~@ое - дл▒~O в▒~Eод▒~O▒~Iи▒~E.

▒~_▒~@и ▒~A▒~Bа▒~@▒~Bе в▒~Aе п▒~@авила в обои▒~E окна▒~E ▒~Cдал▒~O▒~N▒~B▒~A▒~O (▒~Aм.

noserver.pl пол▒~C▒~Gае▒~B из ▒~Q▒~T ▒~Aпи▒~Aок в▒~Aе▒~E ▒~Aе▒~Bей в▒~Aе▒~E нап▒~@авл
дл▒~O каждого нап▒~@авлени▒~O в▒~Kдел▒~Oе▒~B 3 о▒~Bдел▒~Lн▒~K▒~E ▒~Bабли▒~F▒~

[root@router ~]# perl /usr/local/nodeny/nokernel.pl -L
Start. Flag -h for help
loading /usr/local/nodeny/sat.cfg

MODULE                   RUN?
cap                      1
system_clean             1
services                 1
make_config              0
authserver               1
auth                     1
tmppays                  1
collectors               1
websession               1
balance                  1
system_check             1

00540   10    1274 allow ip from any to any
01000   60   16792 allow udp from any 53,7723 to any
01010    0       0 allow tcp from any to any setup keep-state

unlink $file_ipfw;

Start. Flag -h for help

[0.022699: noserver.pl(37) nod.pm::Start(108)]
loading /usr/local/nodeny/sat.cfg

[0.041056: noserver.pl(42) Db.pm::connect(95)]
Connecting to DBI:mysql:database=nodeny;host=localhost;port=3306;mysql_connect_timeout=5 : 0.017896 sec

[0.041326: noserver.pl(58)]
loading noserver::nofire.pm

[0.043247: noserver.pl(58)]
loading noserver::shapes.pm

[0.047605: noserver.pl(97) nod.pm::Task_run(224) nod.pm(224) noserver.pl::load_nets(192) Db.pm::sql(134) Db.pm::sql(321)]
SELECT SQL_BUFFER_RESULT * FROM nets WHERE priority>0 ORDER BY priority
Строк: 1. Время выполнения sql: 0.0003 сек

[0.048091: noserver.pl(97) nod.pm::Task_run(224) nod.pm(224) noserver.pl::load_nets(230) nofire.pm::fw_net_add(187)]
Добавление в фаервол сети 0.0.0.0/0 направления 1

[1.071361: noserver.pl(97) nod.pm::Task_run(224) nod.pm(224) noserver.pl::load_usr_info(140) Db.pm::sql(134) Db.pm::sql(321)]
 SELECT u.id, a.ip FROM ( SELECT INET_NTOA(i.ip) AS ip FROM users u JOIN ip_pool i ON i.uid=u.id WHERE u.lstate=1 UNION SELECT ip FROM auth_now ) a JOIN ip_pool i ON INET_ATON(a.ip)=i.ip JOIN users u ON i.uid=u.id WHERE u.state='on' AND EXISTS (SELECT uid FROM v_services WHERE tags LIKE '%,inet,%' AND uid=u.id)
Строк: 1. Время выполнения sql: 0.0009 сек
SELECT uid, param FROM v_services WHERE tags LIKE '%,speed,%'
Строк: 3. Время выполнения sql: 0.00008000 сек

[3.065602: noserver.pl(97) nod.pm::Task_run(224) nod.pm(224) noserver.pl::load_usr_traf(161) Db.pm::sql(134) Db.pm::sql(321)]
SELECT SQL_BUFFER_RESULT *,SUM(in1+in2+in3+in4) AS traf_in, SUM(out1+out2+out3+out4) AS traf_out FROM users_trf GROUP BY uid
Строк: 5. Время выполнения sql: 0.0002 сек

[5.057325: noserver.pl(97) nod.pm::Task_run(224) nod.pm(224) noserver.pl::proc_fw(125) nofire.pm::fw_usr_on(227)]
Fw On uid: 4, ip: 10.100.64.0, вх.скор: 102400 КБит/с

[5.057592: noserver.pl(97) nod.pm::Task_run(224) nod.pm(224) noserver.pl::proc_fw(134) nofire.pm::fw_run(99)]
delete 05000
delete 18500
delete 18501
delete 18502
delete 32000
delete 33000
delete 46500
delete 46501
delete 60000
add 18500 fwd 127.0.0.1, 8080 tcp from any to any 80
add 18501 deny ip from any to any
add 46500 deny ip from any to any
add 60000 deny ip from any to any
add 32000 deny ip from any to any
table 11 flush
table 21 flush
add 5000 skipto 18502 ip from table(21) to table(11)
add 18502 pipe tablearg ip from table(21) to any
table 31 flush
add 33000 skipto 46501 ip from table(11) to table(31)
add 46501 pipe tablearg ip from any to table(31)
table 11 add 0.0.0.0/0
pipe 1001 config bw 0bit/s
table 31 add 10.100.64.0 1001
table 21 add 10.100.64.0 1001


[6.079524: noserver.pl(97) nod.pm::Task_run(224) nod.pm(224) noserver.pl::load_usr_info(140) Db.pm::sql(134) Db.pm::sql(321)]
 SELECT u.id, a.ip FROM ( SELECT INET_NTOA(i.ip) AS ip FROM users u JOIN ip_pool i ON i.uid=u.id WHERE u.lstate=1 UNION SELECT ip FROM auth_now ) a JOIN ip_pool i ON INET_ATON(a.ip)=i.ip JOIN users u ON i.uid=u.id WHERE u.state='on' AND EXISTS (SELECT uid FROM v_services WHERE tags LIKE '%,inet,%' AND uid=u.id)
Строк: 1. Время выполнения sql: 0.0002 сек

 select * from users_services where uid=82;
+------+-----+--------+------------+------------+------------+-----------------+---------------------------+
| id   | uid | pay_id | service_id | tm_start   | tm_end     | next_service_id | tags                      |
+------+-----+--------+------------+------------+------------+-----------------+---------------------------+
| 320  |  82 |        |          5 | 1364636147 | 1364763600 |               5 | ,inet,speed,start_traf=0, |
+------+-----+--------+------------+------------+------------+-----------------+---------------------------+
1 row in set (0.00 sec)

mysql> select * from pays where mid =82 order by id desc limit 1;
+-------+-----+-------+------------+---------+------------+------------+---------------------------------------------------------------------------------------------------+---------+----------+
| id    | mid | cash  | time       | creator | creator_id | creator_ip | reason                                                                                            | comment | category |
+-------+-----+-------+------------+---------+------------+------------+---------------------------------------------------------------------------------------------------+---------+----------+
| 985   |  82 | -4.50 | 1364636147 | admin   |          6 |  160000007 | $VAR1 = {'tm_end' => '1364763600','last_day_k' => '0.05','tm_start' => 1364636147,'cash' => -90}; |         |      100 |
+-------+-----+-------+------------+---------+------------+------------+---------------------------------------------------------------------------------------------------+---------+----------+
1 row in set (0.00 sec)

%p or Error $lang::user::soft_error;

Db->ok or Error $lang::user::soft_error;

cd /usr/local/nodeny
svn up
perl install.pl -x

tail /var/log/httpd-error.log 

[root@nodeny+ ~]# tail /var/log/httpd-error.log
[Mon May 20 02:16:33 2013] [notice] caught SIGTERM, shutting down
[Mon May 20 09:28:46 2013] [warn] Init: Session Cache is not configured [hint: SSLSessionCache]
[Mon May 20 09:28:46 2013] [notice] Digest: generating secret for digest authentication ...
[Mon May 20 09:28:46 2013] [notice] Digest: done
[Mon May 20 09:28:47 2013] [notice] Apache/2.2.21 (FreeBSD) DAV/2 mod_ssl/2.2.21 OpenSSL/0.9.8q configured -- resuming normal operations
[Mon May 20 11:38:25 2013] [notice] caught SIGTERM, shutting down
[Mon May 20 20:16:09 2013] [warn] Init: Session Cache is not configured [hint: SSLSessionCache]
[Mon May 20 20:16:10 2013] [notice] Digest: generating secret for digest authentication ...
[Mon May 20 20:16:10 2013] [notice] Digest: done
[Mon May 20 20:16:10 2013] [notice] Apache/2.2.21 (FreeBSD) DAV/2 mod_ssl/2.2.21 OpenSSL/0.9.8q configured -- resuming normal operations
[root@nodeny+ ~]#

[Tue May 21 01:12:26 2013] [notice] caught SIGTERM, shutting down
[Tue May 21 01:12:27 2013] [warn] Init: Session Cache is not configured [hint: SSLSessionCache]
[Tue May 21 01:12:27 2013] [notice] Digest: generating secret for digest authentication ...
[Tue May 21 01:12:27 2013] [notice] Digest: done
[Tue May 21 01:12:27 2013] [notice] Apache/2.2.21 (FreeBSD) DAV/2 mod_ssl/2.2.21 OpenSSL/0.9.8q configured -- resuming normal operations
[Tue May 21 01:12:50 2013] [error] [client 192.168.1.110] (13)Permission denied: exec of '/usr/local/www/apache22/cgi-bin/stat.pl' failed
[Tue May 21 01:12:50 2013] [error] [client 192.168.1.110] Premature end of script headers: stat.pl

echo 1 >/dev/brain

chmod 755 /usr/local/www/apache22/cgi-bin/stat.pl

[root@nodeny+ ~]# echo 1 >/dev/brain
su: /dev/brain: Operation not supported

chmod 755 /usr/local/www/apache22/cgi-bin/stat.pl

perl install.pl -w=www

[root@nodeny+ /usr/home/ysl]# perl /usr/local/nodeny/nokernel.pl -d &
[1] 2872
[root@nodeny+ /usr/home/ysl]# Perl exited with active threads:
        1 running and unjoined
        0 finished and unjoined
        1 running and detached

perl /usr/local/nodeny/nokernel.pl -v

[root@nodeny+ ~]# perl /usr/local/nodeny/nokernel.pl -v
Start. Flag -h for help

loading /usr/local/nodeny/sat.cfg

Connecting to DBI:mysql:database=nodeny;host=localhost;port=3306;mysql_connect_timeout=5 : 0.054827 sec

SELECT * FROM config ORDER BY time DESC LIMIT 1
п║я┌я─п╬п╨: 1. п▓я─п╣п╪я▐ п╡я▀п©п╬п╩пҐп╣пҐп╦я▐ sql: 0.0006 я│п╣п╨

loading kernel::cap.pm

п║п╩я┐я┬п╟п╣п╪ п©п╬я─я┌ 8080

loading kernel::system_clean.pm

loading kernel::services.pm

loading kernel::authserver.pm

loading kernel::auth.pm

loading kernel::tmppays.pm

loading kernel::collectors.pm

loading kernel::collectors::ipcad.pm

loading kernel::balance.pm

loading kernel::websession.pm

loading kernel::create.kernel.capremind.pm

syntax error at (eval 43) line 1, near "use kernel::create."


Perl exited with active threads:
        1 running and unjoined
        0 finished and unjoined
        1 running and detached
[root@nodeny+ ~]#

loading kernel::create.kernel.capremind.pm

syntax error at (eval 43) line 1, near "use kernel::create."

/usr/local/nodeny/modules/capremind/

#### здесь начало описания влана ПРОСТО ТОЛПА ЮЗЕРОВ В ОДНОМ ВЛАНЕ НА ТУПЫХ СВИЧАХ, не больше 250 юзеров
subnet 10.100.60.0 netmask 255.255.255.0 {
    option routers 10.100.60.1;

    class "VLAN_100" {
            match if ( binary-to-ascii(10, 16, "", substring(option agent.circuit-id, 2, 2))="100");
        }
            pool { range 10.100.60.2 10.100.60.254; allow members of "VLAN_100"; }

    on commit {
        set ClientIP  = binary-to-ascii(10, 8, ".", leased-address);
        set ClientMac = binary-to-ascii(16, 8, ":", substring(hardware, 1, 6));
        execute("/usr/bin/perl", "/usr/local/nodeny/modules/dhcp/events.pl", "commit", ClientIP, ClientMac);
    }
    on expiry {
        set ClientIP  = binary-to-ascii(10, 8, ".", leased-address);
        execute("/usr/bin/perl", "/usr/local/nodeny/modules/dhcp/events.pl", "expiry", ClientIP);
    }
    on release {
        set ClientIP  = binary-to-ascii(10, 8, ".", leased-address);
        execute("/usr/bin/perl", "/usr/local/nodeny/modules/dhcp/events.pl", "release", ClientIP);
    }

}
#### здесь заканчивется описание влана
#################################################################
# Вариант супер влана с диапазном ИП  (Принцип влан на клиента)
# Может быть 250 вланов с пользователями
#       В ДАНОМ ПРИМЕРЕ ИП НЕ ПРИВЯЗАНЫ СТРОГО К ВЛАНАМ НО ДОЛЖНЫ БЫТЬ В ДИАПАЗОНЕ
#################################################################
   subnet 10.100.100.0 netmask 255.255.254.0 {
        option routers 10.100.100.1;

class "S_VLAN_4000_sub_420-430" {
     match if ( binary-to-ascii(10, 16, "", substring(option agent.circuit-id, 2, 2))="420"
        or  binary-to-ascii(10, 16, "", substring(option agent.circuit-id, 2, 2))="421"
        or  binary-to-ascii(10, 16, "", substring(option agent.circuit-id, 2, 2))="422"
        or  binary-to-ascii(10, 16, "", substring(option agent.circuit-id, 2, 2))="423"
        or  binary-to-ascii(10, 16, "", substring(option agent.circuit-id, 2, 2))="424"
        or  binary-to-ascii(10, 16, "", substring(option agent.circuit-id, 2, 2))="425"
        or  binary-to-ascii(10, 16, "", substring(option agent.circuit-id, 2, 2))="426"
        or  binary-to-ascii(10, 16, "", substring(option agent.circuit-id, 2, 2))="427"
        or  binary-to-ascii(10, 16, "", substring(option agent.circuit-id, 2, 2))="428"
        or  binary-to-ascii(10, 16, "", substring(option agent.circuit-id, 2, 2))="429"
        or  binary-to-ascii(10, 16, "", substring(option agent.circuit-id, 2, 2))="430");
        }
            pool { range 10.100.100.2 10.100.101.254; allow members of "S_VLAN_4000_sub_420-430"; }

    on commit {
        set ClientIP  = binary-to-ascii(10, 8, ".", leased-address);
        set ClientMac = binary-to-ascii(16, 8, ":", substring(hardware, 1, 6));
        execute("/usr/bin/perl", "/usr/local/nodeny/modules/dhcp/events.pl", "commit", ClientIP, ClientMac);
    }
    on expiry {
        set ClientIP  = binary-to-ascii(10, 8, ".", leased-address);
        execute("/usr/bin/perl", "/usr/local/nodeny/modules/dhcp/events.pl", "expiry", ClientIP);
    }
    on release {
        set ClientIP  = binary-to-ascii(10, 8, ".", leased-address);
        execute("/usr/bin/perl", "/usr/local/nodeny/modules/dhcp/events.pl", "release", ClientIP);
    }

}
######################################### end

cards
pays
srv_select
auth_log
remitter
traf_graph
srv_info
srv_add
credit
ajGraph

code = '1,1,cols-0-11,1,cols-0-53,1,cols-1-53,1,cols-0-21,1,cols-2-21,1,cols-1-17,1,cols-2-17,1,cols-0-2,1,cols-1-2,1,cols-2-2,1,cols-1-22,1,cols-2-22,1,cols-1-1,1,cols-2-1,1,cols-1-18,1,cols-2-18,1,cols-0-16,1,cols-1-16,1,cols-2-16,1,cols-0-13,1,cols-1-6,1,cols-0-50,1,cols-1-50,1,cols-0-3,1,cols-1-3,1,cols-2-3,1,cols-0-51,1,cols-1-51,1,cols-0-9,1,cols-2-9,1,cols-0-12,1,cols-2-20,1,cols-0-14,1,cols-1-14,1,cols-2-14,1,cols-1-15,1,cols-0-52,1,cols-1-52,1,cols-0-8,1,cols-1-8,1,cols-0-4,1,cols-2-4,1,cols-2-19,1,cols-0-10,1,cols-0-54,1,cols-1-54,1,cols-1-5,1'
error = "Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
Bareword \"cols\" not allowed while \"strict subs\" in use at (eval 23) line 1.
"

# Режим поиска (начало/фрагмент/...)
my $Fmode = ses::input_int('mode');

# Режим поиска (начало/фрагмент/...)
my $Fmode = ses::input_int('mode') || число;

package lang::adm;

$lang = {

perl install.pl -x

allow unknown-clients;
default-lease-time 3600;
min-lease-time 600;
max-lease-time 7200;
authoritative;
ddns-update-style interim;
log-facility local7;

shared-network 0-1 {
subnet 10.23.2.0 netmask 255.255.255.0 {
        option subnet-mask 255.255.255.0;
        option broadcast-address 10.23.2.255;
        option routers 10.23.2.254;
        option domain-name-servers 1.1.1.1,195.242.179.179;
    {% for user in users %}
        {% eval i = 0 %}
        {% for ip in user.ips %}
            {% if ip.ip >= 169280001 && ip.ip <= 169280254 %}
            host {{user.name}} {
                hardware ethernet {{user.data._mac}};
                fixed-address {{ip.ipa}};
            }
            {% eval i = i + 1 %}
          {% endif %}
        {% endfor %}
    {% endfor %}
}

subnet 10.23.3.0 netmask 255.255.255.0 {
        option subnet-mask 255.255.255.0;
        option broadcast-address 10.23.3.255;
        option routers 10.23.3.254;
        option domain-name-servers 1.1.1.1,195.242.179.179;
    {% for user in users %}
        {% eval i = 0 %}
        {% for ip in user.ips %}
            {% if ip.ip >= 169280257 && ip.ip <= 169280510 %}
            host {{user.name}} {
                hardware ethernet {{user.data._mac}};
                fixed-address {{ip.ipa}};
            }
            {% eval i = i + 1 %}
          {% endif %}
        {% endfor %}
    {% endfor %}
}


subnet 10.23.4.0 netmask 255.255.255.0 {
        option subnet-mask 255.255.255.0;
        option broadcast-address 10.23.4.255;
        option routers 10.23.4.254;
        option domain-name-servers 1.1.1.1,195.242.179.179;
    {% for user in users %}
        {% eval i = 0 %}
        {% for ip in user.ips %}
            {% if ip.ip >= 169280513 && ip.ip <= 169280766 %}
            host {{user.name}} {
                hardware ethernet {{user.data._mac}};
                fixed-address {{ip.ipa}};
            }
            {% eval i = i + 1 %}
          {% endif %}
        {% endfor %}
    {% endfor %}

}

subnet 10.23.5.0 netmask 255.255.255.0 {
        option subnet-mask 255.255.255.0;
        option broadcast-address 10.23.5.255;
        option routers 10.23.5.254;
        option domain-name-servers 1.1.1.1,195.242.179.179;
    {% for user in users %}
        {% eval i = 0 %}
        {% for ip in user.ips %}
            {% if ip.ip >= 169280769 && ip.ip <= 169281022 %}
            host {{user.name}} {
                hardware ethernet {{user.data._mac}};
                fixed-address {{ip.ipa}};
            }
            {% eval i = i + 1 %}
          {% endif %}
        {% endfor %}
    {% endfor %}

}
subnet 192.168.10.0 netmask 255.255.255.0 {
        option subnet-mask 255.255.255.0;
        option broadcast-address 192.168.10.255;
        option routers 192.168.10.1;
        option domain-name-servers 1.1.1.1,195.242.179.179;
	range 192.168.10.10 192.168.10.100;
}
}

ls -l /usr/local/nodeny/ | grep htd 

Global symbol "$row" requires explicit package name at /usr/local/nodeny/web/_users.pl line 743.
Global symbol "$row" requires explicit package name at /usr/local/nodeny/web/_users.pl line 743.
Global symbol "$row" requires explicit package name at /usr/local/nodeny/web/_users.pl line 743.
syntax error at /usr/local/nodeny/web/_users.pl line 747, near "< ."
(Might be a runaway multi-line << string starting on line 743)
Global symbol "$row" requires explicit package name at /usr/local/nodeny/web/_users.pl line 748.
Global symbol "$row" requires explicit package name at /usr/local/nodeny/web/_users.pl line 752.
Compilation failed in require at /usr/local/nodeny/web/calls.pm line 1103.
Compilation failed in require at /usr/local/nodeny/web/calls.pm line 1103.

if( $Selected_grp_urls )
 {
    $Selected_grp_urls .= url->a(['→'], a=>'ajAdmTunes', grps=>$Sql_search_in_grps,
        -ajax=>1, -title=>'Запомнить', -class=>'bold');
    $Search_info_tbl->ins('', '4', [$Selected_grp_urls]);
 }

if( $Selected_grp_urls )
 {
    $Selected_grp_urls .= url->a(['☑'], a=>'ajAdmTunes', grps=>$Sql_search_in_grps,
        -ajax=>1, -title=>'Запомнить группы', -class=>'bold');
    $Selected_grp_urls .= url->a(['☒'], a=>'ajAdmTunes', grps=>'',
        -ajax=>1, -title=>'Очистить фильтр групп', -class=>'bold');
    $Search_info_tbl->ins('', '4', [$Selected_grp_urls]);
 }

[quote author=sov link=topic=2203.msg22881#msg22881 date=1376764430]
[quote author=Nafanya link=topic=2203.msg22880#msg22880 date=1376759833]
[quote]2. Не нашёл, где отменить действие стрелочки "Запомнить" при фильтрации групп клиентов. Теперь минимум одна группа всегда остаётся выделенной.[/quote]
[/quote]
Спасибо. Там я искать не догадался. Почему оно там - для меня большая загадка. Логично и удобно, когда кнопки выбора и отмены выбора находятся рядом.

Ну вот примерно так. Меняем в файле users.pl вот это: 

[code]
if( $Selected_grp_urls )
 {
    $Selected_grp_urls .= url->a(['→'], a=>'ajAdmTunes', grps=>$Sql_search_in_grps,
        -ajax=>1, -title=>'Запомнить', -class=>'bold');
    $Search_info_tbl->ins('', '4', [$Selected_grp_urls]);
 }

if( $Selected_grp_urls )
 {
    $Selected_grp_urls .= url->a(['☑'], a=>'ajAdmTunes', grps=>$Sql_search_in_grps,
        -ajax=>1, -title=>'Запомнить группы', -class=>'bold');
    $Selected_grp_urls .= url->a(['☒'], a=>'ajAdmTunes', grps=>'',
        -ajax=>1, -title=>'Очистить фильтр групп', -class=>'bold');
    $Search_info_tbl->ins('', '4', [$Selected_grp_urls]);
 }

svn -r172 log 
------------------------------------------------------------------------
r172 | sv | 2013-08-20 20:50:17 +0300 (Tue, 20 Aug 2013) | 1 line

пишет трафик в событие блокировки по балансу. Внимание, по умолчанию сбор трафика отключен, включите в kernel/collectors.cfg если нужен

perl nokernel.pl -L

tail -n20 /usr/local/etc/raddb/sql.conf

cat /usr/local/nodeny/kernel/balance.cfg

Db->sql(
 "SELECT ... ".
 "FROM ..."
);

my $param = Debug->do_eval($d{param}) or next;

"UPDATE users_services SET tm_start=".$tm_start

"UPDATE users_services SET tm_start=? ....", $tm_start

"UPDATE users_services SET tm_start=?, tm_end=tm_end+?-tm_start ...", $tm_start, $tm_start

"UPDATE users_services SET tm_start=UNIX_TIMESTAMP(), tm_end=tm_end+UNIX_TIMESTAMP()-tm_start ..."

perl nokernel.pl -m=system_check -v

use Net::ARP;
while( 1 )
{
  my $mac = Net::ARP::arp_lookup( 'igb0', '10.100.100.1' );
  print $mac."\n";
  sleep 1;
}

while [ 1 ]; do ps aux| grep del.pl | grep -v grep; sleep 1; done

use constant MAC_UNKNOWN => 'unknown';
sub get_arp{
        my($if,$ip)=@_;
        $if && $ip or return MAC_UNKNOWN;
        open(ARP,"-|","/sbin/arp -ani $if $ip") or return MAC_UNKNOWN;
        read(ARP,my $ARP,8192);
        close ARP;
        $ARP=~/(([0-9a-f]{1,2}:){5}([0-9a-f]){1,2})/i or return MAC_UNKNOWN;
        return $1;
}

Ответ сервера содержит дублирующиеся заголовки. Обычно так происходит, если неправильно настроен веб-сайт или прокси-сервер. Исправить эту проблему может только администратор веб-сайта или прокси-сервера.
Код ошибки: ERR_RESPONSE_HEADERS_MULTIPLE_CONTENT_DISPOSITION

        my $sql = "UPDATE users_services SET tm_start=?, tm_end=?";
    ....
        $sql .= ', finish_count=?';
        push @sql_param, ses::input_int('finish_count');

# dns, www_liqpay_com, liqpay_com
${f} table 100 add 8.8.8.8
${f} table 100 add 50.16.196.80
${f} table 100 add 107.21.122.223

# dns, www_liqpay_com, liqpay_com
${f} table 100 add 8.8.8.8
${f} table 100 add liqpay_com
${f} table 100 add www_liqpay_com
${f} table 100 add ecommerce_liqpay_com

Есть платежи несуществующих клиентов. Важность проблемы: 1
Есть расхождения суммы платежей и баланса клиента. Важность проблемы: 3
retrieval of routing table: Cannot allocate memory

kern.maxdsiz: 1073741824
kern.dfldsiz: 1073741824

Dec 10 12:36:10 nodeny kernel: arp: unknown hardware address format (0x0800) (from 00:00:00:00:00:00 to 00:00:5e:99:51:79)
Dec 10 12:36:10 nodeny kernel: arp: unknown hardware address format (0x0800) (from 00:00:00:00:00:00 to 00:00:5e:99:51:79)
Dec 10 12:37:37 nodeny kernel: arp: unknown hardware address format (0x0800) (from 00:00:00:00:00:00 to 00:00:5b:d6:f5:a8)
Dec 10 12:37:37 nodeny kernel: arp: unknown hardware address format (0x0800) (from 00:00:00:00:00:00 to 00:00:5b:d6:f5:a8)
Dec 10 12:39:32 nodeny last message repeated 4 times
Dec 10 12:46:53 nodeny last message repeated 4 times

perl nokernel.pl -L

[root@nodeny /usr/local/nodeny]# perl nokernel.pl -L
Start. Flag -h for help
loading /usr/local/nodeny/sat.cfg

MODULE                   RUN?
cap                      0
capremind                1
system_clean             0
make_config              0
services                 0
authserver               0
auth                     0
tmppays                  0
collectors               0
websession               0
balance                  0
mmm                      0
system_check             1
authtraf                 0
dhcp                     0

 1371 v0- S        1:15,10 /usr/bin/perl /usr/local/nodeny/nokernel.pl -d (perl5.14.4)
 1372 v0- S       54:31,95 /usr/bin/perl /usr/local/nodeny/noserver.pl -d (perl5.14.4)
 2144  0- S        1:19,14 /usr/bin/perl /usr/local/nodeny/nokernel.pl -m=dhcp -d (perl5.14.4)
 2145  0- S       26:26,08 /usr/bin/perl /usr/local/nodeny/nokernel.pl -m=cap -d (perl5.14.4)
 2146  0- S        1:40,58 /usr/bin/perl /usr/local/nodeny/nokernel.pl -m=auth -d (perl5.14.4)
 2147  0- S        1:10,93 /usr/bin/perl /usr/local/nodeny/nokernel.pl -m=websession -d (perl5.14.4)
 2148  0- S        1:23,19 /usr/bin/perl /usr/local/nodeny/nokernel.pl -m=authserver -d (perl5.14.4)
 2149  0- S        1:11,08 /usr/bin/perl /usr/local/nodeny/nokernel.pl -m=tmppays -d (perl5.14.4)
 2150  0- S        4:39,48 /usr/bin/perl /usr/local/nodeny/nokernel.pl -m=collectors -d (perl5.14.4)
 2152  0- S        1:25,04 /usr/bin/perl /usr/local/nodeny/nokernel.pl -m=services -d (perl5.14.4)
 2153  0- S        1:20,70 /usr/bin/perl /usr/local/nodeny/nokernel.pl -m=balance -d (perl5.14.4)
 2154  0- S        1:13,58 /usr/bin/perl /usr/local/nodeny/nokernel.pl -m=mmm -d (perl5.14.4)
 2155  0- S       23:29,48 /usr/bin/perl /usr/local/nodeny/nokernel.pl -m=make_config -d (perl5.14.4)

ipfw show | grep fwd

[root@nodeny /usr/local/nodeny]# /usr/bin/perl /usr/local/nodeny/nokernel.pl -m=authtraf
Start. Flag -h for help
loading /usr/local/nodeny/sat.cfg
loading kernel::authtraf.pm
retrieval of routing table: Cannot allocate memory

Start. Flag -h for help
loading /usr/local/nodeny/sat.cfg

MODULE                   RUN?
cap                      0
capremind                1
system_clean             1
make_config              0
services                 0
authserver               0
auth                     0
tmppays                  0
collectors               0
websession               0
balance                  0
mmm                      1
system_check             1
authtraf                 0
dhcp                     1