From d112701ce72b090b79f101f6a2d0ccac7440762e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sat, 28 Jun 2025 21:21:37 +0200
Subject: Discovery tunnel

Changelog: Support tunnel for peers in discovery service
---
 main/Test.hs | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'main/Test.hs')

diff --git a/main/Test.hs b/main/Test.hs
index fa8501e..62c7229 100644
--- a/main/Test.hs
+++ b/main/Test.hs
@@ -316,6 +316,7 @@ commands = map (T.pack *** id)
     , ("chatroom-leave", cmdChatroomLeave)
     , ("chatroom-message-send", cmdChatroomMessageSend)
     , ("discovery-connect", cmdDiscoveryConnect)
+    , ("discovery-tunnel", cmdDiscoveryTunnel)
     ]
 
 cmdStore :: Command
@@ -970,3 +971,10 @@ cmdDiscoveryConnect = do
     Just dgst <- return $ readRefDigest $ encodeUtf8 tref
     Just RunningServer {..} <- gets tsServer
     discoverySearch rsServer dgst
+
+cmdDiscoveryTunnel :: Command
+cmdDiscoveryTunnel = do
+    [ tvia, ttarget ] <- asks tiParams
+    via <- getPeer tvia
+    Just target <- return $ readRefDigest $ encodeUtf8 ttarget
+    liftIO $ discoverySetupTunnel via target
-- 
cgit v1.2.3