26 lines
449 B
Perl
26 lines
449 B
Perl
#!/usr/bin/perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
|
|
use lib './lib';
|
|
|
|
use Bot::BasicBot::Pluggable;
|
|
|
|
my $bot = Bot::BasicBot::Pluggable->new(
|
|
channels => ["#DCTV"],
|
|
server => "irc.rizon.net",
|
|
port => "6667",
|
|
|
|
nick => "dirkobot-rss",
|
|
altnicks => ["pbot", "pluggable"],
|
|
username => "simcop2387",
|
|
name => "Yet Another Pluggable Bot, for dirkocraft",
|
|
|
|
ignore_list => [qw()],
|
|
);
|
|
|
|
my $info = $bot->load("RssPromote");
|
|
|
|
$bot->run();
|