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

Fix sentinal value from plugin

Browse source
This commit is contained in:
Ryan Voots 2017-11-14 13:32:23 -05:00
parent c0205f77a1
commit b8e7c03210
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
plugins/supereval.pm
View file

@ -25,7 +25,7 @@ sub new {
my @perl_aliases = map {("eval$_", "weval$_", "seval$_", "wseval$_", "sweval$_")} @versions;
$self->{aliases} = [ qw/jseval jeval phpeval pleval perleval deparse swdeparse wsdeparse wdeparse sdeparse k20eval rbeval pyeval luaeval/, @perl_aliases ];
$self->{aliases} = [ qw/jseval jeval phpeval pleval perleval deparse swdeparse wsdeparse wdeparse sdeparse k20eval rbeval pyeval luaeval cpeval wscpeval swcpeval wcpeval scpeval/, @perl_aliases ];
$self->{dbh} = DBI->connect("dbi:SQLite:dbname=var/evallogs.db");
return $self;
@ -102,9 +102,13 @@ sub command {
}
if (!$said->{captured} && $resultstr !~ /\S/) {
$resultstr =~ s/^(\x00)+//g;
if (!$said->{captured} && length($resultstr) == 0) {
$resultstr = "No output.";
}
} elsif (!$said->{captured} && $resultstr !~ /\S/) {
$resultstr = "\x{FEFF}$resultstr";
}
if ($type eq 'perl') {
$self->{dbh}->do("INSERT INTO evals (input, output) VALUES (?, ?)", {}, $code, $resultstr);
@ -149,9 +153,9 @@ sub command {
"St. Patricks Day" => {prob => 0.00, chars => []},
"Super Bowl Sunday" => {prob => 0.00, chars => []},
"Susan B. Anthony Day" => {prob => 0.00, chars => []},
"Thanksgiving" => {prob => 0.00, chars => []},
"Thanksgiving Day" => {prob => 0.00, chars => []},
"Valentines Day" => {prob => 0.00, chars => []},
"Thanksgiving" => {prob => 1.00, chars => ["\x{1F983}"]},
"Thanksgiving Day" => {prob => 1.00, chars => ["\x{1F983}"]},
"Valentines Day" => {prob => 0.25, chars => ["\x{1F491}"]},
"Veterans Day" => {prob => 0.00, chars => []},
"Washingtons Birthday" => {prob => 0.00, chars => []},
"Washingtons Birthday (observed)" => {prob => 0.00, chars => []},