Fix handling of message updates

1 files changed, 14 insertions, 8 deletions

diff --git a/tgserver b/tgserver
index b281e40..8a12300 100755
--- a/tgserver
+++ b/tgserver
@@ -61,14 +61,20 @@ while (1) {
         $cache->offset($update->{'update_id'}+1);
 
         $logger->debug(sprintf "Update %s", Dumper($update));
-        my $msg = $update->{'message'};
-        $ENV{'TGUTILS_CHAT_ID'} = $msg->{'chat'}{'id'};
-        $ENV{'TGUTILS_FROM_ID'} = $msg->{'from'}{'id'};
-        $ENV{'TGUTILS_FROM_USERNAME'} = $msg->{'from'}{'username'};
-        if (exists $msg->{'photo'}) {
-            handle_photo($msg);
-        } else {
-            handle_text($msg);
+        if ($update->{'message'}) {
+            my $msg = $update->{'message'};
+            $ENV{'TGUTILS_CHAT_ID'} = $msg->{'chat'}{'id'};
+            $ENV{'TGUTILS_FROM_ID'} = $msg->{'from'}{'id'};
+            $ENV{'TGUTILS_FROM_USERNAME'} = $msg->{'from'}{'username'};
+            if (exists $msg->{'photo'}) {
+                handle_photo($msg);
+            } else {
+                handle_text($msg);
+            }
+        } elsif ($update->{'edited_message'}) {
+            my $msg = $update->{'edited_message'};
+            # TODO
+            $logger->info("Received edited message, ignoring...");
         }
     }
 }