POE::Component::IRC::Plugin::PAUSE::RecentUploadsPOE::Component::IRC::Plugin::PAUSE::RecentUploads is a PoCo::IRC plugin for reporting recent uploads to '-/pause.perl.org' | |
Download |
POE::Component::IRC::Plugin::PAUSE::RecentUploads Ranking & Summary
Advertisement
- License:
- Perl Artistic License
- Price:
- FREE
- Publisher Name:
- Zoffix Znet
- Publisher web site:
- http://search.cpan.org/~zoffix/
POE::Component::IRC::Plugin::PAUSE::RecentUploads Tags
POE::Component::IRC::Plugin::PAUSE::RecentUploads Description
POE::Component::IRC::Plugin::PAUSE::RecentUploads is a PoCo::IRC plugin for reporting recent uploads to '-/pause.perl.org' POE::Component::IRC::Plugin::PAUSE::RecentUploads is a PoCo::IRC plugin for reporting recent uploads to "/pause.perl.org" in http::SYNOPSIS use strict; use warnings; use POE::Component::IRC; use POE::Component::IRC::Plugin::PAUSE::RecentUploads; my @Channels = ( '#zofbot', '#other_channel' ); my $irc = POE::Component::IRC->spawn( nick => 'PAUSEBot', server => 'irc.freenode.net', port => 6667, ircname => 'PAUSE recent upload reporter', ) or die "Oh noes :( $!"; POE::Session->create( package_states => , ], ); $poe_kernel->run(); sub _start { $irc->yield( register => 'all' ); # register our plugin $irc->plugin_add( 'PAUSE' => POE::Component::IRC::Plugin::PAUSE::RecentUploads->new( login => 'PAUSE_LOGIN', pass => 'PAUSE_PASS', interval => 600, channels => @Channels, ) ); $irc->yield( connect => { } ); undef; } sub irc_001 { my ( $kernel, $sender ) = @_; $kernel->post( $sender => join => $_ ) for @Channels; undef; } Requirements: · Perl
POE::Component::IRC::Plugin::PAUSE::RecentUploads Related Software