4 Commits

Author SHA1 Message Date
eleksir
8aea873746 Bump pinned versions in cpanfile, again 2023-05-04 11:12:32 +03:00
eleksir
77435364e8 Bump pinned versions in cpanfile 2023-02-04 15:37:40 +03:00
eleksir
d3c2857af8 In README add fix for annoying error on macos 2023-02-04 15:36:57 +03:00
eleksir
5c23f41229 Remove unused variables 2023-02-04 15:15:19 +03:00
4 changed files with 23 additions and 17 deletions

7
README
View File

@@ -72,3 +72,10 @@ service aleesa-webapp start
в автозагрузку его можно прописать через команду: в автозагрузку его можно прописать через команду:
rc-update add aleesa-webapp default rc-update add aleesa-webapp default
На MacOS вылазит ошибка BerkeleyDB.xs:82:2: error: db.h is from Berkeley DB 1.x - need at least Berkeley DB 2.6.4
------------------------------------------------------------------------------------------------------------------------
На момент 04.02.2023 в Mac OS Ventura (13.1), это чинится установкой через brew пакета berkeley-db4:
brew install berkeley-db4
brew link berkeley-db4 --force

View File

@@ -43,7 +43,6 @@ sub __fork;
sub __signal_handler; sub __signal_handler;
local $OUTPUT_AUTOFLUSH = 1; local $OUTPUT_AUTOFLUSH = 1;
my $runAsUid = $UID;
my $piddir = '/var/run/' . basename (abs_path $PROGRAM_NAME); my $piddir = '/var/run/' . basename (abs_path $PROGRAM_NAME);
my $C = LoadConf (); my $C = LoadConf ();

View File

@@ -2,34 +2,36 @@
requires 'Carp', '==1.50'; requires 'Carp', '==1.50';
requires 'CHI', '==0.61'; requires 'CHI', '==0.61';
requires 'CHI::Driver::BerkeleyDB', '==0.05'; requires 'CHI::Driver::BerkeleyDB', '==0.05';
requires 'Clone', '==0.45'; requires 'Clone', '==0.46';
requires 'Cwd', '==3.75'; requires 'Cwd', '==3.75';
requires 'Cwd::utf8', '==0.011'; requires 'Cwd::utf8', '==0.011';
requires 'DateTime', '==1.55'; requires 'DateTime', '==1.59';
requires 'Digest::HMAC_SHA1', '==1.04'; requires 'Digest::HMAC_SHA1', '==1.04';
requires 'Encode', '==3.16'; requires 'Encode', '==3.19';
requires 'English', '0'; requires 'English', '0';
requires 'EV', '==4.33'; requires 'EV', '==4.33';
requires 'File::Basename', '==2.85'; requires 'File::Basename', '0';
requires 'File::Path', '==2.18'; requires 'File::Path', '==2.18';
requires 'File::Spec', '==3.75'; requires 'File::Spec', '==3.75';
requires 'HTML::TokeParser', '==3.76'; requires 'HTML::TokeParser', '==3.81';
requires 'IO::Socket::SSL', '==2.073'; requires 'IO::Socket::SSL', '==2.081';
requires 'JSON', '==4.04'; requires 'JSON', '==4.10';
requires 'JSON::XS', '==4.03'; requires 'JSON::XS', '==4.03';
requires 'local::lib', '==2.000028'; requires 'local::lib', '==2.000029';
requires 'Log::Any', '==1.710'; requires 'Log::Any', '==1.714';
requires 'Log::Any::Adapter', '==1.710'; requires 'Log::Any::Adapter', '==1.714';
requires 'Log::Any::For::Std', '==0.05'; requires 'Log::Any::For::Std', '==0.05';
requires 'Math::Random::Secure', '==0.080001'; requires 'Math::Random::Secure', '==0.080001';
requires 'MIME::Base64', '==3.16'; requires 'MIME::Base64', '==3.16';
requires 'Mojolicious', '==9.26'; requires 'Mojolicious', '==9.31';
requires 'Mojo::IOLoop::Signal', '==0.003'; requires 'Mojo::IOLoop::Signal', '==0.003';
# Чтобы заткнуть Mojo::UserAgent::Cached # Чтобы заткнуть Mojo::UserAgent::Cached
requires 'Mojo::Log', '0'; requires 'Mojo::Log', '0';
requires 'Mojo::Redis', '==3.27'; requires 'Mojo::Redis', '==3.29';
requires 'Mojo::UserAgent', '0'; requires 'Mojo::UserAgent', '0';
requires 'Mojo::UserAgent::Cached', '==1.18'; requires 'Mojo::UserAgent::Cached', '==1.25';
requires 'POSIX', '0'; requires 'POSIX', '0';
# Рекомендованный модуль для DateTime
requires 'Sub::Util', '==1.63';
requires 'URI::Encode::XS', '==0.11'; requires 'URI::Encode::XS', '==0.11';
requires 'URI::URL', '==5.10'; requires 'URI::URL', '==5.19';

View File

@@ -31,7 +31,6 @@ use version; our $VERSION = qw (1.0);
use Exporter qw (import); use Exporter qw (import);
our @EXPORT_OK = qw (Anek Buni Drink Monkeyuser Kitty Fox Oboobs Obutts Rabbit Owl Frog Horse Snail Xkcd Weather); our @EXPORT_OK = qw (Anek Buni Drink Monkeyuser Kitty Fox Oboobs Obutts Rabbit Owl Frog Horse Snail Xkcd Weather);
my @MONTH = qw (yanvar fevral mart aprel may iyun iyul avgust sentyabr oktyabr noyabr dekabr);
my $c = LoadConf (); my $c = LoadConf ();
my $cachedir = $c->{cachedir}; my $cachedir = $c->{cachedir};
@@ -621,7 +620,6 @@ sub __weather {
my $city = shift; my $city = shift;
$city = urlencode $city; $city = urlencode $city;
my $appid = $c->{openweathermap}->{appid}; my $appid = $c->{openweathermap}->{appid};
my $now = time ();
my $fc; my $fc;
my $w; my $w;