eleksir/mbot-brains
0
Fork 0
Code Activity

Implement ping service check.

Browse Source
This commit is contained in:
eleksir
2020-10-25 22:35:16 +03:00
parent dd0f656e57
commit 68d80870c5
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
mbot-brains.psgi
View File

@@ -69,6 +69,11 @@ my $app = sub {
my $status = '404'; my $status = '404';
my $content = 'text/plain'; my $content = 'text/plain';
if ($env->{PATH_INFO} eq '/ping') {
$msg = "pong\n";
$status '200';
}
if ($env->{PATH_INFO} eq '/learn' && $env->{REQUEST_METHOD} eq 'POST') { if ($env->{PATH_INFO} eq '/learn' && $env->{REQUEST_METHOD} eq 'POST') {
($status, $content, $msg) = learn ($env->{HTTP_CHAT}, $env->{HTTP_PHRASE}); ($status, $content, $msg) = learn ($env->{HTTP_CHAT}, $env->{HTTP_PHRASE});
} }