mubot4fb.pl

   1 #!/usr/bin/perl
   2 #
   3 # Copyright (c) 2012 ISHIKAWA Mutsumi <ishikawa@hanzubon.jp>
   4 # This program is covered by the GNU General Public License 2
   5 #
   6 use strict;
   7 use utf8;
   8
   9 use FindBin;
  10 use lib ("$FindBin::Bin/lib", '/usr/share/mubot4fb/lib');
  11
  12 use Mubot4FB::IRC;
  13 use Mubot4FB::Config;
  14
  15 use Data::Dumper;
  16
  17 my $config_name = $ARGV[0] || 'not_found';
  18
  19 my $c = Mubot4FB::Config->new($config_name);
  20 my $cfg = $c->{cfg};
  21
  22 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)'
  23   if (!defined $cfg->{'irc_server'}
  24       || !defined $cfg->{'fb_app_id'}
  25       || !defined $cfg->{'fb_app_secret'}
  26       || !defined $cfg->{'fb_access_code'}
  27       || !defined $cfg->{'fb_page_id'}
  28       || !defined $cfg->{'fb_postback_url'}
  29       || !defined $cfg->{'db_user'}
  30       || !defined $cfg->{'db_pass'}
  31     );
  32
  33 my $bot = Mubot4FB::IRC->new(server => $cfg->{'irc_server'},
  34                              port => $cfg->{'irc_port'},
  35                              channels => $cfg->{'irc_channels'},
  36                              nick => $cfg->{'irc_nick'},
  37                              username => $cfg->{'irc_name'},
  38                              name => $cfg->{'irc_name'},
  39                              charset => $cfg->{'irc_charset'},
  40                              cfg => $cfg)->run();
  41
  42 1;