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

Dee-Jay files around, rename subs according perlcritic convertions, update .gitignore

Browse Source
This commit is contained in:
eleksir
2021-03-27 13:14:58 +03:00
parent cf88be06db
commit 91888e1c24
26 changed files with 142 additions and 148 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
bin/aleesa-jabber-bot
View File

@@ -31,8 +31,8 @@ use File::Path qw (make_path);
use File::Basename qw (basename dirname);
use Log::Any::Adapter;
use Log::Any::For::Std;
use conf qw (loadConf);
use jabberbot qw (run_jabberbot);
use BotLib::Conf qw (LoadConf);
use JabberBot qw (RunJabberBot);
sub daemonize ();
sub __fork ();
@@ -42,7 +42,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'}) {
@@ -114,7 +114,7 @@ local $SIG{TERM} = \&__signal_handler;
# set correct proctitle
$PROGRAM_NAME = abs_path $PROGRAM_NAME; ## no critic (Variables::RequireLocalizedPunctuationVars)
run_jabberbot ();
RunJabberBot ();
if (-f $pidfile) {
unlink $pidfile;

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/fortune_seed.pl
View File

@@ -21,8 +21,8 @@ BEGIN {
}
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use fortune qw (seed);
use BotLib::Fortune qw (Seed);
seed ();
Seed ();
exit 0;

4
bin/friday_seed.pl
View File

@@ -20,8 +20,8 @@ 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;

4
bin/train_lat.pl
View File

@@ -20,7 +20,7 @@ BEGIN {
}
use lib ("$workdir/lib", "$workdir/vendor_perl", "$workdir/vendor_perl/lib/perl5");
use lat qw (train);
use Lat qw (Train);
train ();
Train ();
exit 0;