eleksir/aleesa-telegram-bot
1
Fork 0
Code Activity

Refactor some parts of bot

Browse Source 
- Move most modules to subdirs
- Rename functions according perlcritic guidelines
- Fix and add some bugs
This commit is contained in:
eleksir
2021-04-21 14:07:20 +03:00
parent 729489236f
commit 8665a6ddda
23 changed files with 262 additions and 309 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
bin/aleesa-telegram-bot
View File

@@ -32,8 +32,8 @@ use File::Path qw (make_path);
use Log::Any::Adapter;
use Log::Any::For::Std;
use POSIX qw (setgid setuid setsid);
use conf qw (loadConf);
use telegrambot qw (run_telegrambot);
use BotLib::Conf qw (LoadConf);
use TelegramBot qw (RunTelegramBot);
sub daemonize;
sub __fork;
@@ -43,7 +43,7 @@ local $OUTPUT_AUTOFLUSH = 1;
my $runAsUid = $UID;
my $piddir = '/var/run/' . basename (abs_path ($PROGRAM_NAME));
my $C = loadConf ();
my $C = LoadConf ();
my $logfile;
if (defined $C->{'log'}) {

4
bin/flickr_init.pl
View File

@@ -20,9 +20,9 @@ BEGIN {
}
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use flickr qw (flickr_init);
use BotLib::Image::Flickr qw (FlickrInit);
if (flickr_init ()) {
if (FlickrInit ()) {
exit 0;
} else {
exit 1;

4
bin/flickr_test.pl
View File

@@ -20,9 +20,9 @@ BEGIN {
}
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use flickr qw (flickr_test_login);
use BotLib::Image::Flickr qw (FlickrTestLogin);
if (flickr_test_login ()) {
if (FlickrTestLogin ()) {
exit 0;
} else {
exit 1;

4
bin/friday_seed.pl
View File

@@ -20,7 +20,7 @@ BEGIN {
}
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use friday qw (seed);
use BotLib::Friday qw (Seed);
seed ();
Seed ();
exit 0;