diff --git a/Makefile.PL b/Makefile.PL new file mode 100644 index 0000000..76a9d8b --- /dev/null +++ b/Makefile.PL @@ -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; diff --git a/etc/bb3.conf b/etc/bb3.conf index 5c12a75..7b9fe04 100644 --- a/etc/bb3.conf +++ b/etc/bb3.conf @@ -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 diff --git a/plugins/zippit.pm b/plugins/zippit.pm new file mode 100644 index 0000000..53ad363 --- /dev/null +++ b/plugins/zippit.pm @@ -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 ; gives back a random saying from the zippit plugin