Биллинговая система Nodeny
21 Октября 2021, 08:27:40 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Прекращена поддержка версии Nodeny 49
 
   Начало   Помощь Поиск Войти Регистрация  
Страниц: [1]
  Печать  
Автор Тема: rev 434. Изменения под новую версию perl  (Прочитано 4430 раз)
Efendy
Администратор
Спец
*****

Карма: 137
Offline Offline

Сообщений: 4723



Просмотр профиля
« : 16 Декабря 2016, 12:34:40 »

Небольшой фикс шаблонизатора под новую версию perl
Записан
Cell
NoDeny
Спец
*

Карма: 51
Offline Offline

Сообщений: 1425



Просмотр профиля
« Ответ #1 : 27 Февраля 2017, 01:36:32 »

Бага выскочила походу тоже с перловкой связана:
Цитировать
Experimental push on scalar is now forbidden at /usr/local/nodeny/web/user/_message.pl line 50, near "$file;"

perl v5.24.1
Записан
Efendy
Администратор
Спец
*****

Карма: 137
Offline Offline

Сообщений: 4723



Просмотр профиля
« Ответ #2 : 27 Февраля 2017, 13:17:37 »

Это скорее всего в модуле тикетов: в tickets/create.user.message.pl
надо
Код:
push @{sqls[0]}, $file;
заменить на
Код:
push @{$sqls[0]}, $file;
я исправлю
Записан
Cell
NoDeny
Спец
*

Карма: 51
Offline Offline

Сообщений: 1425



Просмотр профиля
« Ответ #3 : 27 Февраля 2017, 23:15:07 »

Да, помогло. Спасибо
Записан
Jovani
NoDeny
Постоялец
*

Карма: 0
Offline Offline

Сообщений: 231


Просмотр профиля
« Ответ #4 : 07 Октября 2020, 15:32:24 »

Всплыла проблема, при установке модуля обновляет и сам перл, после чего билинг не работает.

Как установить модуль и исключить обновление перла.

Код:
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.
Записан
Jovani
NoDeny
Постоялец
*

Карма: 0
Offline Offline

Сообщений: 231


Просмотр профиля
« Ответ #5 : 07 Октября 2020, 16:17:07 »

После обновления такая ошибка.
Прошу подсказать в чем может быть проблема.

модули перла переустановил


Код:
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
Записан
Cell
NoDeny
Спец
*

Карма: 51
Offline Offline

Сообщений: 1425



Просмотр профиля
« Ответ #6 : 07 Октября 2020, 21:54:08 »

pkg install p5-common-sense
Записан
Страниц: [1]
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.20 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!