poe::component::irc::cookbook::hailo(3pm) [debian man page]

POE::Component::IRC::Cookbook::Hailo(3pm)		User Contributed Perl Documentation		 POE::Component::IRC::Cookbook::Hailo(3pm)

NAME

       POE::Component::IRC::Cookbook::Hailo - A blabbering IRC bot

SYNOPSIS

       This bot uses POE::Component::IRC::Plugin::Hailo for most of its magic. As of yet, this recipe just contains a SYNOPSIS that is copied from
       its documentation.

DESCRIPTION

	#!/usr/bin/env perl

	use strict;
	use warnings;
	use POE;
	use POE::Component::IRC::Plugin::AutoJoin;
	use POE::Component::IRC::Plugin::Connector;
	use POE::Component::IRC::Plugin::Hailo;
	use POE::Component::IRC::State;

	my $irc = POE::Component::IRC::State->spawn(
	    nick   => 'Brainy',
	    server => 'irc.freenode.net',
	);

	my @channels = ('#public_chan', '#bot_chan');

	$irc->plugin_add('AutoJoin', POE::Component::IRC::Plugin::AutoJoin->new(Channels => @channels));
	$irc->plugin_add('Connector', POE::Component::IRC::Plugin::Connector->new());
	$irc->plugin_add('Hailo', POE::Component::IRC::Plugin::Hailo->new(
	    Own_channel    => '#bot_chan',
	    Ignore_regexes => [ qr{w+://w} ], # ignore lines containing URLs
	    Hailo_args	   => {
		brain_resource => 'brain.sqlite',
	    },
	));

	$irc->yield('connect');
	$poe_kernel->run();

AUTHOR

       Hinrik Oern Sigur`sson, hinrik.sig@gmail.com

perl v5.14.2							    2011-12-07				 POE::Component::IRC::Cookbook::Hailo(3pm)

POE::Component::IRC::Cookbook::BasicBot(3pm)		User Contributed Perl Documentation	      POE::Component::IRC::Cookbook::BasicBot(3pm)

NAME

       POE::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.2							    2011-12-07			      POE::Component::IRC::Cookbook::BasicBot(3pm)