mubot4fb_tweet_worker.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use utf8;
   5
   6 use Data::Dumper;
   7
   8 use FindBin;
   9 use lib ("$FindBin::Bin/lib", '/usr/share/mubot4fb/lib');
  10
  11 use Mubot4FB::TweetWorker;
  12 use Mubot4FB::Worker;
  13
  14 my $config_name = $ARGV[0] || 'not_found';
  15 my $worker_name = 'Mubot4FB::TweetWorker';
  16
  17 my $worker = Mubot4FB::Worker->new($config_name, $worker_name);
  18
  19 $worker->run();