Support photos in tgserver

2 files changed, 29 insertions, 4 deletions

diff --git a/lib/TgLib/Api.pm b/lib/TgLib/Api.pm
index 02e8b83..87f227d 100644
--- a/lib/TgLib/Api.pm
+++ b/lib/TgLib/Api.pm
@@ -62,12 +62,31 @@ sub send_message {
 }
 
 sub send_document {
-    my ($self, $chat_id, $photo, $caption) = @_;
+    my ($self, $chat_id, $file, $filename, $caption) = @_;
     my $logger = $self->{'logger'};
     my $uri = "$self->{'uri'}/sendDocument";
     my $content = {'chat_id' => $chat_id,
-                       'caption' => $caption,
-                       'document' => [undef, 'cosa.png', Content => $photo]};
+                   'caption' => $caption,
+                   'document' => [undef, $filename, Content => $file]};
+
+    my $req = POST $uri, 'Content-Type' => "multipart/form-data", 'Content' => $content;
+    $logger->debug(sprintf "Request:\n%s\n", Dumper($req)); # DEBUG
+
+    my $resp = $self->{'ua'}->request($req);
+    $logger->debug(sprintf "Response:\n%s\n", Dumper($resp));
+    if ($resp->is_error()) {
+        print decode_json($resp->content)->{'description'};
+        die $resp->message;
+    }
+}
+
+sub send_photo {
+    my ($self, $chat_id, $photo, $filename, $caption) = @_;
+    my $logger = $self->{'logger'};
+    my $uri = "$self->{'uri'}/sendPhoto";
+    my $content = {'chat_id' => $chat_id,
+                   'caption' => $caption,
+                   'photo' => [undef, $filename, Content => $photo]};
 
     my $req = POST $uri, 'Content-Type' => "multipart/form-data", 'Content' => $content;
     $logger->debug(sprintf "Request:\n%s\n", Dumper($req)); # DEBUG
diff --git a/tgserver b/tgserver
index 4de8fdb..73c68ac 100755
--- a/tgserver
+++ b/tgserver
@@ -114,7 +114,13 @@ sub reply {
     if ($type eq 'DOCUMENT') {
         my $caption = $response->{'caption'};
         $logger->info("🤖: [Document '$caption'] -> $chat_id\n");
-        $api->send_document($chat_id, decode_base64 $response->{'content'}, $caption);
+        $api->send_document($chat_id, decode_base64 $response->{'content'},
+                           $response->{'filename'}, $caption);
+    } elsif ($type eq 'PHOTO') {
+        my $caption = $response->{'caption'};
+        $logger->info("🤖: [Photo '$caption'] -> $chat_id\n");
+        $api->send_photo($chat_id, decode_base64 $response->{'content'},
+                        $response->{'filename'}, $caption);
     } elsif ($type eq 'TEXT' and $response) {
         $logger->info("🤖: '$response' -> $chat_id\n");
         $api->send_message($chat_id, $response);