diff options
| -rw-r--r-- | lib/TgLib/Api.pm | 8 | ||||
| -rwxr-xr-x | tgsend | 2 | ||||
| -rwxr-xr-x | tgserver | 2 |
3 files changed, 8 insertions, 4 deletions
diff --git a/lib/TgLib/Api.pm b/lib/TgLib/Api.pm index 3bbdde6..3056073 100644 --- a/lib/TgLib/Api.pm +++ b/lib/TgLib/Api.pm @@ -30,7 +30,11 @@ sub get_updates { if ($resp->is_error()) { die $resp->message; } else { - return decode_json($resp->content)->{'result'}; + my $updates = decode_json($resp->content)->{'result'}; + $logger->info(sprintf "Received %d updates from chats %s\n", + scalar(@$updates), + join(", ", map { $_->{'message'}{'chat'}{'id'} } @$updates)); + return $updates; } } @@ -42,7 +46,7 @@ sub send_message { my $req = HTTP::Request->new("POST", $uri, ["Content-Type", "application/json"], $content); - $logger->info("Sending to $chat_id:\n====\n$text\n====\n"); + $logger->info("Sending to $chat_id: '$text'\n"); $logger->debug(sprintf "Request:\n%s\n", Dumper($req)); my $resp = $self->{'ua'}->request($req); @@ -44,7 +44,7 @@ my $text = <STDIN>; # Send message to chats (or pretend to) if ($PRETEND) { - $logger->info("(prentend) Sending to $_:\n====\n$text\n====\n") foreach @ARGV; + $logger->info("(prentend) Sending to $_: '$text'\n") foreach @ARGV; } else { my $api = TgLib::Api->new($TOKEN, $logger); $api->send_message($_, $text) foreach @ARGV; @@ -48,7 +48,7 @@ while (1) { $logger->debug(sprintf "Update %s", Dumper($update)); my $text = $update->{'message'}{'text'}; my $chat_id = $update->{'message'}{'chat'}{'id'}; - $logger->info("Received update from chat $chat_id\n"); + $logger->info("Received from chat $chat_id: '$text'\n"); use IPC::Open2 qw<open2>; my $pid = open2(my $progr, my $progw, "@ARGV"); |