diff options
author | joe <joe@jerkface.net> | 2018-06-07 20:51:44 -0400 |
---|---|---|
committer | joe <joe@jerkface.net> | 2018-06-07 20:51:44 -0400 |
commit | 1b7b664d2b3ebbd86511b085e881c7223adcf334 (patch) | |
tree | 4a3cedf1c8074945f263a64cc3ee5a7d77f9b868 /src/Network | |
parent | 3948b015e5bd1537154213cf115c4b88e95cdefe (diff) |
Parse ip command output to determine broadcast addresses.
Diffstat (limited to 'src/Network')
-rw-r--r-- | src/Network/Tox.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Network/Tox.hs b/src/Network/Tox.hs index a9b4f2e6..5bd23da8 100644 --- a/src/Network/Tox.hs +++ b/src/Network/Tox.hs | |||
@@ -493,8 +493,10 @@ forkTox tox = do | |||
493 | -- TODO: Don't export this. | 493 | -- TODO: Don't export this. |
494 | announceToLan :: Socket -> NodeId -> IO () | 494 | announceToLan :: Socket -> NodeId -> IO () |
495 | announceToLan sock nid = do | 495 | announceToLan sock nid = do |
496 | addrs <- broadcastAddrs | ||
497 | forM_ addrs $ \addr -> do | ||
496 | (broadcast_info:_) <- getAddrInfo (Just defaultHints { addrFlags = [AI_NUMERICHOST], addrSocketType = Datagram }) | 498 | (broadcast_info:_) <- getAddrInfo (Just defaultHints { addrFlags = [AI_NUMERICHOST], addrSocketType = Datagram }) |
497 | (Just "192.168.1.255") -- TODO: Detect broadcast address. | 499 | (Just addr) -- TODO: Detect broadcast address. |
498 | (Just "33445") | 500 | (Just "33445") |
499 | let broadcast = addrAddress broadcast_info | 501 | let broadcast = addrAddress broadcast_info |
500 | bs = S.runPut $ DHT.putMessage (DHT.DHTLanDiscovery nid) | 502 | bs = S.runPut $ DHT.putMessage (DHT.DHTLanDiscovery nid) |