get_remote_connection_pid.erl

do_get_remote_pid_tcp(Socket) when is_port(Socket) →
    do_get_remote_pid_tcp(inet:sockname(Socket));
do_get_remote_pid_tcp(SockName) →
    AllPorts = [{P, erlang:port_info(P)} || P ← erlang:ports()],
    [Pid] = [
        proplists:get_value(connected, I)
    || {P, I} ← AllPorts,
        proplists:get_value(name, I) ≡ "tcp_inet",
        inet:peername(P) ≡ SockName],
    Pid.

-include_lib("ssl/src/ssl_connection.hrl").

do_get_remote_pid_tls(Socket) →
    %% This gives us the pid of the sslsocket process.
    %% We must introspect this process in order to retrieve the connection pid.
    TLSPid = do_get_remote_pid_tcp(ssl:sockname(Socket)),
    {_, #state{user_application={_, UserPid}}} = sys:get_state(TLSPid),
    UserPid.