NAME

POE::Component::IRC::Plugin::URI::Find - A POE::Component::IRC plugin that finds URIs in channel traffic

VERSION

version 1.10

SYNOPSIS

      use strict;
      use warnings;
      use POE qw(Component::IRC Component::IRC::Plugin::URI::Find);
      use Data::Dumper;

      my $nickname = 'UriFind' . $$;
      my $ircname = 'UriFind the Sailor Bot';
      my $ircserver = 'irc.blah.org';
      my $port = 6667;
      my $channel = '#IRC.pm';

      my $irc = POE::Component::IRC->spawn(
            nick => $nickname,
            server => $ircserver,
            port => $port,
            ircname => $ircname,
            debug => 0,
            plugin_debug => 1,
            options => { trace => 0 },
      ) or die "Oh noooo! $!";

      POE::Session->create(
            package_states => [
                    'main' => [ qw(start irc001 irc_urifind_uri) ],
            ],
      );

      $poe_kernel->run();
      exit 0;

      sub start {
        # Create and load our plugin
        $irc->pluginadd( 'UriFind' =>
            POE::Component::IRC::Plugin::URI::Find->new() );

        $irc->yield( register => 'all' );
        $irc->yield( connect => { } );
        undef;
      }

      sub irc_001 {
        $irc->yield( join => $channel );
        undef;
      }

      sub irc_urifind_uri {
        my @data = @_[ARG0..ARG4];
        print Dumper( \@data );
        undef;
      }

DESCRIPTION

POE::Component::IRC::Plugin::URI::Find, is a POE::Component::IRC plugin that parses public channel traffic for URIs and generates irc events for each URI found.

CONSTRUCTOR

"new"

Creates a new plugin object.

OUTPUT

The following irc event is generated whenever a URI is found in channel

text

"irc_urifind_uri"

With the following parameters:

          ARG0, nick!user@host of the person who said what;
          ARG1, the channel where it was said;
          ARG2, the url found;
          ARG3, the URI::URL object;
          ARG4, what was originally said;

SEE ALSO

POE::Component::IRC

URI::Find

AUTHOR

Chris Williams

COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Chris Williams.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.