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

Implement logging via Log::Any, cleanup, remove logger()

Browse Source
This commit is contained in:
eleksir
2020-12-13 13:17:44 +03:00
parent 42c5d147d5
commit 4c7cf8ceca
10 changed files with 113 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

48
bin/aleesa-jabber-bot
View File

@@ -6,7 +6,6 @@ use warnings;
use utf8; use utf8;
use open qw(:std :utf8); use open qw(:std :utf8);
use English qw( -no_match_vars ); use English qw( -no_match_vars );
use version; our $VERSION = qw(1.0); use version; our $VERSION = qw(1.0);
my $workdir; my $workdir;
@@ -26,18 +25,23 @@ use Cwd::utf8 qw(chdir abs_path);
use POSIX qw(setgid setuid setsid); use POSIX qw(setgid setuid setsid);
use File::Path qw(make_path); use File::Path qw(make_path);
use File::Basename qw(basename dirname); use File::Basename qw(basename dirname);
use Log::Any::Adapter;
use Log::Any::For::Std;
use conf qw(loadConf); use conf qw(loadConf);
use botlib qw(logger);
use jabberbot qw(run_jabberbot); use jabberbot qw(run_jabberbot);
sub daemonize (); sub daemonize ();
sub __fork (); sub __fork ();
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 $logfile;
if (defined $C->{'log'}) { $logfile = $C->{'log'}; }
elsif (defined $C->{'debug_log'}) {$logfile = $C->{'debug_log'}; }
# if we run under root, create pid dir and set correct owner for it, same for debug log if it is defined # if we run under root, create pid dir and set correct owner for it, same for debug log if it is defined
if ($UID == 0) { if ($UID == 0) {
@@ -54,15 +58,21 @@ if ($UID == 0) {
); );
} }
if ($C->{'debug_log'}) { die "Unable to create $piddir" unless (-d $piddir); ## no critic (ErrorHandling::RequireCarping)
unless (-d dirname($C->{'debug_log'})) {
if (defined $logfile) {
my $logdir = dirname ($logfile);
unless (-d $logdir) {
make_path ( make_path (
dirname($C->{'debug_log'}), { $logdir, {
uid => $uid, uid => $uid,
group => $gid group => $gid
} }
); );
} }
die "Unable to create $logdir" unless (-d $logdir); ## no critic (ErrorHandling::RequireCarping)
} }
# drop privs # drop privs
@@ -72,27 +82,31 @@ if ($UID == 0) {
$piddir = $workdir; $piddir = $workdir;
} }
if (defined $logfile) {
Log::Any::Adapter->set ('File', $logfile);
} else {
Log::Any::Adapter->set ('File', '/dev/null');
}
# double fork attach to /dev/null all stdio and go background # double fork attach to /dev/null all stdio and go background
daemonize (); daemonize ();
# write pidfile # write pidfile
my $apath = abs_path ($PROGRAM_NAME); my $apath = abs_path ($PROGRAM_NAME);
die "Unable to get abs_path: $OS_ERROR\n" if (! defined $apath);
unless (defined($apath)) {
logger ("Unable to get abs_path: $OS_ERROR");
die "Unable to get abs_path: $OS_ERROR\n";
};
my $pidfile = sprintf ('%s/%s.pid', $piddir, basename ($apath)); my $pidfile = sprintf ('%s/%s.pid', $piddir, basename ($apath));
logger ("Creating pidfile at $pidfile"); warn "Creating pidfile at $pidfile\n";
open (my $pid, '>', $pidfile) or die "Error opening $pidfile: $OS_ERROR\n"; open (my $pid, '>', $pidfile) or die "Error opening $pidfile: $OS_ERROR\n";
print $pid $PID or die "Error writing to $pidfile: $OS_ERROR\n"; print $pid $PID or die "Error writing to $pidfile: $OS_ERROR\n";
close $pid; ## no critic (InputOutput::RequireCheckedSyscalls close $pid; ## no critic (InputOutput::RequireCheckedSyscalls
local $SIG{INT} = \&__signal_handler;
local $SIG{TERM} = \&__signal_handler;
# set correct proctitle # set correct proctitle
$PROGRAM_NAME = abs_path ($PROGRAM_NAME); ## no critic (Variables::RequireLocalizedPunctuationVars) $PROGRAM_NAME = abs_path ($PROGRAM_NAME); ## no critic (Variables::RequireLocalizedPunctuationVars)
# run bot, at last
run_jabberbot (); run_jabberbot ();
unlink ($pidfile) if (-f $pidfile); unlink ($pidfile) if (-f $pidfile);
exit 0; exit 0;
@@ -101,8 +115,9 @@ sub daemonize () {
__fork (); __fork ();
POSIX::setsid (); POSIX::setsid ();
open (STDIN, '<', '/dev/null'); ## no critic (InputOutput::RequireCheckedSyscalls, InputOutput::RequireCheckedOpen) open (STDIN, '<', '/dev/null'); ## no critic (InputOutput::RequireCheckedSyscalls, InputOutput::RequireCheckedOpen)
open (STDOUT, '>', '/dev/null'); ## no critic (InputOutput::RequireCheckedSyscalls, InputOutput::RequireCheckedOpen) # we handle STDOUT && STDERR via Log::Any::For::Std, so do not close them explicitly
open (STDERR, '>', '/dev/null'); ## no critic (InputOutput::RequireCheckedSyscalls, InputOutput::RequireCheckedOpen) #open (STDOUT, '>', '/dev/null'); ## no critic (InputOutput::RequireCheckedSyscalls, InputOutput::RequireCheckedOpen)
#open (STDERR, '>', '/dev/null'); ## no critic (InputOutput::RequireCheckedSyscalls, InputOutput::RequireCheckedOpen)
__fork (); __fork ();
umask 0; umask 0;
return; return;
@@ -115,5 +130,10 @@ sub __fork () {
return; return;
} }
sub __signal_handler ($) {
warn "Caught a signal $OS_ERROR\n";
unlink $pidfile if (-f $pidfile);
exit 0;
}
__END__ __END__
# vim: set ft=perl noet ai ts=4 sw=4 sts=4: # vim: set ft=perl noet ai ts=4 sw=4 sts=4:

