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

push @{sqls[0]}, $file;

push @{$sqls[0]}, $file;

pkg install p5-DBD-mysql
Updating FreeBSD repository catalogue...
FreeBSD repository is up to date.
All repositories are up to date.
Checking integrity... done (1 conflicting)
  - perl5.30-5.30.3 conflicts with perl5-5.30.0 on /usr/local/lib/perl5/5.30/AnyDBM_File.pm
Checking integrity... done (0 conflicting)
The following 3 package(s) will be affected (of 0 checked):

New packages to be INSTALLED:
        p5-DBD-mysql: 4.050
        perl5.30: 5.30.3

Installed packages to be UPGRADED:
        perl5: 5.30.0 -> 5.32.0

Number of packages to be installed: 2
Number of packages to be upgraded: 1

The process will require 59 MiB more space.

07.10.2020 17:11:34 [(eval 8)::BEGIN(1) calls.pm(35) Db.pm::line(143) Db.pm::sql(112) Db.pm::connect(94)]
Connecting to DBI:mysql:database=newnodeny;host=localhost;port=3306;mysql_connect_timeout=5 : 0.02334 sec
07.10.2020 17:11:34 [(eval 8)::BEGIN(1) 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.0038 сек
07.10.2020 17:11:34 [(eval 8)::BEGIN(1) calls.pm(286)]
Cookies: 
  noses  = 'cZiqsURljOqZ!fYp/1A6tg'
07.10.2020 17:11:34 [(eval 8)::BEGIN(1) calls.pm(356) 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='cZiqsURljOqZ!fYp/1A6tg' AND uid>0 LIMIT 1
Строк: 0. Время выполнения sql: 0.0007 сек
07.10.2020 17:11:34 [(eval 8)::BEGIN(1) calls.pm(393)]
Сессии cZiqsURljOqZ!fYp/PA6tg нет в БД. Скорее всего удалена по таймауту.
07.10.2020 17:11:34 [(eval 8)::BEGIN(1) calls.pm(460) Db.pm::sql(133) Db.pm::sql(320)]
SELECT a.* FROM documents a LEFT JOIN documents b ON a.parent_id=b.id WHERE a.tags LIKE '%,system,%' AND a.tags LIKE '%,template=%' AND a.parent_id>=0 AND (a.tags NOT LIKE '%,role=%') AND (a.parent_id=0 OR b.tags LIKE '%,system,%')
Строк: 4. Время выполнения sql: 0.0006 сек
07.10.2020 17:11:34 [stat.pl(194)]
Not authorized. Starting login.pl
07.10.2020 17:11:34 [stat.pl(195) calls.pm::Require_web_mod(1594) calls.pm::Require_mod(1585)]
require /usr/local/nodeny/web/login.pl
07.10.2020 17:11:34 [stat.pl(195) calls.pm::Require_web_mod(1594) calls.pm::Require_mod(1587) calls.pm(1587) login.pl(80) calls.pm::Require_web_mod(1594) calls.pm::Require_mod(1585)]
require /usr/local/nodeny/web/login/_telegram.pl
07.10.2020 17:11:34 [stat.pl(195) calls.pm::Require_web_mod(1594) calls.pm::Require_mod(1587) calls.pm(1587) login.pl(80) calls.pm::Require_web_mod(1594) calls.pm::Require_mod(1585)]
require /usr/local/nodeny/web/login/_google.pl
07.10.2020 17:11:35 [_google.pl::BEGIN(5) XS.pm(90) XS.pm(90) OAuth2.pm::BEGIN(10) JSON.pm(69) JSON.pm::_load_xs(283) JSON.pm::__load_xs(266) XS.pm(90) XS.pm(90) (eval 62)::BEGIN(2) XS.pm(90) XS.pm(90) XS.pm::BEGIN(90) stat.pl::__ANON__(29) stat.pl(29) stat.pl::Hard_exit(113) stat.pl(114)]
Can't locate common/sense.pm in @INC (you may need to install the common::sense module) (@INC contains: /usr/local/nodeny /usr/local/lib/perl5/site_perl/mach/5.32 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.32/mach /usr/local/lib/perl5/5.32) at /usr/local/lib/perl5/site_perl/mach/5.32/JSON/XS.pm line 90.

07.10.2020 17:11:35 [_google.pl::BEGIN(5) XS.pm(90) XS.pm(90) OAuth2.pm::BEGIN(10) JSON.pm(69) JSON.pm::_load_xs(283) JSON.pm::__load_xs(266) XS.pm(90) XS.pm(90) (eval 62)::BEGIN(2) XS.pm(90) XS.pm(90) XS.pm::BEGIN(90) stat.pl::__ANON__(29) stat.pl(29) stat.pl::Hard_exit(113) stat.pl(116)]
Elapsed time: 0.153077 sec