eleksir/mbot-brains
0
Fork 0
Code Activity

Add lat brain case for handling famous latin phrases request.

Browse Source
This commit is contained in:
eleksir
2020-10-24 20:02:19 +03:00
parent b13ea5bca2
commit dd0f656e57
4 changed files with 1388 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
mbot-brains.psgi
View File

@@ -14,12 +14,17 @@ unless (-d $braindir) {
die "Directory $braindir does not exists\n";
}
unless (-f "$braindir/lat.brain.sqlite") {
die "Famous latin phrases module is not initialized. Run bin/lat_init.pl\n";
}
my %brain;
# just return answer
sub answer (@) {
my $chat = shift;
my $phrase = shift;
my $msg;
unless (defined $brain{$chat}) {
my $brain = sprintf '%s/%s.brain.sqlite', $braindir, $chat;
@@ -30,7 +35,11 @@ sub answer (@) {
);
}
my $msg = $brain{$chat}->reply($phrase);
if ($chat eq 'lat') {
$msg = $brain{$chat}->reply();
} else {
$msg = $brain{$chat}->reply($phrase);
}
return ('200', 'text/plain', $msg);
}
@@ -68,6 +77,10 @@ my $app = sub {
($status, $content, $msg) = answer ($env->{HTTP_CHAT}, $env->{HTTP_PHRASE});
}
if ($env->{PATH_INFO} eq '/lat' && $env->{REQUEST_METHOD} eq 'POST') {
($status, $content, $msg) = answer ('lat', undef);
}
return [
$status,
[ 'Content-Type' => $content, 'Content-Length' => length $msg ],
@@ -75,5 +88,7 @@ my $app = sub {
];
};
1;
__END__
# vim: set ft=perl noet ai ts=4 sw=4 sts=4: