From d7f4ee6f0f86f462c26a27eb8d267abd592f01af Mon Sep 17 00:00:00 2001
From: Guillermo Ramos
Date: Tue, 25 Jun 2019 02:22:00 +0200
Subject: Use same token for tgsend/tgrecv from tgserver

---
 tgserver | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tgserver')

diff --git a/tgserver b/tgserver
index 91283ba..ed58e46 100755
--- a/tgserver
+++ b/tgserver
@@ -36,7 +36,7 @@ $TOKEN ||= fetch_token() or
                   -verbose => 99, -sections => "AUTHENTICATION");
 
 while (1) {
-    open(my $recv, "-|", "$FindBin::Bin/tgrecv --auto-offset --timeout 100000");
+    open(my $recv, "-|", "$FindBin::Bin/tgrecv --token $TOKEN --auto-offset --timeout 100000");
     foreach my $update (@{decode_json <$recv>}) {
         $logger->debug(sprintf "Update %s", Dumper($update));
         my $text = $update->{'message'}{'text'};
@@ -53,7 +53,7 @@ while (1) {
         close($progr);
 
         if ($response) {
-            open(my $send, "|-", "$FindBin::Bin/tgsend $chatid");
+            open(my $send, "|-", "$FindBin::Bin/tgsend --token $TOKEN $chatid");
             print $send $response;
             close($send);
         } else {
-- 
cgit v1.2.3