From d27d603d01b025d1bb85e463601428736d01f273 Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Tue, 25 Jun 2019 02:07:12 +0200
Subject: No empty responses, Logger::warn

---
 tgserver | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

(limited to 'tgserver')

diff --git a/tgserver b/tgserver
index 18a3a72..91283ba 100755
--- a/tgserver
+++ b/tgserver
@@ -48,12 +48,17 @@ while (1) {
         print $progw $text;
         close($progw);
         my $response = join "", <$progr>;
+        chomp $response;
         $logger->debug("'$text' -> @ARGV -> '$response'\n");
         close($progr);
 
-        open(my $send, "|-", "$FindBin::Bin/tgsend $chatid");
-        print $send $response;
-        close($send);
+        if ($response) {
+            open(my $send, "|-", "$FindBin::Bin/tgsend $chatid");
+            print $send $response;
+            close($send);
+        } else {
+            $logger->warn("Empty response, skipping\n");
+        }
     }
     close($recv);
 }
-- 
cgit v1.2.3