WIP: Command to publish a toxid on a given node.

1 files changed, 17 insertions, 1 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 6529e746..bd2df9db 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -706,7 +706,23 @@ main = do
                     , dhtParseId  = readEither :: String -> Either String Tox.NodeId
                     , dhtSearches = toxSearches
                     , dhtFallbackNodes = return []
-                    , dhtAnnouncables = Map.empty -- TODO
+                    , dhtAnnouncables = Map.fromList
+                                    [ ("toxid", DHTAnnouncable { announceSendData = \(pubkey,token) -> \case
+                                                                    Just ni ->
+                                                                        Tox.putRendezvous
+                                                                            (Tox.onionTimeout tox)
+                                                                            (Tox.toxCryptoKeys tox)
+                                                                            (Tox.toxOnion tox)
+                                                                            pubkey
+                                                                            token
+                                                                            ni
+                                                                    Nothing -> return Nothing
+                                                               , announceParseData = \str tokstr ->
+                                                                    return $ do
+                                                                        pubkey <- Tox.id2key <$> readEither str
+                                                                        tok <- readEither tokstr
+                                                                        Right (pubkey,tok)
+                                                               })]
                     }
                 dhts = Map.fromList $
                         ("tox4", toxDHT Tox.routing4)