mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

webapp: Switched to using the same multicast IP address that avahi uses.

Browse source
This commit is contained in:
Joey Hess 2012-10-22 15:50:30 -04:00
parent f8cc979f6e
commit 95f17ed0de
2 changed files with 6 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Assistant/Pairing/Network.hs
View file

@ -31,11 +31,12 @@ import Control.Concurrent
pairingPort :: PortNumber
pairingPort = 55556
{- This is the All Hosts multicast group, which should reach all hosts
- on the same network segment. -}
{- Goal: Reach all hosts on the same network segment.
- Method: Use same address that avahi uses. Other broadcast addresses seem
- to not be let through some routers. -}
multicastAddress :: SomeAddr -> HostName
multicastAddress (IPv4Addr _) = "224.0.0.1"
multicastAddress (IPv6Addr _) = "ff02::1"
multicastAddress (IPv4Addr _) = "224.0.0.251"
multicastAddress (IPv6Addr _) = "ff02::fb"
{- Multicasts a message repeatedly on all interfaces, with a 2 second
- delay between each transmission. The message is repeated forever