Rechercher une page de manuel
POE::Component::IRC::Cookbook::BasicBot.3pm
Langue: en
Version: 2008-08-28 (ubuntu - 07/07/09)
Section: 3 (Bibliothèques de fonctions)
Sommaire
NAME
POE::Component::IRC::Cookbook::BasicBot - A basic IRC botDESCRIPTION
This a very basic bot that connects to IRC, joins a few channels, and announces its arrival.SYNOPSIS
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 O.rn Sigurd-sson, hinrik.sig@gmail.comContenus ©2006-2024 Benjamin Poulain
Design ©2006-2024 Maxime Vantorre