POE::Component::IRC::CUseroContributPOE::Component::IRC::Cookbook::BasicBot(3)NAMEPOE::Component::IRC::Cookbook::BasicBot - A basic IRC bot
SYNOPSIS
This a very basic bot that connects to IRC, joins a few channels, and
announces its arrival.
DESCRIPTION
We start off quite simply:
#!/usr/bin/env perl
use strict;
use warnings;
Then we "use" the stuff we're going to...well, use. "::State" is a
subclass which keeps track of state information related to channels and
nicknames. It is needed by the "AutoJoin" plugin which takes care of
keeping us on our channels.
use POE;
use POE::Component::IRC::State;
use POE::Component::IRC::Plugin::AutoJoin;
Next up is our POE session. We create it and list our event handlers.
We then start the POE kernel.
POE::Session->create(
package_states => [
main => [ qw(_start irc_join) ]
]
);
$poe_kernel->run();
Now all we have to do is write the handlers for "_start" and
"irc_join". In "_start", we create our IRC component, add an
"AutoJoin" plugin, register for the "irc_join" event, and connect to
the IRC server.
sub _start {
my $irc = POE::Component::IRC::State->spawn(
Nick => 'basic_bot',
Server => 'irc.freenode.net',
);
$irc->plugin_add('AutoJoin', POE::Component::IRC::Plugin::AutoJoin->new(
Channels => [ '#test_channel1', '#test_channel2' ]
));
$irc->yield(register => 'join');
$irc->yield('connect');
}
Now comes our "irc_join" event handler. We send a message to the
channel once we've joined it.
sub irc_join {
my $nick = (split /!/, $_[ARG0])[0];
my $channel = $_[ARG1];
my $irc = $_[SENDER]->get_heap();
# only send the message if we were the one joining
if ($nick eq $irc->nick_name()) {
$irc->yield(privmsg => $channel, 'Hi everybody!');
}
}
That's it!
AUTHOR
Hinrik Oern Sigur`sson, hinrik.sig@gmail.com
perl v5.14.120POE::Component::IRC::Cookbook::BasicBot(3)