Perlbot/perlbuut
1
0
Fork 0
mirror of https://github.com/perlbot/perlbuut synced 2025-06-07 18:45:42 -04:00
Code Issues Releases Wiki Activity

Update plugin changes and dbs

Browse source
This commit is contained in:
Ryan Voots 2020-05-31 12:41:01 -04:00
parent 1cb25e3810
commit 910ab67e01
2 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
plugins/get.pm
View file

@ -40,13 +40,13 @@ sub {
} }
my @text; my @text;
my $document = HTML::TreeBuilder::XPath->new_from_content( $resp->content ); my $document = HTML::TreeBuilder::XPath->new_from_content( $resp->decoded_content );
if (!$document) { if (!$document) {
print "Could not parsinate that page!"; print "Could not parsinate that page!";
} }
# just the xpath left # just the xpath left
if ($said->{body} =~ /^\s*\.\*\s*$/) { if ($said->{body} =~ /^\s*\.\*\s*$/) {
print $resp->content; print $resp->decoded_content;
} elsif ($said->{body}) { } elsif ($said->{body}) {
@text = eval{ @text = eval{
$document->findvalues( $said->{body} ); $document->findvalues( $said->{body} );

2
plugins/supereval.pm
View file

@ -177,7 +177,7 @@ sub command {
$code = "use ojo; ".$code if ($c =~ /m/); $code = "use ojo; ".$code if ($c =~ /m/);
} }
$code = "use utf8; ". $code if ($type =~ /^perl(5.(8|10|12|14|16|18|20|22|24|26))?$/); $code = "use utf8; ". $code if ($type =~ /^perl(5.(8|10|12|14|16|18|20|22|24|26|28|30))?$/);
$code =~ s/␤/\n/g; $code =~ s/␤/\n/g;