Fallback bind-addresses for Tox UDP.

1 files changed, 10 insertions, 7 deletions

diff --git a/examples/dhtd.hs b/examples/dhtd.hs
index 6756b14b..04b8c064 100644
--- a/examples/dhtd.hs
+++ b/examples/dhtd.hs
@@ -1055,7 +1055,7 @@ readExternals nodeAddr vars = do
 
 data Options = Options
     { portbt    :: String
-    , porttox   :: String
+    , porttox   :: [String]
     , portxmpp  :: String -- client-to-server
     , portxmppS :: String -- server-to-server
     , ip6bt     :: Bool
@@ -1076,7 +1076,7 @@ data Options = Options
 sensibleDefaults :: Options
 sensibleDefaults = Options
     { portbt      = "6881"
-    , porttox     = "33445"
+    , porttox     = ["33445"]
     , portxmpp    = "5222"
     , portxmppS   = "5269"
     , ip6bt       = True
@@ -1107,10 +1107,13 @@ parseArgs ("-v":tags:args) opts     = parseArgs args opts
     }
 parseArgs (arg:args) opts          = parseArgs args opts
     { portbt    = fromMaybe (portbt opts)  $ Prelude.lookup "bt"  ports
-    , porttox   = fromMaybe (porttox opts) $ Prelude.lookup "tox" ports
+    , porttox   = fromMaybe (porttox opts) $ lookupAll "tox" ports
     , portxmpp  = fromMaybe (portxmpp opts) $ Prelude.lookup "xmpp" ports
     , portxmppS = fromMaybe (portxmppS opts) $ Prelude.lookup "xmpp.s2s" ports }
  where
+    lookupAll seeking kvs = case filter (\(k,v) -> k == seeking) kvs of
+        [] -> Nothing
+        xs -> Just $ map snd xs
     ports = map ( (dropWhile (==',') *** dropWhile (=='='))
                 . break (=='=') )
                 $ groupBy (const (/= ',')) arg
@@ -1298,17 +1301,17 @@ initTox :: Options
                  , IO [SockAddr]
                  , [SockAddr])
 initTox opts ssvar keysdb mbxmpp invc = case porttox opts of
-        "" -> return (Nothing,return (), Map.empty, return [],[])
+        [""] -> return (Nothing,return (), Map.empty, return [],[])
         toxport -> do
-            addrTox <- getBindAddress toxport (ip6tox opts)
             dput XMisc $ "Supplied key: " ++ show (fmap (Tox.key2id . toPublic) (dhtkey opts))
             tox <- Tox.newTox keysdb
-                              addrTox
+                              toxport
                               (case mbxmpp of
                                 Nothing   -> \_ _ _ -> return ()
                                 Just xmpp -> onNewToxSession xmpp ssvar invc)
                               (dhtkey opts)
                               (\_ _ -> return ()) -- TODO: TCP relay send
+            -- addrTox <- getBindAddress toxport (ip6tox opts)
             (quitTox, toxStrap4, toxStrap6) <- Tox.forkTox tox True
 
             toxSearches <- atomically $ newTVar Map.empty
@@ -1491,7 +1494,7 @@ initTox opts ssvar keysdb mbxmpp invc = case porttox opts of
                 ips :: IO [SockAddr]
                 ips = readExternals Tox.nodeAddr [ Tox.routing4 $ Tox.toxRouting tox
                                                  , Tox.routing6 $ Tox.toxRouting tox ]
-            return (Just tox, quitTox, dhts, ips, [addrTox])
+            return (Just tox, quitTox, dhts, ips, [Tox.toxBindAddress tox])
 
 initJabber :: Options
               -> TVar (Map.Map Uniq24 AggregateSession)