Command to view individual onion route.

1 files changed, 10 insertions, 0 deletions

diff --git a/dht/examples/dhtd.hs b/dht/examples/dhtd.hs
index eb31543a..761b7140 100644
--- a/dht/examples/dhtd.hs
+++ b/dht/examples/dhtd.hs
@@ -796,6 +796,16 @@ clientSession s@Session{..} sock cnum h = do
             tcpm <- requestTCPMode onionRouter (Just True)
             hPutClient h $ "Onion routes: " ++ if tcpm then "TCP." else "UDP."
 
+        ("o", s) | n <- strp $ map toLower s
+                 , all isDigit n
+                     -> cmd0 $ do
+            case Tox.RouteId <$> readMaybe n of
+                Just r -> do
+                    monion <- lookupRoute onionRouter (error "lookupRoute used NodeInfo argument!") r
+                    case monion of
+                        Nothing -> hPutClient h $ "No route yet for " ++ show r
+                        Just onion -> hPutClient h $ unlines $ showRoute "  " onion
+                Nothing -> hPutClient h "syntax error."
         ("g", s) | Just DHT{..} <- Map.lookup netname dhts
                     -> cmd0 $ do
                         -- arguments: method