diff options
author | Henrik Nord <[email protected]> | 2014-09-30 09:39:51 +0200 |
---|---|---|
committer | Henrik Nord <[email protected]> | 2014-09-30 09:39:51 +0200 |
commit | 88d5c0edbd08e069bc20cf13fa90bca59eb43e86 (patch) | |
tree | bef481b72ffa142b7a9fb1ee9e5be969e3e7093e /lib/orber/src/orber_socket.erl | |
parent | 6b240f6d882a10707ff2dea4e171a2d9599b3746 (diff) | |
parent | ee24a87a779d8d10461cadd47b3eb276e70baef8 (diff) | |
download | otp-88d5c0edbd08e069bc20cf13fa90bca59eb43e86.tar.gz otp-88d5c0edbd08e069bc20cf13fa90bca59eb43e86.tar.bz2 otp-88d5c0edbd08e069bc20cf13fa90bca59eb43e86.zip |
Merge branch 'maint-17' into maint
Conflicts:
OTP_VERSION
lib/ssh/test/ssh_connection_SUITE.erl
Diffstat (limited to 'lib/orber/src/orber_socket.erl')
-rw-r--r-- | lib/orber/src/orber_socket.erl | 41 |
1 files changed, 39 insertions, 2 deletions
diff --git a/lib/orber/src/orber_socket.erl b/lib/orber/src/orber_socket.erl index c8d2f0636b..4507d90cce 100644 --- a/lib/orber/src/orber_socket.erl +++ b/lib/orber/src/orber_socket.erl @@ -37,7 +37,8 @@ -export([start/0, connect/4, listen/3, listen/4, accept/2, accept/3, write/3, controlling_process/3, close/2, peername/2, sockname/2, peerdata/2, peercert/2, sockdata/2, setopts/3, - clear/2, shutdown/3, post_accept/2, post_accept/3]). + clear/2, shutdown/3, post_accept/2, post_accept/3, + get_ip_family_opts/1]). %%----------------------------------------------------------------- %% Internal exports @@ -491,4 +492,40 @@ check_options(ssl, Options, Generation) -> end. - +%%----------------------------------------------------------------- +%% Check IP Family. +get_ip_family_opts(Host) -> + case inet:parse_address(Host) of + {ok, {_,_,_,_}} -> + [inet]; + {ok, {_,_,_,_,_,_,_,_}} -> + [inet6]; + {error, einval} -> + check_family_for_name(Host, orber_env:ip_version()) + end. + +check_family_for_name(Host, inet) -> + case inet:getaddr(Host, inet) of + {ok, _Address} -> + [inet]; + {error, _} -> + case inet:getaddr(Host, inet6) of + {ok, _Address} -> + [inet6]; + {error, _} -> + [inet] + end + end; +check_family_for_name(Host, inet6) -> + case inet:getaddr(Host, inet6) of + {ok, _Address} -> + [inet6]; + {error, _} -> + case inet:getaddr(Host, inet) of + {ok, _Address} -> + [inet]; + {error, _} -> + [inet6] + end + end. + |