diff options
Diffstat (limited to 'tgserver')
-rwxr-xr-x | tgserver | 11 |
1 files changed, 8 insertions, 3 deletions
@@ -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); } |