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

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;

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
 </bot>
 
 <bot perlbot>

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 <text>; gives back a random saying from the zippit plugin