mirror of https://github.com/pragma-/pbot.git
43 lines
1.0 KiB
Perl
Executable File
43 lines
1.0 KiB
Perl
Executable File
#!/usr/bin/perl -I /home/msmud/lib/perl5
|
|
|
|
# This Source Code Form is subject to the terms of the Mozilla Public
|
|
# License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
# file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
|
|
use strict;
|
|
use WWW::Wikipedia;
|
|
use HTML::Parse;
|
|
use HTML::FormatText;
|
|
|
|
my $term = join(' ', @ARGV);
|
|
|
|
if (not $term) {
|
|
print "Usage: !wikipedia <term>\n";
|
|
exit;
|
|
}
|
|
|
|
my $wiki = WWW::Wikipedia->new(language => 'en');
|
|
my $entry = $wiki->search($term);
|
|
|
|
if ($entry) {
|
|
my $text = $entry->text();
|
|
|
|
if ($text) {
|
|
$text =~ s/{{.*?}}//msg;
|
|
$text =~ s/\[\[//g;
|
|
$text =~ s/\]\]//g;
|
|
$text =~ s/<ref>.*?<\/ref>//g;
|
|
$text =~ s/__[A-Z]+__//g;
|
|
$text =~ s/\s+\(\)//msg;
|
|
$text = HTML::FormatText->new->format(parse_html($text));
|
|
print $text;
|
|
} else {
|
|
print "Specific entry not found, see also: ";
|
|
my $semi = "";
|
|
foreach ($entry->related()) { print "$semi$_"; $semi = "; "; }
|
|
}
|
|
} else {
|
|
print qq("$term" not found in Wikipedia\n)
|
|
}
|
|
|