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

17.02.2018 12:13:19 [(eval 10)::BEGIN(2) calls.pm(35) Db.pm::line(143) Db.pm::sql(112) Db.pm::connect(94)]
Connecting to DBI:mysql:database=nodeny;host=172.16.166.254;port=3306;mysql_connect_timeout=5 : 0.021596 sec
17.02.2018 12:13:19 [(eval 10)::BEGIN(2) calls.pm(35) Db.pm::line(143) Db.pm::sql(133) Db.pm::sql(320)]
SELECT *, UNIX_TIMESTAMP() AS t, (SELECT COUNT(*) FROM users) AS c, (SELECT GROUP_CONCAT(CONCAT(post, '-', login)) FROM admin WHERE post<>'0') AS employees, (SELECT COUNT(*) FROM documents WHERE tags LIKE '%,system,%' AND tags LIKE '%,template=%' AND parent_id>0) AS templates FROM config ORDER BY time DESC LIMIT 1
Строк: 1. Время выполнения sql: 0.0053 сек
17.02.2018 12:13:19 [(eval 10)::BEGIN(2) calls.pm(220)]
GET data: a=users
17.02.2018 12:13:19 [(eval 10)::BEGIN(2) calls.pm(271)]
  a  = 'users'
17.02.2018 12:13:19 [(eval 10)::BEGIN(2) calls.pm(285)]
Cookies:
  noses  = 'lBufjMCzi3aK9L8LAF/cnA'
17.02.2018 12:13:19 [(eval 10)::BEGIN(2) calls.pm(334) Db.pm::line(143) Db.pm::sql(133) Db.pm::sql(320)]
SELECT * FROM websessions s LEFT JOIN admin a ON (s.uid=a.id AND s.role='admin') WHERE BINARY ses='lBufjMCzi3aK9L8LAF/cnA' AND uid>0 LIMIT 1
Строк: 1. Время выполнения sql: 0.0040 сек
17.02.2018 12:13:19 [(eval 10)::BEGIN(2) calls.pm(352)]
Сессия `lBufjMCzi3aK9L8LAF/cnA` существует, uid: 11, role: admin
17.02.2018 12:13:19 [stat.pl(169) calls.pm::Require_web_mod(1403) calls.pm::Require_mod(1394)]
require /usr/local/nodeny/web/start_admin.pl
17.02.2018 12:13:19 [stat.pl(169) calls.pm::Require_web_mod(1403) calls.pm::Require_mod(1396) calls.pm(1396) start_admin.pl(75) calls.pm::Require_web_mod(1403) calls.pm::Require_mod(1394)]
require /usr/local/nodeny/web/_users.pl
17.02.2018 12:13:19 [stat.pl(169) calls.pm::Require_web_mod(1403) calls.pm::Require_mod(1396) calls.pm(1396) start_admin.pl(75) calls.pm::Require_web_mod(1403) calls.pm::Require_mod(1396) calls.pm(1396) _users.pl(1350) stat.pl::__ANON__(30) stat.pl(30) stat.pl::Hard_exit(89) stat.pl(90)]
Global symbol "$One_grp_property" requires explicit package name at /usr/local/nodeny/web/_users.pl line 685.
BEGIN not safe after errors--compilation aborted at /usr/local/nodeny/web/_users.pl line 1350.

17.02.2018 12:13:19 [stat.pl(169) calls.pm::Require_web_mod(1403) calls.pm::Require_mod(1396) calls.pm(1396) start_admin.pl(75) calls.pm::Require_web_mod(1403) calls.pm::Require_mod(1396) calls.pm(1396) _users.pl(1350) stat.pl::__ANON__(30) stat.pl(30) stat.pl::Hard_exit(89) stat.pl(92)]
Elapsed time: 0.091318 sec
17.02.2018 12:13:19 [stat.pl(169) calls.pm::Require_web_mod(1403) calls.pm::Require_mod(1396) calls.pm(1396) start_admin.pl(75) calls.pm::Require_web_mod(1403) calls.pm::Require_mod(1396) calls.pm(1396) _users.pl(1350) stat.pl::__ANON__(30) stat.pl(30) stat.pl::Hard_exit(99) stat.pl(101) calls.pm::Error(740) calls.pm::ErrorMess(724) calls.pm::render_template(629) tmpl.pm::render(219)]
my @forloops=();
$T{1} = ' ';
$T{2} = ' <table class=\'msg_tbl\'> <tr> <td class=\'h_center\'><img src=\'';
$T{3} = '\'>';
$T{4} = '<p class=\'error\'>';
$T{5} = '</p>';
$T{6} = '</td> <td><div';
$T{7} = ' class=\'';
$T{8} = '\'';
$T{9} = '>';
$T{10} = '</div></td> </tr> </table> ';
$T{11} = ' <div class=\'';
$T{12} = '\'>';
$T{13} = '</div> ';
$T{14} = ' ';

$T{0} .= $T{1}.'';
if( ref $T{pic} eq 'ARRAY'? scalar @{$T{pic}} : ref $T{pic} eq 'HASH'? keys %{$T{pic}} : $T{pic} ) {
        $T{0} .= $T{2}.$T{pic}.$T{3}.'';
        if( ref $T{picmsg} eq 'ARRAY'? scalar @{$T{picmsg}} : ref $T{picmsg} eq 'HASH'? keys %{$T{picmsg}} : $T{picmsg} ) {
                $T{0} .= $T{4}.$T{picmsg}.$T{5}.'';
        }
        $T{0} .= $T{6}.'';
        if( ref $T{msg_class} eq 'ARRAY'? scalar @{$T{msg_class}} : ref $T{msg_class} eq 'HASH'? keys %{$T{msg_class}} : $T{msg_class} ) {
                $T{0} .= $T{7}.$T{msg_class}.$T{8}.'';
        }
        $T{0} .= $T{9}.$T{msg}.$T{10}.'';
} else {
        $T{0} .= $T{11}.$T{msg_class}.$T{12}.$T{msg}.$T{13}.'';
}
$T{0} .= $T{14}.'';

cd /usr/local/nodeny/
grep -R One_grp_property .