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

$coa_connect__state_on = {
    type     => 'coa',
    template => 'Acct-Session-Id={{auth_ses}}, ERX-Service-Activate:1="pppoe_local({{speed_in1_mb}}m,{{speed_out1_mb}}m)"',
};

$coa_connect__state_off = {
    type     => 'coa',
    template => 'Acct-Session-Id={{auth_ses}}, ERX-Service-Activate:1="svc-guest-pppoe"',
};



$coa_disconnect = [
    {
        type     => 'coa',
        template => 'Acct-Session-Id={{auth_ses}}, ERX-Service-Deactivate="pppoe_local"',
    },
    {
        type     => 'coa',
        template => 'Acct-Session-Id={{auth_ses}}, ERX-Service-Deactivate="svc-guest"',
    }
];

mysql> SELECT u.id, u.balance, u.name, u.state, a.auth_start, a.ip, a.properties FROM ( SELECT INET_NTOA(i.ip) AS ip, '' as properties, UNIX_TIMESTAMP() AS auth_start FROM users u JOIN ip_pool i ON i.uid=u.id WHERE u.lstate=1 UNION ALL SELECT ip, properties, start AS auth_start FROM auth_now ) a JOIN ip_pool i ON INET_ATON(a.ip)=i.ip JOIN users u ON i.uid=u.id WHERE TRUE  AND u.state='on';
+----+---------+---------------+-------+------------+------------+-------------------------------------------+
| id | balance | name          | state | auth_start | ip         | properties                                |
+----+---------+---------------+-------+------------+------------+-------------------------------------------+
|  1 |  -32.60 | eth0.3001.202 | on    | 1477660948 | 172.22.0.2 | mod=pppoe;user=0025b35c0899;nas=127.0.0.1 |
+----+---------+---------------+-------+------------+------------+-------------------------------------------+
1 row in set (0.00 sec)

mysql> SELECT u.id, u.balance, u.name, u.state, a.auth_start, a.ip, a.properties FROM ( SELECT INET_NTOA(i.ip) AS ip, '' as properties, UNIX_TIMESTAMP() AS auth_start FROM users u JOIN ip_pool i ON i.uid=u.id WHERE u.lstate=1 UNION ALL SELECT ip, properties, start AS auth_start FROM auth_now ) a JOIN ip_pool i ON INET_ATON(a.ip)=i.ip JOIN users u ON i.uid=u.id WHERE TRUE  AND u.state='off';
+----+---------+---------------+-------+------------+------------+-------------------------------------------+
| id | balance | name          | state | auth_start | ip         | properties                                |
+----+---------+---------------+-------+------------+------------+-------------------------------------------+
|  1 |  -32.60 | eth0.3001.202 | off   | 1477660948 | 172.22.0.2 | mod=pppoe;user=0025b35c0899;nas=127.0.0.1 |
+----+---------+---------------+-------+------------+------------+-------------------------------------------+
1 row in set (0.00 sec)

 SELECT u.id, u.balance, u.name, u.state, a.auth_start, a.ip, a.properties FROM ( SELECT INET_NTOA(i.ip) AS ip, '' as properties, UNIX_TIMESTAMP() AS auth_start FROM users u JOIN ip_pool i ON i.uid=u.id WHERE u.lstate=1 UNION ALL SELECT ip, properties, start AS auth_start FROM auth_now ) a JOIN ip_pool i ON INET_ATON(a.ip)=i.ip JOIN users u ON i.uid=u.id WHERE TRUE  AND u.state='on'

postauth_query = "call radupdate('%{User-Name}','%{reply:Framed-IP-Address}',\
            'user=%{Calling-Station-Id};nas=%{NAS-IP-Address};ses=%{Acct-Session-Id}')"
accounting_update_query = "call radupdate('%{User-Name}','%{Framed-IP-Address}',\
            'user=%{Calling-Station-Id};nas=%{NAS-IP-Address};ses=%{Acct-Session-Id}')"

