59 lines
1.1 KiB
Perl
59 lines
1.1 KiB
Perl
package IRCBot;
|
|
|
|
use 5.018;
|
|
use strict;
|
|
use warnings;
|
|
use utf8;
|
|
use open qw (:std :utf8);
|
|
use English qw ( -no_match_vars );
|
|
use Bot::IRC;
|
|
use BotLib::Conf qw (LoadConf);
|
|
|
|
use version; our $VERSION = qw (1.0);
|
|
use Exporter qw (import);
|
|
our @EXPORT_OK = qw (RunIRCBot);
|
|
|
|
|
|
sub RunIRCBot {
|
|
my $c = LoadConf ();
|
|
|
|
my $bot = Bot::IRC->new (
|
|
spawn => 2,
|
|
daemon => {
|
|
name => 'aleesa-irc-bot',
|
|
lsb_sdesc => 'Aleesa IRC Bot',
|
|
pid_file => $c->{pid},
|
|
stderr_file => $c->{log},
|
|
stdout_file => $c->{debug_log},
|
|
},
|
|
connect => {
|
|
server => $c->{server},
|
|
port => $c->{port},
|
|
nick => $c->{nick},
|
|
name => 'Aleesa IRC Bot',
|
|
ssl => $c->{ssl},
|
|
ipv6 => 0,
|
|
},
|
|
);
|
|
|
|
$bot->load ('OnMessage', 'ReJoin'); # our main plugin that handles all the incomming messages, mostly
|
|
$bot->helps(
|
|
about => 'I am just another chatty bot.',
|
|
);
|
|
|
|
# finally, run bot
|
|
if (defined $c->{'connect_cmd'} && $c->{'connect_cmd'} ne '') {
|
|
my @connect_cmd = map {chomp; $_} split (/\n/, $c->{'connect_cmd'});
|
|
$bot->run (@connect_cmd);
|
|
} else {
|
|
$bot->run;
|
|
}
|
|
|
|
return;
|
|
}
|
|
|
|
|
|
1;
|
|
|
|
# vim: set ft=perl noet ai ts=4 sw=4 sts=4:
|