mirror of
https://github.com/perlbot/perlbuut
synced 2025-06-07 19:05:50 -04:00
269090122d
Revert "my fucked up version. time to revert, found new url."
This reverts commit b1081fe98b.
55 lines
1.5 KiB
Perl
55 lines
1.5 KiB
Perl
# OEIS plugin to buubot3 by b_jonas
|
|
|
|
use warnings;
|
|
use strict;
|
|
use CGI;
|
|
use LWP::Simple;
|
|
use WWW::Shorten 'Metamark';
|
|
|
|
sub {
|
|
my($said) = @_;
|
|
my $q = $said->{"body"};
|
|
|
|
warn 1;
|
|
if( $q =~ /^\s*(?:(?:help|wtf|\?|\:)\s*)?$/i )
|
|
{
|
|
print "see http://tinyurl.com/7xmvs and http://tinyurl.com/2blo2w";
|
|
return;
|
|
}
|
|
warn 2;
|
|
my $uri = "http://www.research.att.com/~njas/sequences/?q=" . CGI::escape($q) . "&n=1&fmt=3";
|
|
local $_ = get($uri); # change this in the real plugin
|
|
warn 2.5;
|
|
if (/^Results .* of (\d+) results/mi) {
|
|
my $nrfound = $1;
|
|
unless( /^%N (\S+) (.*)/m )
|
|
{
|
|
print "Reply from OEIS in unknown format 2";
|
|
return;
|
|
}
|
|
warn 3;
|
|
my($anum, $title) = ($1, $2);
|
|
my $elts_re = /^%V/m ? qr/^%[VWX] \S+ (.*)/m : qr/^%[STU] \S+ (.*)/m;
|
|
my $elts = join ",", /$elts_re/g;
|
|
$elts =~ s/,,+/,/g;
|
|
warn 3.5;
|
|
if (1 == $nrfound) {
|
|
my $outuri = sprintf "http://tinyurl.com/4zq4q/%.10s", $anum;
|
|
print sprintf "%s %.256s: %.512s", $outuri, $title, $elts;
|
|
} else {
|
|
my $outuri1 = "http://www.research.att.com/~njas/sequences/?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;
|
|
}
|
|
} elsif (/^no matches/mi) {
|
|
print "No matches found";
|
|
warn 4
|
|
} else {
|
|
warn 5;
|
|
print "Reply from OEIS in unknown format";
|
|
}
|
|
}
|
|
|
|
__DATA__
|
|
Search for a sequence in the On-Line Encyclopedia of Integer Sequences (http://tinyurl.com/2blo2w) Syntax, oeis 1,1,2,3,5
|