From 06a2d636bce7a0494b960eae574fc092d25fcd7a Mon Sep 17 00:00:00 2001 From: Andrew Thompson Date: Fri, 6 Apr 2012 13:14:54 -0400 Subject: Add sockname/1 to the TCP and SSL transports --- src/cowboy_ssl_transport.erl | 9 ++++++++- src/cowboy_tcp_transport.erl | 9 ++++++++- 2 files changed, 16 insertions(+), 2 deletions(-) diff --git a/src/cowboy_ssl_transport.erl b/src/cowboy_ssl_transport.erl index 8074209..3b130f0 100644 --- a/src/cowboy_ssl_transport.erl +++ b/src/cowboy_ssl_transport.erl @@ -24,7 +24,7 @@ %% @see ssl -module(cowboy_ssl_transport). -export([name/0, messages/0, listen/1, accept/2, recv/3, send/2, setopts/2, - controlling_process/2, peername/1, close/1]). + controlling_process/2, peername/1, close/1, sockname/1]). %% @doc Name of this transport API, ssl. -spec name() -> ssl. @@ -140,6 +140,13 @@ peername(Socket) -> close(Socket) -> ssl:close(Socket). +%% @doc Get the local address and port of a socket +%% @see ssl:sockname/1 +-spec sockname(ssl:sslsocket()) + -> {ok, {inet:ip_address(), inet:port_number()}} | {error, atom()}. +sockname(Socket) -> + ssl:sockname(Socket). + %% Internal. -spec require(list(module())) -> ok. diff --git a/src/cowboy_tcp_transport.erl b/src/cowboy_tcp_transport.erl index 82d193b..f197dd1 100644 --- a/src/cowboy_tcp_transport.erl +++ b/src/cowboy_tcp_transport.erl @@ -20,7 +20,7 @@ -module(cowboy_tcp_transport). -export([name/0, messages/0, listen/1, accept/2, recv/3, send/2, setopts/2, - controlling_process/2, peername/1, close/1]). + controlling_process/2, peername/1, close/1, sockname/1]). %% @doc Name of this transport API, tcp. -spec name() -> tcp. @@ -104,3 +104,10 @@ peername(Socket) -> -spec close(inet:socket()) -> ok. close(Socket) -> gen_tcp:close(Socket). + +%% @doc Get the local address and port of a socket +%% @see inet:sockname/1 +-spec sockname(inet:socket()) + -> {ok, {inet:ip_address(), inet:port_number()}} | {error, atom()}. +sockname(Socket) -> + inet:sockname(Socket). -- cgit v1.2.3