4
cpanfile
View File

@@ -13,7 +13,9 @@ requires 'JSON::PP';
requires 'POSIX'; requires 'POSIX';
requires 'URI::URL'; requires 'URI::URL';
requires 'local::lib'; requires 'local::lib';
requires 'Log::Any';
requires 'Log::Any::Adapter';
requires 'Log::Any::For::Std';
# Bundled Net::Jabber::Bot deps # Bundled Net::Jabber::Bot deps
# requires 'Net::Jabber::Bot'; # requires 'Net::Jabber::Bot';

2
data/sample_config.json
View File

@@ -20,7 +20,7 @@
"cachedata": "data/cache/openweathermap.Id-Data.db", "cachedata": "data/cache/openweathermap.Id-Data.db",
"appid": "get_it_on_openweathermap.org" "appid": "get_it_on_openweathermap.org"
}, },
"debug_log" : "/var/log/aleesa-telegram-bot/debug.log", "log" : "/var/log/aleesa-jabber-bot/aleesa-jabber-bot.log",
"lat" : { "lat" : {
"brain" : "data/lat/brain.sqlite", "brain" : "data/lat/brain.sqlite",
"src" : "lat.txt" "src" : "lat.txt"

21
lib/botlib.pm
View File

@@ -12,14 +12,11 @@ use URI::URL;
use JSON::XS qw(decode_json encode_json); use JSON::XS qw(decode_json encode_json);
use Digest::MD5 qw(md5_base64); use Digest::MD5 qw(md5_base64);
use DB_File; use DB_File;
use conf qw(loadConf); use conf qw(loadConf);
use vars qw/$VERSION/; use vars qw/$VERSION/;
use Exporter qw(import); use Exporter qw(import);
our @EXPORT_OK = qw(weather logger trim randomCommonPhrase); our @EXPORT_OK = qw(weather trim randomCommonPhrase);
$VERSION = '1.0'; $VERSION = '1.0';
my $c = loadConf (); my $c = loadConf ();
@@ -189,22 +186,6 @@ sub __urlencode($) {
return $str; return $str;
} }
sub logger {
my $msg = shift;
if ($c->{debug_log}) {
my $mode = '>';
$mode = '>>' if (-f $c->{debug_log});
if (open (my $LOG, $mode, $c->{debug_log})) {
print $LOG $msg . "\n"; ## no critic (InputOutput::RequireCheckedSyscalls, InputOutput::RequireCheckedOpen)
close $LOG; ## no critic (InputOutput::RequireCheckedSyscalls, InputOutput::RequireCheckedOpen)
}
}
return;
}
sub trim ($) { sub trim ($) {
my $str = shift; my $str = shift;

4
lib/conf.pm
View File

@@ -7,13 +7,11 @@ use warnings;
use utf8; use utf8;
use open qw(:std :utf8); use open qw(:std :utf8);
use English qw( -no_match_vars ); use English qw( -no_match_vars );
use vars qw/$VERSION/;
use JSON::XS; use JSON::XS;
use vars qw/$VERSION/;
use Exporter qw(import); use Exporter qw(import);
our @EXPORT_OK = qw(loadConf); our @EXPORT_OK = qw(loadConf);
$VERSION = '1.0'; $VERSION = '1.0';
sub loadConf { sub loadConf {

12
lib/fortune.pm
View File

@@ -8,18 +8,16 @@ use utf8;
use open qw(:std :utf8); use open qw(:std :utf8);
use English qw( -no_match_vars ); use English qw( -no_match_vars );
use Carp qw(cluck croak); use Carp qw(cluck croak);
use vars qw/$VERSION/;
use Exporter qw(import);
our @EXPORT_OK = qw(seed fortune);
$VERSION = '1.0';
use SQLite_File; use SQLite_File;
use MIME::Base64; use MIME::Base64;
use File::Path qw(mkpath); use File::Path qw(mkpath);
use conf qw(loadConf); use conf qw(loadConf);
use vars qw/$VERSION/;
use Exporter qw(import);
our @EXPORT_OK = qw(seed fortune);
$VERSION = '1.0';
my $c = loadConf(); my $c = loadConf();
my $dir = $c->{fortune}->{dir}; my $dir = $c->{fortune}->{dir};
my $srcdir = $c->{fortune}->{srcdir}; my $srcdir = $c->{fortune}->{srcdir};

12
lib/friday.pm
View File

@@ -8,18 +8,16 @@ use utf8;
use open qw(:std :utf8); use open qw(:std :utf8);
use English qw( -no_match_vars ); use English qw( -no_match_vars );
use Carp qw(cluck croak); use Carp qw(cluck croak);
use vars qw/$VERSION/;
use Exporter qw(import);
our @EXPORT_OK = qw(seed friday);
$VERSION = '1.0';
use SQLite_File; use SQLite_File;
use MIME::Base64; use MIME::Base64;
use File::Path qw(mkpath); use File::Path qw(mkpath);
use conf qw(loadConf); use conf qw(loadConf);
use vars qw/$VERSION/;
use Exporter qw(import);
our @EXPORT_OK = qw(seed friday);
$VERSION = '1.0';
my $c = loadConf(); my $c = loadConf();
my $dir = $c->{friday}->{dir}; my $dir = $c->{friday}->{dir};
my $srcfile = $c->{friday}->{src}; my $srcfile = $c->{friday}->{src};

114
lib/jabberbot.pm
View File

@@ -8,12 +8,10 @@ use strict;
use warnings; use warnings;
use utf8; use utf8;
use open qw(:std :utf8); use open qw(:std :utf8);
use Net::Jabber::Bot; use Net::Jabber::Bot;
use Hailo; use Hailo;
use conf qw(loadConf); use conf qw(loadConf);
use botlib qw(weather logger trim randomCommonPhrase); use botlib qw(weather trim randomCommonPhrase);
use lat qw(latAnswer); use lat qw(latAnswer);
use karma qw(karmaSet karmaGet); use karma qw(karmaSet karmaGet);
use friday qw(friday); use friday qw(friday);
@@ -32,7 +30,7 @@ sub __background_checks {
my $bot = shift; my $bot = shift;
unless ($imonline) { unless ($imonline) {
$bot->ChangeStatus('Available', 'I\'m here'); $bot->ChangeStatus ('Available', 'I\'m here');
$imonline = 1; $imonline = 1;
} }
@@ -48,71 +46,71 @@ sub __new_bot_message {
# ignore self messages # ignore self messages
return if ($hash{'from_full'} eq $bot->{'from_full'}); return if ($hash{'from_full'} eq $bot->{'from_full'});
# parse messages # parse messages
my $qname = quotemeta($c->{jabberbot}->{aleesa}->{mucname}); my $qname = quotemeta ($c->{jabberbot}->{aleesa}->{mucname});
if ($text =~ /^$qname$/) { if ($text =~ /^$qname$/) {
$bot->SendGroupMessage($hash{'reply_to'}, 'Чего тебе?'); $bot->SendGroupMessage ($hash{'reply_to'}, 'Чего тебе?');
} elsif ($text =~ /^$qname[\,|\:]? (.+)/) { } elsif ($text =~ /^$qname[\,|\:]? (.+)/) {
$bot->SendGroupMessage($hash{'reply_to'}, $hailo->learn_reply($1)); $bot->SendGroupMessage ($hash{'reply_to'}, $hailo->learn_reply($1));
} elsif ($text eq "$c->{jabberbot}->{aleesa}->{csign}пинг") { } elsif ($text eq "$c->{jabberbot}->{aleesa}->{csign}пинг") {
$bot->SendGroupMessage($hash{'reply_to'}, 'Понг.'); $bot->SendGroupMessage ($hash{'reply_to'}, 'Понг.');
} elsif ($text eq "$c->{jabberbot}->{aleesa}->{csign}ping") { } elsif ($text eq "$c->{jabberbot}->{aleesa}->{csign}ping") {
$bot->SendGroupMessage($hash{'reply_to'}, 'Pong.'); $bot->SendGroupMessage ($hash{'reply_to'}, 'Pong.');
} elsif (substr($text, 0, 1) eq $c->{jabberbot}->{aleesa}->{csign}) { } elsif (substr ($text, 0, 1) eq $c->{jabberbot}->{aleesa}->{csign}) {
if (substr($text, 1, 3) eq 'rum') { if (substr ($text, 1, 3) eq 'rum') {
eval { eval {
$bot->SendGroupMessage( $bot->SendGroupMessage (
$hash{'reply_to'}, $hash{'reply_to'},
'/me притаскивает на подносе стопку рома для ' . (split(/\//,$hash{from_full}))[1] . ', края стопки искрятся кристаллами соли.' '/me притаскивает на подносе стопку рома для ' . (split (/\//,$hash{from_full}))[1] . ', края стопки искрятся кристаллами соли.'
); );
}; };
} elsif (substr($text, 1, 5) eq 'vodka') { } elsif (substr ($text, 1, 5) eq 'vodka') {
eval { eval {
$bot->SendGroupMessage( $bot->SendGroupMessage (
$hash{'reply_to'}, $hash{'reply_to'},
'/me подаёт водку с маринованным огурчиком для ' . (split(/\//,$hash{from_full}))[1] '/me подаёт водку с маринованным огурчиком для ' . (split (/\//,$hash{from_full}))[1]
); );
}; };
} elsif (substr($text, 1, 4) eq 'beer') { } elsif (substr($text, 1, 4) eq 'beer') {
eval { eval {
$bot->SendGroupMessage( $bot->SendGroupMessage (
$hash{'reply_to'}, $hash{'reply_to'},
'/me бахает об стол перед ' . (split(/\//,$hash{from_full}))[1] . ' кружкой холодного пива, часть пенной шапки сползает по запотевшей спенке кружки.' '/me бахает об стол перед ' . (split (/\//,$hash{from_full}))[1] . ' кружкой холодного пива, часть пенной шапки сползает по запотевшей спенке кружки.'
); );
}; };
} elsif (substr($text, 1, 7) eq 'tequila') { } elsif (substr($text, 1, 7) eq 'tequila') {
eval { eval {
$bot->SendGroupMessage( $bot->SendGroupMessage (
$hash{'reply_to'}, $hash{'reply_to'},
'/me ставит рядом с ' . (split(/\//,$hash{from_full}))[1] . ' шот текилы, аккуратно на ребро стопки насаживает дольку лайма и ставит кофейное блюдце с горочкой соли.' '/me ставит рядом с ' . (split (/\//,$hash{from_full}))[1] . ' шот текилы, аккуратно на ребро стопки насаживает дольку лайма и ставит кофейное блюдце с горочкой соли.'
); );
}; };
} elsif (substr($text, 1, 6) eq 'whisky') { } elsif (substr ($text, 1, 6) eq 'whisky') {
eval { eval {
$bot->SendGroupMessage( $bot->SendGroupMessage (
$hash{'reply_to'}, $hash{'reply_to'},
'/me демонстративно достаёт из морозилки пару кубических камушков, бросает их в толстодонный стакан и аккуратно наливает Jack Daniels. Запускает стакан вдоль барной стойки, он останавливается около ' . (split(/\//,$hash{from_full}))[1] . '.' '/me демонстративно достаёт из морозилки пару кубических камушков, бросает их в толстодонный стакан и аккуратно наливает Jack Daniels. Запускает стакан вдоль барной стойки, он останавливается около ' . (split (/\//,$hash{from_full}))[1] . '.'
); );
}; };
} elsif (substr($text, 1, 8) eq 'absinthe') { } elsif (substr ($text, 1, 8) eq 'absinthe') {
eval { eval {
$bot->SendGroupMessage( $bot->SendGroupMessage (
$hash{'reply_to'}, $hash{'reply_to'},
"/me наливает абсент в стопку. Смочив кубик сахара в абсенте кладёт его на дырявую ложечку и пожигает. Как только пламя потухнет, $c->{jabberbot}->{aleesa}->{mucname} размешивает оплавившийся кубик в абсенте и подносит стопку " .(split(/\//,$hash{from_full}))[1] . '.' "/me наливает абсент в стопку. Смочив кубик сахара в абсенте кладёт его на дырявую ложечку и пожигает. Как только пламя потухнет, $c->{jabberbot}->{aleesa}->{mucname} размешивает оплавившийся кубик в абсенте и подносит стопку " .(split (/\//,$hash{from_full}))[1] . '.'
); );
}; };
} elsif (substr($text, 1, 2) eq 'w ' || substr($text, 1, 2) eq 'п ') { } elsif (substr ($text, 1, 2) eq 'w ' || substr ($text, 1, 2) eq 'п ') {
my $city = substr($text, 2); my $city = substr ($text, 2);
eval { eval {
$bot->SendGroupMessage( $bot->SendGroupMessage (
$hash{'reply_to'}, $hash{'reply_to'},
weather($city) =~ tr/\n/ /r weather($city) =~ tr/\n/ /r
); );
}; };
} elsif (substr($text, 1) eq 'version' || substr($text, 1) eq 'ver') { } elsif (substr ($text, 1) eq 'version' || substr ($text, 1) eq 'ver') {
$bot->SendGroupMessage($hash{'reply_to'}, 'Версия нуль.чего-то_там.чего-то_там'); $bot->SendGroupMessage ($hash{'reply_to'}, 'Версия нуль.чего-то_там.чего-то_там');
} elsif (substr($text, 1) eq 'help' || substr($text, 1) eq 'помощь') { } elsif (substr ($text, 1) eq 'help' || substr ($text, 1) eq 'помощь') {
$bot->SendGroupMessage($hash{'reply_to'}, <<"EOL" ); $bot->SendGroupMessage ($hash{'reply_to'}, <<"EOL" );
!help | !помощь - это сообщение !help | !помощь - это сообщение
!f | !ф | !fortune | !фортунка - рандомная фраза из сборника цитат fortune_mod !f | !ф | !fortune | !фортунка - рандомная фраза из сборника цитат fortune_mod
!friday | !пятница - а не пятница ли сегодня? !friday | !пятница - а не пятница ли сегодня?
@@ -125,44 +123,44 @@ sub __new_bot_message {
фраза++ | фраза-- - повысить или понизить карму фразы фраза++ | фраза-- - повысить или понизить карму фразы
EOL EOL
} elsif (substr($text, 1) eq 'lat' || substr($text, 1) eq 'лат') { } elsif (substr ($text, 1) eq 'lat' || substr ($text, 1) eq 'лат') {
$bot->SendGroupMessage($hash{'reply_to'}, latAnswer()); $bot->SendGroupMessage ($hash{'reply_to'}, latAnswer ());
} elsif (substr($text, 1, 6) eq 'karma ' || substr($text, 1, 6) eq 'карма ' || substr($text, 1) eq 'karma' || substr($text, 1) eq 'карма') { } elsif (substr ($text, 1, 6) eq 'karma ' || substr($text, 1, 6) eq 'карма ' || substr ($text, 1) eq 'karma' || substr ($text, 1) eq 'карма') {
my $mytext = substr($text, 7); my $mytext = substr ($text, 7);
if ($mytext ne '') { if ($mytext ne '') {
chomp($mytext); chomp $mytext;
$mytext = trim($mytext); $mytext = trim $mytext;
} }
$bot->SendGroupMessage($hash{'reply_to'}, karmaGet($hash{'reply_to'}, $mytext)); $bot->SendGroupMessage ($hash{'reply_to'}, karmaGet ($hash{'reply_to'}, $mytext));
} elsif (substr($text, 1) eq 'friday' || substr($text, 1) eq 'пятница') { } elsif (substr ($text, 1) eq 'friday' || substr ($text, 1) eq 'пятница') {
$bot->SendGroupMessage($hash{'reply_to'}, friday()); $bot->SendGroupMessage ($hash{'reply_to'}, friday ());
} elsif (substr($text, 1) eq 'fortune' || substr($text, 1) eq 'фортунка' || substr($text, 1) eq 'f' || substr($text, 1) eq 'ф') { } elsif (substr ($text, 1) eq 'fortune' || substr ($text, 1) eq 'фортунка' || substr ($text, 1) eq 'f' || substr ($text, 1) eq 'ф') {
my $phrase = fortune(); my $phrase = fortune ();
# workaround Net::Jabber::Bot outgoing message ![:print:] replacement # workaround Net::Jabber::Bot outgoing message ![:print:] replacement
$phrase =~ s/\s\s+\-\-/\n \-\-/xmsg; $phrase =~ s/\s\s+\-\-/\n \-\-/xmsg;
$bot->SendGroupMessage($hash{'reply_to'}, $phrase); $bot->SendGroupMessage ($hash{'reply_to'}, $phrase);
} else { } else {
$hailo->learn($text); $hailo->learn ($text);
return; return;
} }
} elsif ((substr($text, -2) eq '++') || (substr($text, -2) eq '--')) { } elsif ((substr ($text, -2) eq '++') || (substr ($text, -2) eq '--')) {
my @arr = split(/\n/, $text); my @arr = split (/\n/, $text);
if ($#arr < 1) { if ($#arr < 1) {
my $reply = karmaSet($hash{'reply_to'}, substr($text, 0, -2), substr($text, -2)); my $reply = karmaSet($hash{'reply_to'}, substr ($text, 0, -2), substr ($text, -2));
$bot->SendGroupMessage($hash{'reply_to'}, $reply); $bot->SendGroupMessage ($hash{'reply_to'}, $reply);
} else { } else {
# just message in chat # just message in chat
$hailo->learn($text); $hailo->learn ($text);
} }
} else { } else {
$hailo->learn($text); $hailo->learn ($text);
return; return;
} }
} elsif ($hash{'type'} eq 'chat') { } elsif ($hash{'type'} eq 'chat') {
$bot->SendPersonalMessage($hash{'reply_to'}, 'Я вас не знаю, идите нахуй.'); $bot->SendPersonalMessage ($hash{'reply_to'}, 'Я вас не знаю, идите нахуй.');
return; return;
} }
@@ -171,23 +169,23 @@ EOL
sub run_jabberbot { sub run_jabberbot {
$hailo = Hailo->new( $hailo = Hailo->new (
brain => $c->{jabberbot}->{aleesa}->{brain}, brain => $c->{jabberbot}->{aleesa}->{brain},
order => 2 order => 2
); );
my %conflist = (); my %conflist = ();
$conflist{$c->{jabberbot}->{aleesa}->{room}} = []; $conflist{$c->{jabberbot}->{aleesa}->{room}} = [];
my $qname = quotemeta($c->{jabberbot}->{aleesa}->{mucname}); my $qname = quotemeta ($c->{jabberbot}->{aleesa}->{mucname});
my $bot = Net::Jabber::Bot->new( my $bot = Net::Jabber::Bot->new (
server => $c->{jabberbot}->{aleesa}->{host}, server => $c->{jabberbot}->{aleesa}->{host},
server_host => $c->{jabberbot}->{aleesa}->{host}, server_host => $c->{jabberbot}->{aleesa}->{host},
conference_server => $c->{jabberbot}->{aleesa}->{confsrv}, conference_server => $c->{jabberbot}->{aleesa}->{confsrv},
tls => 0, tls => 0,
username => $c->{jabberbot}->{aleesa}->{authname}, username => $c->{jabberbot}->{aleesa}->{authname},
# threre is some nasty bug in module, so we have to set from_full explicitly # threre is some nasty bug in module, so we have to set from_full explicitly
from_full => sprintf( from_full => sprintf (
"%s@%s/%s", "%s@%s/%s",
$c->{jabberbot}->{aleesa}->{room}, $c->{jabberbot}->{aleesa}->{room},
$c->{jabberbot}->{aleesa}->{confsrv}, $c->{jabberbot}->{aleesa}->{confsrv},
@@ -206,7 +204,7 @@ sub run_jabberbot {
while (sleep 3) { while (sleep 3) {
eval { eval {
$imonline = 0; $imonline = 0;
$bot->Start(); $bot->Start ();
}; };
} }

6
lib/karma.pm
View File

@@ -9,16 +9,14 @@ use English qw( -no_match_vars );
use Digest::SHA qw(sha1_base64); use Digest::SHA qw(sha1_base64);
use DB_File; use DB_File;
use Carp qw(cluck); use Carp qw(cluck);
use conf qw(loadConf);
use vars qw/$VERSION/; use vars qw/$VERSION/;
use Exporter qw(import); use Exporter qw(import);
our @EXPORT_OK = qw(karmaSet karmaGet); our @EXPORT_OK = qw(karmaSet karmaGet);
$VERSION = '1.0'; $VERSION = '1.0';
use conf qw(loadConf); my $c = loadConf ();
my $c = loadConf();
my $karmadir = $c->{karma}->{dir}; my $karmadir = $c->{karma}->{dir};
my $max = 5; my $max = 5;

13
lib/lat.pm
View File

@@ -8,18 +8,15 @@ use utf8;
use open qw(:std :utf8); use open qw(:std :utf8);
use English qw( -no_match_vars ); use English qw( -no_match_vars );
use Carp qw(cluck); use Carp qw(cluck);
use vars qw/$VERSION/;
use Exporter qw(import);
our @EXPORT_OK = qw(train latAnswer);
$VERSION = '1.0';
use Hailo; use Hailo;
use File::Basename qw(dirname); use File::Basename qw(dirname);
use File::Path qw(mkpath); use File::Path qw(mkpath);
use conf qw(loadConf); use conf qw(loadConf);
use botlib qw(logger);
use vars qw/$VERSION/;
use Exporter qw(import);
our @EXPORT_OK = qw(train latAnswer);
$VERSION = '1.0';
my $c = loadConf(); my $c = loadConf();
my $brain = $c->{lat}->{brain}; my $brain = $c->{lat}->{brain};