1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
defmodule SNet.Addr do
def get_if_inet4 do
{:ok, ifs} = :inet.getifaddrs
for {_, opts} <- ifs,
{:addr, addr} <- opts,
tuple_size(addr) == 4,
addr != {127,0,0,1}
do
addr
end
end
def get_pub_inet4 do
Application.ensure_all_started(:inets)
Application.ensure_all_started(:ssl)
{:ok, {_, _, body}} = :httpc.request('http://api.ipify.org')
{:ok, addr} = :inet.parse_address body
addr
end
def get_all_inet4 do
addrset = for x <- get_if_inet4(), into: %MapSet{}, do: x
addrset = MapSet.put(addrset, get_pub_inet4())
MapSet.to_list addrset
end
end
|
