From 68d80870c5590bada5c797f8b9b417160d2d7eb6 Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Sun, 25 Oct 2020 22:35:16 +0300
Subject: [PATCH] Implement ping service check.

---
 mbot-brains.psgi | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/mbot-brains.psgi b/mbot-brains.psgi
index 92a4d92..4a6b701 100644
--- a/mbot-brains.psgi
+++ b/mbot-brains.psgi
@@ -69,6 +69,11 @@ my $app = sub {
 	my $status = '404';
 	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') {
 		($status, $content, $msg) = learn ($env->{HTTP_CHAT}, $env->{HTTP_PHRASE});
 	}