diff --git a/lib/Mnemosyne/Webhook.pm b/lib/Mnemosyne/Webhook.pm index a5ef20e..f2e7767 100644 --- a/lib/Mnemosyne/Webhook.pm +++ b/lib/Mnemosyne/Webhook.pm @@ -3,6 +3,7 @@ use strict; use warnings; use utf8; use DateTime; +use Mojo::JSON qw(encode_json); use Mnemosyne::Task; use Mnemosyne::Digest; use Mnemosyne::Schedule; @@ -31,6 +32,8 @@ sub handle_update { return; } + warn "DBG full_update: " . encode_json($update) . "\n"; + my $upd_type = exists $update->{message} ? 'message' : exists $update->{callback_query} ? 'callback_query' : 'unknown'; @@ -51,6 +54,9 @@ sub _handle_message { my ($msg, $chat_id, $db, $config, $telegram) = @_; my $text = $msg->{text} // ''; + # Non-text messages (photos, stickers, voice, accidental empty sends, etc.) + return unless length $text; + # Strip bot username suffix from commands (e.g. /help@MnemosyneBot) $text =~ s{^(/\w+)@\w+}{$1};