POE::Component::IRC::CoUoskebrooCko:n:tBraisbiuctPBeOodEt:(P:3eCpro)lmpDoonceunmte:n:tIaRtCi:o:nCookbook::BasicBot(3p)



NNAAMMEE
       POE::Component::IRC::Cookbook::BasicBot - A basic IRC bot

SSYYNNOOPPSSIISS
       This a very basic bot that connects to IRC, joins a few channels, and
       announces its arrival.

DDEESSCCRRIIPPTTIIOONN
       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!

AAUUTTHHOORR
       Hinrik Oern Sigurd`sson, hinrik.sig@gmail.com



perl v5.12.2                      20P1O0E-:1:1C-o0m5ponent::IRC::Cookbook::BasicBot(3p)
