diff options
Diffstat (limited to 'lib/TgLib')
| -rw-r--r-- | lib/TgLib/Api.pm | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/lib/TgLib/Api.pm b/lib/TgLib/Api.pm index 7a14ef3..51d4c31 100644 --- a/lib/TgLib/Api.pm +++ b/lib/TgLib/Api.pm @@ -38,7 +38,7 @@ sub get_updates { my $updates = decode_json($resp->content)->{'result'}; # TODO why does `decode_json` not do this work? map { utf8::encode($_->{'message'}{'text'}) if exists $_->{'message'}{'text'} } @$updates; - $logger->info(sprintf "Received %d updates from chats %s\n", + $logger->debug(sprintf "Received %d updates from chats %s\n", scalar(@$updates), join(", ", map { $_->{'message'}{'chat'}{'id'} } @$updates)) if @$updates; @@ -51,7 +51,6 @@ sub send_message { my $logger = $self->{'logger'}; my $uri = "$self->{'uri'}/sendMessage"; - $logger->info("Sending to $chat_id: '$text'\n"); utf8::decode($text) unless utf8::is_utf8($text); my $content = encode_json {'chat_id' => $chat_id, 'text' => $text}; my $req = HTTP::Request->new("POST", $uri, @@ -74,7 +73,6 @@ sub send_document { 'document' => [undef, 'cosa.png', Content => $photo]}; my $req = POST $uri, 'Content-Type' => "multipart/form-data", 'Content' => $content; - $logger->info("Sending photo to $chat_id\n"); $logger->debug(sprintf "Request:\n%s\n", Dumper($req)); # DEBUG my $resp = $self->{'ua'}->request($req); @@ -101,7 +99,6 @@ sub get_file { die $resp->message; } else { my $file_path = decode_json($resp->content)->{'result'}{'file_path'}; - $logger->info("Getting file $file_id (file_path: $file_path)...\n"); my $uri = "$self->{'file_uri'}/$file_path"; my $req = HTTP::Request->new("GET", $uri); |