From 10fc353924995f6b942cc0654409bc16d657e870 Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Sat, 19 Dec 2020 17:25:20 +0300
Subject: [PATCH] Move !help to botlib.pm

---
 lib/botlib.pm      | 32 +++++++++++++++++++++-----
 lib/telegrambot.pm | 56 ++--------------------------------------------
 2 files changed, 29 insertions(+), 59 deletions(-)

diff --git a/lib/botlib.pm b/lib/botlib.pm
index f9fd413..d42b303 100644
--- a/lib/botlib.pm
+++ b/lib/botlib.pm
@@ -273,11 +273,33 @@ sub command {
 	} elsif (substr ($text, 1) eq 'f ?'  ||  substr ($text, 1) eq 'fortune ?'  ||  substr ($text, 1) eq 'фортунка ?'  ||  substr ($text, 1) eq 'ф ?') {
 		$reply = fortune_status ($chatid);
 	} elsif (substr ($text, 1) eq 'dig' || substr ($text, 1) eq 'копать') {
-		my $send_args;
-		$send_args->{text} = dig ($highlight);
-		$send_args->{parse_mode} = 'Markdown';
-		$send_args->{chat_id} = $msg->chat->id;
-		Teapot::Bot::Brain::sendMessage ($self, $send_args);
+		$reply = dig ($highlight);
+		$msg->replyMd ($reply);
+		return;
+	} elsif (substr ($text, 1) eq 'help'  ||  substr ($text, 1) eq 'помощь') {
+		$reply = << 'MYHELP';
+```
+!help | !помощь           - список команд
+!dig | !копать            - заняться археологией
+!f | !ф                   - рандомная фраза из сборника цитат fortune_mod
+!fortune | !фортунка      - рандомная фраза из сборника цитат fortune_mod
+!f # | !ф #               - где 1 - вкл, 0 - выкл фортунку с утра
+!fortune # | !фортунка #  - где 1 - вкл, 0 - выкл фортунку с утра
+!f ? | !ф ?               - показываем ли с утра фортунку для чата
+!fortune ? | !фортунка ?  - показываем ли с утра фортунку для чата
+!friday | !пятница        - а не пятница ли сегодня?
+!lat | !лат               - сгенерировать фразу из крылатых латинских выражений
+!ping | !пинг             - попинговать бота
+!ver | !version | !версия - что-то про версию ПО
+!w город | !п город       - погода в указанном городе
+!karma | !карма фраза     - посмотреть карму фразы
+фраза-- | фраза++         - убавить или добавить карму фразе
+```
+Но на самом деле я бот больше для общения, чем для исполнения команд.
+Поговоришь со мной?
+MYHELP
+		$msg->replyMd ($reply);
+		return;
 	}
 
 	return $reply;
diff --git a/lib/telegrambot.pm b/lib/telegrambot.pm
index 3bbc285..38207f3 100644
--- a/lib/telegrambot.pm
+++ b/lib/telegrambot.pm
@@ -159,33 +159,7 @@ sub __on_msg {
 		my $reply = 'Давайте ещё пообщаемся, а то я ещё не научилась от вас плохому.';
 
 		if (substr ($text, 0, 1) eq $c->{telegrambot}->{csign}) {
-			if (substr ($text, 1) eq 'help'  ||  substr ($text, 1) eq 'помощь') {
-				$reply = << 'MYHELP';
-```
-!help | !помощь           - список команд
-!dig | !копать            - заняться археологией
-!f | !ф                   - рандомная фраза из сборника цитат fortune_mod
-!fortune | !фортунка      - рандомная фраза из сборника цитат fortune_mod
-!f # | !ф #               - где 1 - вкл, 0 - выкл фортунку с утра
-!fortune # | !фортунка #  - где 1 - вкл, 0 - выкл фортунку с утра
-!f ? | !ф ?               - показываем ли с утра фортунку для чата
-!fortune ? | !фортунка ?  - показываем ли с утра фортунку для чата
-!friday | !пятница        - а не пятница ли сегодня?
-!lat | !лат               - сгенерировать фразу из крылатых латинских выражений
-!ping | !пинг             - попинговать бота
-!ver | !version | !версия - что-то про версию ПО
-!w город | !п город       - погода в указанном городе
-!karma | !карма фраза     - посмотреть карму фразы
-фраза-- | фраза++         - убавить или добавить карму фразе
-```
-Но на самом деле я бот больше для общения, чем для исполнения команд.
-Поговоришь со мной?
-MYHELP
-				$msg->replyMd ($reply);
-				return;
-			} else {
-				$reply = command ($self, $msg, $text, $userid);
-			}
+			$reply = command ($self, $msg, $text, $userid);
 		} else {
 			my $just_message_in_chat = 0;
 
@@ -289,33 +263,7 @@ MYHELP
 		# simple commands
 		# TODO: Log commands and answers
 		} elsif (substr ($text, 0, 1) eq $c->{telegrambot}->{csign}) {
-			if (substr ($text, 1) eq 'help'  ||  substr ($text, 1) eq 'помощь') {
-				$reply = << 'MYHELP';
-```
-!help | !помощь           - список команд
-!dig | !копать            - заняться археологией
-!f | !ф                   - рандомная фраза из сборника цитат fortune_mod
-!fortune | !фортунка      - рандомная фраза из сборника цитат fortune_mod
-!f # | !ф #               - где 1 - вкл, 0 - выкл фортунку с утра
-!fortune # | !фортунка #  - где 1 - вкл, 0 - выкл фортунку с утра
-!f ? | !ф ?               - показываем ли с утра фортунку для чата
-!fortune ? | !фортунка ?  - показываем ли с утра фортунку для чата
-!friday | !пятница        - а не пятница ли сегодня?
-!lat | !лат               - сгенерировать фразу из крылатых латинских выражений
-!ping | !пинг             - попинговать бота
-!ver | !version | !версия - что-то про версию ПО
-!w город | !п город       - погода в указанном городе
-!karma | !карма фраза     - посмотреть карму фразы
-фраза-- | фраза++         - убавить или добавить карму фразе
-```
-Но на самом деле я бот больше для общения, чем для исполнения команд.
-Поговоришь со мной?
-MYHELP
-				$msg->replyMd ($reply);
-				return;
-			} else {
-				$reply = command ($self, $msg, $text, $chatid);
-			}
+			$reply = command ($self, $msg, $text, $chatid);
 		} elsif (
 				($text eq $qname) or
 				($text eq sprintf ('%s', $qtname)) or