1 files changed, 58 insertions, 0 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index badea2b1..67dece2e 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -16,6 +16,8 @@
 {-# LANGUAGE TypeFamilies              #-}
 {-# LANGUAGE TypeOperators             #-}
 
+module Main where
+
 import Control.Arrow
 import Control.Applicative
 import Control.Concurrent.STM
@@ -525,6 +527,16 @@ clientSession s@Session{..} sock cnum h = do
                                          , ("node-id", show $ thisNode bkts)
                                          , ("network", netname) ]
 
+        --  TODO: online documentation.
+        --
+        --  k - manage key-pairs
+        --
+        --      k                  (list keys)
+        --      k gen              (generate new key and list keys)
+        --      k add <secret-key> (input a specific secret key)
+        --      k del <secret-key>
+        --      k secrets          (list key pairs, including secret keys)
+
         ("k", s) | ""           <- strp s -> cmd0 $ do
                         ks <- atomically $ readTVar userkeys
                         hPutClient h $ unlines $ map (mappend "  " . show . Tox.key2id . snd) ks
@@ -607,6 +619,30 @@ clientSession s@Session{..} sock cnum h = do
                               goQuery
                               $ Map.lookup method dhtQuery
 
+        -- TODO: Online help.
+        --
+        -- p - put/publish a single given datum on a single given node.
+        --
+        --         When destination address (node-addr) is optional, it's absense means to
+        --         publish information in the local node's own database.
+        --
+        --         Bittorrent: (peer) publish yourself as peer in swarm.
+        --                     (port) set your current bittorrent listen port.
+        --
+        --             p peer <infohash> <token> [node-addr]
+        --
+        --             p port <num>
+        --
+        --         Tox: (toxid) publish a rendezvous onion route to dht node.
+        --              (friend) send a friend-request over a rendezvous point.
+        --              (dhtkey) send your dht node-id over a rendezvous point.
+        --
+        --             p toxid <key> <token> <node-addr>
+        --
+        --             p friend <key> <nospam> <rendezvous-addr> <text>
+        --
+        --             p dhtkey <key> - <rendezvous-addr>
+
         ("p", s) | Just DHT{..} <- Map.lookup netname dhts
                     -> cmd0 $ do
                         -- arguments: method
@@ -635,6 +671,28 @@ clientSession s@Session{..} sock cnum h = do
                               goTarget
                               $ Map.lookup method dhtAnnouncables
 
+        -- TODO: Online documentation.
+        --
+        -- a - announce, like put/publish but automatically selects nodes to publish on
+        --     and periodically refreshes them.
+        --
+        --     The method name is preceded with a + to start or a - to stop a given
+        --     recurring publication.
+        --
+        --     BitTorrent: (peer) Every minute, announce you are participating
+        --                        in a torrent swarm.
+        --
+        --         a +peer <infohash> a -peer <infohash>
+        --
+        --     Tox: (toxid) Every 15 seconds, announce your tox identity to the
+        --                  DHT so friends can find you.
+        --
+        --         a +toxid <key>
+        --         a -toxid <key>
+        --
+        --       These probably don't work:
+        --         (experimental) a +friend <nospam> <text>
+        --         (experimental) a +dhtkey
         ("a", s) | Just DHT{..} <- Map.lookup netname dhts
                  , not (null s)
                     -> cmd0 $ do