Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-09 00:35:42 -04:00
Code Issues Releases Wiki Activity

Merge branch 'master' of github.com:simcop2387/perlbuut

Browse source
This commit is contained in:
Ryan Voots 2010-08-09 23:51:28 -04:00
commit 747a592c56
3 changed files with 44 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
Makefile.PL Normal file
View file

@ -0,0 +1,25 @@
#!env perl
use strict;
use warnings;
use inc::Module::Install;
name "Buubot";
version 0.1;
#all_from 'lib/Bot/BB3.pm';
requires 'POE' => 0;
requires 'Parse::RecDescent' => 0;
requires 'Config::General' => 0;
requires 'Cache::FastMmap' => 0;
requires 'POE::Component::IRC::Common' => 0;
requires 'POE::Component::IRC' => 0;
requires 'Geo::IP' => 0;
requires 'XML::RSS::Parser' => 0;
requires 'WWW::Shorten' => 0;
requires 'WWW::Mechanize' => 0;
requires 'URI::Encode' => 0;
WriteAll;

2
etc/bb3.conf
View file

@ -69,7 +69,7 @@ http_plugin_port 1092
username perlbot
password superbadola
port 6667
root_mask ~simcop238@p3m/member/simcop2387
root_mask p3m/member/simcop2387
</bot>
<bot perlbot>

18
plugins/zippit.pm Normal file
View file

@ -0,0 +1,18 @@
use LWP::UserAgent;
use URI::Escape qw/uri_escape/;
no warnings 'void';
sub {
my( $said ) = @_;
my $ua = LWP::UserAgent->new();
my $foo = $ua->get('http://xn--55d.com/cgi/yep2.pl?txt='.uri_escape($said->{body}));
if ($foo->is_success) {
print $foo->content;
} else {
print $foo->status_line;
}
}
__DATA__
zippit <text>; gives back a random saying from the zippit plugin