Update README, config example, cpanfile

README

@@ -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. Этот скрипт достаточно положить В
-/etc/init.d/aleesa-misc сконфигурить сервис по инструкции выше и после этого сервис запускается командой:
-service aleesa-misc start
+/etc/init.d/aleesa-webapp сконфигурить сервис по инструкции выше и после этого сервис запускается командой:
+service aleesa-webapp start
 в автозагрузку его можно прописать через команду
-rc-update add aleesa-misc default
+rc-update add aleesa-webapp default

bin/aleesa-webapp

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

cpanfile

@@ -1,10 +1,12 @@
-requires 'Carp',                    '0';
+requires 'Carp',                    '==1.50';
 requires 'CHI',                     '==0.61';
 requires 'CHI::Driver::BerkeleyDB', '==0.05';
+requires 'Cwd',                     '==3.75';
 requires 'Cwd::utf8',               '==0.011';
 requires 'DateTime',                '==1.55';
 requires 'Digest::HMAC_SHA1',       '==1.04';
 requires 'Encode',                  '==3.16';
+requires 'English',                 '0';
 requires 'EV',                      '==4.33';
 requires 'File::Basename',          '0';
 requires 'File::Path',              '==2.18';
@@ -17,9 +19,11 @@ requires 'Log::Any',                '==1.710';
 requires 'Log::Any::Adapter',       '==1.710';
 requires 'Log::Any::For::Std',      '==0.05';
 requires 'Math::Random::Secure',    '==0.080001';
+requires 'MIME::Base64',            '==3.16';
 requires 'Mojolicious',             '==9.22';
 requires 'Mojo::IOLoop::Signal',    '==0.003';
 requires 'Mojo::Redis',             '==3.27';
+requires 'Mojo::UserAgent',         '0';
 requires 'Mojo::UserAgent::Cached', '==1.18';
 requires 'POSIX',                   '0';
 requires 'Protocol::Redis::XS',     '0';

lib/WebApp/Client.pm

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