diff options
Diffstat (limited to '')
-rwxr-xr-x | arthur.pl | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/arthur.pl b/arthur.pl new file mode 100755 index 0000000..f2d0ec1 --- /dev/null +++ b/arthur.pl @@ -0,0 +1,34 @@ +#!/usr/bin/env perl + +use warnings; +use strict; + +package Avalon::Arthur; +{ + $Avalon::Arthur::VERSION = '0.01'; +} + +use Bot::BasicBot::Pluggable; +use Config::Simple; + +my %cfg; +Config::Simple->import_from('arthur.cfg', \%cfg); + +my $bot = Bot::BasicBot::Pluggable->new( + nick => $cfg{'irc.nick'}, + ircname => $cfg{'irc.ircname'}, + server => $cfg{'irc.server'}, + port => $cfg{'irc.port'}, + password => $cfg{'irc.password'}, + ssl => $cfg{'irc.ssl'}, + channels => ($cfg{'irc.channel'}), + store => Bot::BasicBot::Pluggable::Store->new(), +); +$bot->{cfg} = \%cfg; + +$bot->load("Auth"); +$bot->{store_object}->{store}->{Auth}->{password_admin} = $cfg{'admin.password'}; +$bot->load("Loader"); +$bot->load("Avalon"); + +$bot->run(); |