From 17d691fea2f605714235a86d4fc399ad9ba9ae29 Mon Sep 17 00:00:00 2001
From: Ryan Voots <ryan@voots.org>
Date: Sat, 7 Jul 2012 14:58:23 -0400
Subject: [PATCH] my fucked up version.  time to revert, found new url.

---
 plugins/oeis.pm | 18 +++++++++---------
 1 file changed, 9 insertions(+), 9 deletions(-)

diff --git a/plugins/oeis.pm b/plugins/oeis.pm
index c06d63a..12e841c 100644
--- a/plugins/oeis.pm
+++ b/plugins/oeis.pm
@@ -13,16 +13,17 @@ sub {
 	warn 1;
 	if( $q =~ /^\s*(?:(?:help|wtf|\?|\:)\s*)?$/i )
 	{
-		print "see http://tinyurl.com/7xmvs and http://tinyurl.com/2blo2w";
+		print "see http://oeis.org/";
 		return;
 	}
 	warn 2;
-	my $uri = "http://www.research.att.com/~njas/sequences/?q=" . CGI::escape($q) . "&n=1&fmt=3";
+	my $uri = "http://oeis.org/?fmt=data&q=" . CGI::escape($q);
 	local $_ = get($uri); # change this in the real plugin
 	warn 2.5;
-	if (/^Results .* of (\d+) results/mi) {
+	if (/^Displaying .* of (\d+) results?/mi) {
 		my $nrfound = $1;
-		unless( /^%N (\S+) (.*)/m )
+                # this is so fucked up
+		unless( m|<a href="[^"]+">(A\d+)</a>.*?align=left>(.*)<br>|si )
 		{
 			print "Reply from OEIS in unknown format 2";
 			return;
@@ -34,20 +35,19 @@ sub {
 		$elts =~ s/,,+/,/g;
 		warn 3.5;
 		if (1 == $nrfound) {
-			my $outuri = sprintf "http://tinyurl.com/4zq4q/%.10s", $anum;
+			my $outuri = sprintf "http://oeis.org/A%.10s", $anum;
 			print sprintf "%s %.256s: %.512s", $outuri, $title, $elts;
 		} else {
-			my $outuri1 = "http://www.research.att.com/~njas/sequences/?q=" . CGI::escape($q);
+			my $outuri1 = "http://oeis.org/?q=" . CGI::escape($q);
 			warn 3.6;
-			my $outuri = makeashorterlink($outuri1) || $outuri1;
-			print sprintf "%s %.10s(1/%d) %.256s: %.512s", $outuri, $anum, $nrfound, $title, $elts;
+			print sprintf "%s %.10s(1/%d) %.256s: %.512s", $outuri1, $anum, $nrfound, $title, $elts;
 		}
 	} elsif (/^no matches/mi) {
 		print "No matches found";
 		warn 4
 	} else {
 	warn 5;
-		print "Reply from OEIS in unknown format";
+		print "Reply from OEIS in unknown format: $_";
 	}
 }