aleesa-bot/aleesa-telegram
0
Fork 0
Code Pull Requests Projects Releases Activity

Rework BotAPI error handling, this time it looks kinda working, still wip, though

Browse Source
This commit is contained in:
eleksir
2023-01-07 17:18:35 +03:00
parent 5edf5a7e0c
commit be5c654045
1 changed files with 36 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
lib/RedisLib.pm
View File

@@ -13,7 +13,7 @@ use Log::Any qw ($log);
use Mojo::Redis ();
use Mojo::Redis::Connection ();
use BotLib::Admin qw (MigrateSettingsToNewChatID);
use BotLib::Admin qw (MigrateSettingsToNewChatID FortuneToggle);
use BotLib::Conf qw (LoadConf);
use version; our $VERSION = qw (1.0);
@@ -53,6 +53,7 @@ sub redis_parse_message {
}
$message->{text} = "$m->{message}";
if (defined ($m->{threadid}) && $m->{threadid} ne '') {
$message->{message_thread_id} = 0 + $m->{threadid};
}
@@ -69,55 +70,49 @@ sub redis_parse_message {
my $r = $main::TGM->sendMessage ($message);
if ($r->{error}) {
if (defined ($r->{http_code}) && $r->{http_code} == 400) {
unless (defined $r->{$message}) {
$log->error ("[ERROR] An error occured while sending message to chat $m->{chatid}");
return;
}
# TODO: handle 50x errors? They occur when api servers being updated.
$log->error ('[ERROR] Unable to call sendMessage() BotAPI method: ' . Dumper ($r));
my $j = eval { decode_json ($r->{$message}); };
my $resp = eval { $r->{debug}->json };
unless (defined $j) {
$log->error ("[ERROR] An error occured while sending message to chat $m->{chatid}: $EVAL_ERROR");
return;
}
if (defined $resp) {
$log->error ('[ERROR] BotAPI returns parsable error: ' . Dumper ($resp));
if (defined ($j->{parameters}) && defined $j->{parameters}->{migrate_to_chat_id}) {
MigrateSettingsToNewChatID ($m->{chatid}, $j->{parameters}->{migrate_to_chat_id});
$message->{chat_id} = $j->{parameters}->{migrate_to_chat_id};
} elsif (defined ($j->{description})) {
if ($j->{description} eq 'Bad Request: chat not found') {
if (defined $j->{param}->{chat_id}) {
# Выключим явным образом посылку фортунки с утра
FortuneToggle ($j->{param}->{chat_id}, 0);
return;
}
} elsif ($j->{description} eq 'Bad Request: have no rights to send a message') {
# Ебитес с этим как хотите, по идее $can_talk->{can_talk} должен был вернуть 0
# looks like race condition :)
$log->error ("[ERROR] Unable to send messages to chat $m->{chatid}: $j->{description}");
return;
}
} else {
$log->error ("[ERROR] An error occured while sending message to chat $m->{chatid}");
return;
}
if (defined ($resp->{error_code}) && $resp->{error_code} == 400) {
if (defined $resp->{description}) {
if ($resp->{description} eq 'Bad Request: have no rights to send a message') {
$log->notice ("[NOTICE] Have no rights to send message to $m->{chatid}");
# TODO: disable fortune if message is good morning fortune
} elsif ($resp->{description} eq 'Bad Request: chat not found') {
$log->notice (
"[NOTICE] Chat not found toggling good morning fortune off for $m->{chatid}"
);
$r = undef;
$r = $main::TGM->sendMessage ($message);
FortuneToggle($m->{chatid}, 0);
return;
} elsif ($resp->description eq 'Bad Request: group chat was upgraded to a supergroup chat') {
if (defined ($resp->{parameters}) &&
defined ($resp->{parameters}->{migrate_to_chat_id})) {
my $tpl = '[NOTICE] group upgraded to supergroup, chat_id changed, ';
$tpl .= 'migrating settings from %s to %s';
if ($r->{error}) {
$log->error (
"[ERROR] An error occured while sending message to chat $message->{chat_id}: " .
Dumper ($r)
$log->notice (
sprintf($tpl, $m->{chatid}, $resp->{parameters}->{migrate_to_chat_id})
);
MigrateSettingsToNewChatID (
$m->{chatid},
$resp->{parameters}->{migrate_to_chat_id}
);
}
} else {
# TODO: handle 50x errors? They occur when api servers being updated.
$log->error ('[ERROR] Unable to call sendMessage() BotAPI method: ' . Dumper ($r));
}
}
}
}
}
}
return;
}