rodger/mnemosyne
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Adding more logging

Browse Source
This commit is contained in:
Rodger Castle 2026-06-04 22:18:14 -04:00
parent 2e6ebf3b10
commit 11fafe4bcc
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lib/Mnemosyne/Webhook.pm
View File

@ -3,6 +3,7 @@ use strict;
use warnings; use warnings;
use utf8; use utf8;
use DateTime; use DateTime;
use Mojo::JSON qw(encode_json);
use Mnemosyne::Task; use Mnemosyne::Task;
use Mnemosyne::Digest; use Mnemosyne::Digest;
use Mnemosyne::Schedule; use Mnemosyne::Schedule;
@ -31,6 +32,8 @@ sub handle_update {
return; return;
} }
warn "DBG full_update: " . encode_json($update) . "\n";
my $upd_type = exists $update->{message} ? 'message' my $upd_type = exists $update->{message} ? 'message'
: exists $update->{callback_query} ? 'callback_query' : exists $update->{callback_query} ? 'callback_query'
: 'unknown'; : 'unknown';
@ -51,6 +54,9 @@ sub _handle_message {
my ($msg, $chat_id, $db, $config, $telegram) = @_; my ($msg, $chat_id, $db, $config, $telegram) = @_;
my $text = $msg->{text} // ''; 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) # Strip bot username suffix from commands (e.g. /help@MnemosyneBot)
$text =~ s{^(/\w+)@\w+}{$1}; $text =~ s{^(/\w+)@\w+}{$1};