bot.pl

   1 #!/usr/local/bin/perl
   2 use strict;
   3 use warnings;
   4 use Bot::BasicBot::Pluggable;
   5
   6 my $bot = Bot::BasicBot::Pluggable->new(
   7
   8                     channels => ["#wikinews-spam"],
   9                     server   => "irc.gnu.org",
  10                     port     => "6667",
  11
  12                     nick     => "wnbot",
  13                     altnicks => ["pbot", "pluggable"],
  14                     username => "bot",
  15                     name     => "bot http://repo.or.cz/w/gpy.git",
  16
  17               );
  18
  19 $bot->load('WikiLinker');
  20 $bot->run();
  21
  22 #_ _END_ _
  23