Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
93 lines (72 sloc) 2.2 KB
NAME
POE::Component::IRC::Plugin::URI::Find - A POE::Component::IRC plugin
that finds URIs in channel traffic.
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 irc_001 irc_urifind_uri) ],
],
);
$poe_kernel->run();
exit 0;
sub _start {
# Create and load our plugin
$irc->plugin_add( '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;
AUTHOR
Chris 'BinGOs' Williams
LICENSE
Copyright © Chris Williams.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
SEE ALSO
POE::Component::IRC
URI::Find
Something went wrong with that request. Please try again.