mysql> mysql>  select * from auth_now;
+-------+------------+------------+------------+----------------------------------------------------------------+
| id    | ip         | start      | last       | properties                                                     |
+-------+------------+------------+------------+----------------------------------------------------------------+
| 13179 | 172.22.0.2 | 1477992246 | 1477992766 | mod=pppoe;user=0025b35c0899;nas=127.0.0.1;ses=b8585c1ab2ed0d3b |
+-------+------------+------------+------------+----------------------------------------------------------------+
1 row in set (0.00 sec)

ip: 172.22.0.2 , auth properies: mod=pppoe;user=0025b35c0899;nas=127.0.0.1;ses=b8585c1ab2ed0d3b

  sending:  = 'Acct-Session-Id=b8585c1ab2ed0d3b, PPPD-Upstream-Speed-Limit=21504, PPPD-Downstream-Speed-Limit=21504,L4-Redirect=0'
  to:       = '/usr/bin/radclient -x 127.0.0.1:3799 coa hardpass5'

Sending CoA-Request of id 171 to 127.0.0.1 port 3799
	Acct-Session-Id = "b8585c1ab2ed0d3b"
	PPPD-Upstream-Speed-Limit = 21504
	PPPD-Downstream-Speed-Limit = 21504
	L4-Redirect = 0
rad_recv: CoA-NAK packet from host 127.0.0.1 port 3799, id=171, length=20

Fw Off uid: 1, ip: 172.22.0.2

ip: 172.22.0.2 , auth properies: 

  sending:  = 'Acct-Session-Id=, PPPD-Upstream-Speed-Limit=2048, PPPD-Downstream-Speed-Limit=2048, L4-Redirect=2'
  to:       = '/usr/bin/radclient -x 127.0.0.1:3799 coa hardpass5'

radclient:: Expected end of line or comma
radclient: Nothing to send.

$coa_connect__state_on = {
    type     => 'coa',
    template => 'Acct-Session-Id={{auth_ses}}, PPPD-Upstream-Speed-Limit={{speed_in1_kb}}, PPPD-Downstream-Speed-Limit={{speed_out1_kb}},L4-Redirect=0',
};

$coa_connect__state_off = {
    type     => 'coa',
    template => 'Acct-Session-Id={{auth_ses}}, PPPD-Upstream-Speed-Limit={{speed_in1_kb}}, PPPD-Downstream-Speed-Limit={{speed_out1_kb}},L4-Redirect=1',
};

$coa_disconnect = {
    type     => 'coa',
    template => 'Acct-Session-Id={{auth_ses}}, PPPD-Upstream-Speed-Limit=2048, PPPD-Downstream-Speed-Limit=2048, L4-Redirect=2',
};

/usr/bin/perl /usr/local/nodeny/noserver.pl -a -i -g=_coa.cfg.pm -d &

-a      : reconnect a user after his auth params were changed

$coa_disconnect = {
        type     => 'disconnect',
        template => 'Framed-IP-Address={{ip}}',
    };

$host = 'x.x.x.1:3799';
$host = 'x.x.x.2:3799';

переменная = значение;
переменная = значение;

$coa_connect__state_on = {
    type     => 'coa',
    template => 'User-Id=uid',
};

507b9de829ec-8014a81f3a40-0/1:18

048d38e29188-8014a81f3a40-0/1:18

   my $cmd = "/usr/local/bin/radclient -x 127.0.0.1:3799 coa password";
   my $data = "User-Name = test";
   while( 1 )
   {
        if( open(my $fh, "| $cmd") )
        {
            print $fh $data;
            close $fh;
        }
        print '.';
        sleep(1);
   }

root      3587  1.6  3.8 196796 147844 ?       Ss   Мар23 3511:04 /usr/bin/perl /usr/local/nodeny/noserver.pl -a -i -g=_coa.cfg.pm -d &

$ip_tags    = 'тег';

accounting {
        sql
        exec
        if("%{sql:SELECT IF((SELECT 1 FROM v_ips i JOIN users u ON i.uid=u.id WHERE u.name='%{User-Name}' AND i.ip='%{Framed-IP-Address}'),1,0)}" < 1){
            update reply {
                mpd-drop-user = 1
            }
        }
    }