3 # Copyright (c) 2012 ISHIKAWA Mutsumi <ishikawa@hanzubon.jp>
4 # This program is covered by the GNU General Public License 2
11 use Hash::Merge::Simple;
12 use Data::Recursive::Encode;
15 use lib ("$FindBin::Bin/lib", '/usr/share/mubot4fb/lib');
19 use AnyEvent::Twitter::Stream;
23 my $config_name = $ARGV[0] || 'not_found';
25 my $c = Mubot4FB::Config->new($config_name);
28 die 'missing some config parameters should be defined (irc_server, fb_app_id, fb_app_secret, fb_access_code, fb_page_id fb_postback_url)'
29 if (!defined $cfg->{'fb_app_id'}
30 || !defined $cfg->{'fb_app_secret'}
31 || !defined $cfg->{'fb_access_code'}
32 || !defined $cfg->{'fb_page_id'}
33 || !defined $cfg->{'fb_postback_url'}
34 || !defined $cfg->{'twitter_consumer_key'}
35 || !defined $cfg->{'twitter_consumer_secret'}
36 || !defined $cfg->{'twitter_access_token'}
37 || !defined $cfg->{'twitter_access_secret'}
38 || !defined $cfg->{'db_user'}
39 || !defined $cfg->{'db_pass'}
42 my $mu = Mubot4FB->new($cfg);
44 my $done = AnyEvent->condvar;
46 my $listener = AnyEvent::Twitter::Stream->new(
47 consumer_key => $cfg->{'twitter_consumer_key'},
48 consumer_secret => $cfg->{'twitter_consumer_secret'},
49 token => $cfg->{'twitter_access_token'},
50 token_secret => $cfg->{'twitter_access_secret'},
51 method => 'userstream',