aleesa-bot/aleesa-webapp
Archived
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update README, config example, cpanfile

Browse Source
This commit is contained in:
eleksir
2022-01-08 02:21:44 +03:00
parent c44ab2376b
commit d4fbaab5ca
5 changed files with 17 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
README
View File

@@ -5,7 +5,7 @@ aleesa-webapp
Механика работы Механика работы
----------------------------------------------------------------------------------------------------------------------- -----------------------------------------------------------------------------------------------------------------------
Клиент подписан на на redis-канал craniac. В этот канал пишет другой демоночек - aleesa-misc. Клиент подписан на на redis-канал webapp. В этот канал пишет другой демоночек - aleesa-misc.
Формат протокола Формат протокола
@@ -61,7 +61,7 @@ https://home.openweathermap.org/api_keys . Free plan предлагает всё
приложение. приложение.
В каталоге contrib находится скрипт для alpine linux, системы инициализации openrc. Этот скрипт достаточно положить В В каталоге contrib находится скрипт для alpine linux, системы инициализации openrc. Этот скрипт достаточно положить В
/etc/init.d/aleesa-misc сконфигурить сервис по инструкции выше и после этого сервис запускается командой: /etc/init.d/aleesa-webapp сконфигурить сервис по инструкции выше и после этого сервис запускается командой:
service aleesa-misc start service aleesa-webapp start
в автозагрузку его можно прописать через команду в автозагрузку его можно прописать через команду
rc-update add aleesa-misc default rc-update add aleesa-webapp default

3
bin/aleesa-webapp
View File

@@ -33,6 +33,7 @@ use Log::Any qw ($log);
use Log::Any::Adapter; use Log::Any::Adapter;
use Log::Any::For::Std; use Log::Any::For::Std;
use POSIX qw (setgid setuid setsid); use POSIX qw (setgid setuid setsid);
use Conf qw (LoadConf); use Conf qw (LoadConf);
use WebApp qw (RunWebApp); use WebApp qw (RunWebApp);
@@ -43,7 +44,7 @@ sub __signal_handler;
local $OUTPUT_AUTOFLUSH = 1; local $OUTPUT_AUTOFLUSH = 1;
my $runAsUid = $UID; 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 ();
my $loglevel = $C->{'loglevel'} // 'notice'; my $loglevel = $C->{'loglevel'} // 'notice';
my $logfile; my $logfile;

6
cpanfile
View File

@@ -1,10 +1,12 @@
requires 'Carp', '0'; 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 'Cwd', '==3.75';
requires 'Cwd::utf8', '==0.011'; requires 'Cwd::utf8', '==0.011';
requires 'DateTime', '==1.55'; requires 'DateTime', '==1.55';
requires 'Digest::HMAC_SHA1', '==1.04'; requires 'Digest::HMAC_SHA1', '==1.04';
requires 'Encode', '==3.16'; requires 'Encode', '==3.16';
requires 'English', '0';
requires 'EV', '==4.33'; requires 'EV', '==4.33';
requires 'File::Basename', '0'; requires 'File::Basename', '0';
requires 'File::Path', '==2.18'; requires 'File::Path', '==2.18';
@@ -17,9 +19,11 @@ requires 'Log::Any', '==1.710';
requires 'Log::Any::Adapter', '==1.710'; requires 'Log::Any::Adapter', '==1.710';
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 'Mojolicious', '==9.22'; requires 'Mojolicious', '==9.22';
requires 'Mojo::IOLoop::Signal', '==0.003'; requires 'Mojo::IOLoop::Signal', '==0.003';
requires 'Mojo::Redis', '==3.27'; requires 'Mojo::Redis', '==3.27';
requires 'Mojo::UserAgent', '0';
requires 'Mojo::UserAgent::Cached', '==1.18'; requires 'Mojo::UserAgent::Cached', '==1.18';
requires 'POSIX', '0'; requires 'POSIX', '0';
requires 'Protocol::Redis::XS', '0'; requires 'Protocol::Redis::XS', '0';

1
lib/WebApp/Client.pm
View File

@@ -16,7 +16,6 @@ use HTML::TokeParser;
use JSON::XS; use JSON::XS;
use Log::Any qw ($log); use Log::Any qw ($log);
use Math::Random::Secure qw (irand); use Math::Random::Secure qw (irand);
use Mojo::Log;
use Mojo::UserAgent; use Mojo::UserAgent;
use Mojo::UserAgent::Cached; use Mojo::UserAgent::Cached;
use Mojo::Util qw (trim); use Mojo::Util qw (trim);