From fc56f9943356d9f6057fd9e102e4fd010c140b13 Mon Sep 17 00:00:00 2001
From: eleksir <eleksir@exs-elm.ru>
Date: Mon, 2 Jan 2023 21:25:18 +0300
Subject: [PATCH] Try to catch and log as most Bot API errors as we can in
 BotLib.pm

---
 lib/BotLib.pm | 30 ++++++++++++++++++++++++------
 1 file changed, 24 insertions(+), 6 deletions(-)

diff --git a/lib/BotLib.pm b/lib/BotLib.pm
index 7c2c235..e42db86 100644
--- a/lib/BotLib.pm
+++ b/lib/BotLib.pm
@@ -197,7 +197,12 @@ ${csign}karma фраза | ${csign}карма фраза - посмотреть
 Но на самом деле я бот больше для общения, чем для исполнения команд.
 Поговоришь со мной?
 MYHELP
-		$msg->replyMd ("$reply");
+		my $res = $msg->replyMd ("$reply");
+
+		if ($res->{error}) {
+			$log->error ('[ERROR] Unable to call sendMessage BotAPI method: ' . Dumper ($res));
+		}
+
 		return;
 	# Если команда не найдена, но это команда admin :)
 	} elsif ($cmd =~ /^(admin|админ)(\s+|\s+.*)?$/u) {
@@ -206,7 +211,7 @@ MYHELP
 		my $member               = $self->getChatMember ($send_args);
 
 		if ($member->{error}) {
-			$log->error ("[ERROR] Unable to call getChatMember() BotAPI method: " . Dumper ($member));
+			$log->error ('[ERROR] Unable to call getChatMember BotAPI method: ' . Dumper ($member));
 			return;
 		}
 
@@ -246,7 +251,12 @@ ${csign}admin admin mute #    - где 1 - разрешено, 0 - не разр
 audio voice photo video animation sticker dice game poll document
 MYADMIN
 
-			$msg->replyMd ($reply);
+			my $res = $msg->replyMd ($reply);
+
+			if ($res->{error}) {
+				$log->error('[ERROR] Unable to call sendMessage BotAPI method: ' . Dumper($res));
+			}
+
 			return;
 		} elsif ($cmd =~ /^admin\s+(admin\s+mute)(\s*|\s+0|\s+1)$/gu) {
 			my $arg;
@@ -272,7 +282,7 @@ MYADMIN
 			my $me = $self->getMe ();
 
 			if ($me->{error}) {
-				$log->error ("[ERROR] Unable to call getMe() BotAPI method: " . Dumper ($member));
+				$log->error ('[ERROR] Unable to call getMe BotAPI method: ' . Dumper ($member));
 				return;
 			}
 
@@ -289,7 +299,7 @@ MYADMIN
 				$me                   = $self->getChatMember ($send_args);
 
 				if ($me->{error}) {
-					$log->error ("[ERROR] Unable to call getChatMember() BotAPI method: " . Dumper ($me));
+					$log->error ('[ERROR] Unable to call getChatMember BotAPI method: ' . Dumper ($me));
 					return;
 				}
 
@@ -299,7 +309,7 @@ MYADMIN
 					my $chatMember        = $self->getChatMember ($send_args);
 
 					if ($chatMember->{error}) {
-						$log->error ("[ERROR] Unable to call getChatMember() BotAPI method: " . Dumper ($chatMember));
+						$log->error ('[ERROR] Unable to call getChatMember BotAPI method: ' . Dumper ($chatMember));
 						return;
 					}
 
@@ -341,8 +351,16 @@ MYADMIN
 
 							if ($result->{error}) {
 								if ($action eq 'mute') {
+									$log->error (
+										'[ERROR] Unable to call muteChatMember BotAPI method: ' .
+										Dumper ($result)
+									);
 									$reply = 'Что-то пошло не так, не получается замьютить.';
 								} else {
+									$log->error (
+										'[ERROR] Unable to call banChatMember BotAPI method: ' .
+											Dumper ($result)
+									);
 									$reply = 'Что-то пошло не так, не получается забанить.';
 								}
 							} else {