Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 53 lines (39 sloc) 1.078 kb
1195515c »
2010-09-16 Initial commit of aloha
1 #!/usr/bin/env perl -w
2 use warnings;
3 use strict;
4 use lib 'lib';
5 use Bot::BasicBot::Pluggable;
6 use Bot::BasicBot::Pluggable::Store::DBIJSON;
7
8 my $store = Bot::BasicBot::Pluggable::Store::DBIJSON->new(
9 dsn => "DBI:Pg:dbname=aloha",
10 user => "aloha",
11 password => "aloha",
12 table => "bot",
13
14 # create indexes on key/values?
15 create_index => 1,
16 );
17
18 #my $store = Bot::BasicBot::Pluggable::Store::Storable->new(
19 # dir => "store"
20 #);
21
22
23 # with all known options
24 my $bot = Bot::BasicBot::Pluggable->new(
25
26 server => "irc.perl.org",
27 port => "6667",
28 channels => ["#parrot"],
29
30 nick => "aloha",
31 username => "aloha",
32 name => "bacek's nick completion bot",
33
34 ignore_list => [qw(purl)],
35
36 charset => "utf-8", # charset the bot assumes the channel is using
37
38 loglevel => 'debug',
39
40 store => $store,
41
42 );
43 #$bot->store($store);
44
45 $bot->load('Auth');
46 $bot->load('Loader');
7bb78413 »
2013-02-11 Remove unused modules
47 #$bot->load('Infobot');
48 #$bot->load('Karma');
49 #$bot->load('Seen');
50 #$bot->load('Message');
51 #$bot->load('Maths');
1195515c »
2010-09-16 Initial commit of aloha
52 $bot->run();
Something went wrong with that request. Please try again.