From dcecc76f6ea63261d913336809af5a2022c01dbe Mon Sep 17 00:00:00 2001
From: Ryan Voots <simcop2387@simcop2387.info>
Date: Fri, 18 Feb 2011 21:24:30 -0500
Subject: [PATCH] adding stuff

---
 plugins/core.pm.bak | 60 +++++++++++++++++++++++++++++++++++++++++++++
 plugins/define.pm   | 45 ++++++++++++++++++++++++++++++++++
 plugins/get.pm      | 51 ++++++++++++++++++++++++++++++++++++++
 3 files changed, 156 insertions(+)
 create mode 100644 plugins/core.pm.bak
 create mode 100644 plugins/define.pm
 create mode 100644 plugins/get.pm

diff --git a/plugins/core.pm.bak b/plugins/core.pm.bak
new file mode 100644
index 0000000..3b5f150
--- /dev/null
+++ b/plugins/core.pm.bak
@@ -0,0 +1,60 @@
+BEGIN {do Module::CoreList};
+
+                   sub require {
+                      my ($filename) = @_;
+                      if (exists $INC{$filename}) {
+                          return 1 if $INC{$filename};
+                          die "Compilation failed in require";
+                      }
+                      my ($realfilename,$result);
+                      ITER: {
+                          foreach $prefix (@INC) {
+                              $realfilename = "$prefix/$filename";
+                              if (-f $realfilename) {
+                                  $INC{$filename} = $realfilename;
+                                  $result = do $realfilename;
+                                  last ITER;
+                              }
+                          }
+                          die "Can't find $filename in \@INC";
+                      }
+                      if ($@) {
+                          $INC{$filename} = undef;
+                          die $@;
+                      } elsif (!$result) {
+                          delete $INC{$filename};
+                          die "$filename did not return true value";
+                      } else {
+                          return $result;
+                      }
+                   }
+
+sub {
+    my ( $said, $pm ) = @_;
+    my $module = $said->{recommended_args}->[0];
+
+    my $rev = Module::CoreList->first_release($module);
+    if ($rev) {
+        print "Added to perl core as of $rev";
+        if ( Module::CoreList->can('removed_from') ) {
+            my $rem = Module::CoreList->removed_from($module);
+            print " and removed from $rem" if $rem;
+        }
+    }
+    else {
+        my @modules = Module::CoreList->find_modules(qr/$module/);
+
+        if (@modules) {
+            print 'Found', scalar @modules, ':', join ',',
+              map { $_ . ' in ' . Module::CoreList->first_release($_) }
+              @modules;
+
+        }
+        else {
+            print "Module $module does not appear to be in core. Perhaps capitalization matters or try using the 'cpan' command to search for it.";
+        }
+    }
+  }
+
+__DATA__
+Tells you when the module you searched for was added to the Perl Core, if it was.
diff --git a/plugins/define.pm b/plugins/define.pm
new file mode 100644
index 0000000..65693a6
--- /dev/null
+++ b/plugins/define.pm
@@ -0,0 +1,45 @@
+package Bot::BB3::Plugin::Define;
+use Net::Dict;
+
+sub new {
+	my( $class ) = @_;
+
+	my $self = bless {}, $class;
+	$self->{name} = 'define';
+	$self->{opts} = {
+		command => 1,
+	};
+
+	return $self;
+}
+
+sub command {
+	my( $self, $said, $pm ) = @_;
+	my $word = $said->{recommended_args}->[0];
+
+	# Note that our cache only lasts for our
+	# plugin handler's life. Oh well.
+	return $self->{cache}->{$word}
+		if defined $self->{cache}->{$word};
+
+	my $dict = Net::Dict->new('dict.org');
+	$dict->setDicts( 'wn', 'web1913' );
+
+	my $defs = $dict->define( $word  );
+	my $definition = $defs->[0]->[1];
+		$definition =~ s/[ \t\n]+/ /g;
+
+	if( $definition ) {
+		$self->{cache}->{$word} = $definition;
+
+		return( 'handled', $definition );
+	}
+	else {
+		return( 'handled', 'Whups, no definition for you' );
+	}
+}
+
+"Bot::BB3::Plugin::Define";
+
+__DATA__
+Attempts to find a definition for a given term. Syntax, define TERM.
diff --git a/plugins/get.pm b/plugins/get.pm
new file mode 100644
index 0000000..9b7c934
--- /dev/null
+++ b/plugins/get.pm
@@ -0,0 +1,51 @@
+use LWP::UserAgent;
+use HTML::TreeBuilder::XPath;
+
+sub {
+	my( $said ) = @_;
+
+	my $ua = LWP::UserAgent->new( agent => "BB3WebAgent! (mozilla)" );
+	my $url;
+
+	if( $said->{body} =~ s{(http://\S+)\s*}{} ) {
+		$url = $1;
+	}
+	elsif( $said->{body} =~ s/(\S+)\s*// ) {
+		$url = "http://$1";
+	}
+	else {
+		print "That doesn't look like a url..";
+		return;
+	}
+
+
+	my $resp = $ua->get( $url );
+
+	if( not $resp ) {
+		print "Couldn't fetch [$url] you failure";
+		return;
+	}
+    
+    my @text;
+    my $document = HTML::TreeBuilder::XPath->new_from_content( $resp->content );
+    if (!$document) { 
+        print "Could not parsinate that page!";
+    }
+    # just the xpath left
+    if ($said->{body}) {
+        @text = eval{
+            $document->findvalues( $said->{body} );
+        };
+        @text = "Your Xpath didn't match anything"  if 0 == @text;
+        @text = "Your Xpath fails: $@"              if $@;
+    }
+    if (! $said->{body} ){
+        @text = ($@,$document->findvalues( '//title' ), ': ',$document->findvalues( '//body' ));
+    }
+    local $, = ', ';
+    
+    print map { local $_ = "$_"; s/\s+/ /g;s/^ +//; s/ +$//; $_} @text
+}
+
+__DATA__
+get http://url/ //xpath - get page from interents, extract the xpath, show it to people. (Xpath defaults to '//title' +  '//body' ) spaces squashed too