Add sock:peercert/1

joedevivo · Sep 1, 2016 · 63c9460 · 63c9460
1 parent 049f3f3
commit 63c9460
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/sock.erl b/src/sock.erl
@@ -14,6 +14,7 @@
          recv/3,
          close/1,
          peername/1,
+         peercert/1,
          setopts/2
         ]).
 
@@ -61,6 +62,11 @@ peername({ssl, Socket}) ->
 peername({gen_tcp, Socket}) ->
     inet:peername(Socket).
 
+peercert({ssl, Socket}) ->
+    ssl:peercert(Socket);
+peercert({gen_tcp, _Socket}) ->
+    {error, unsupported}.
+
 setopts({ssl, Socket}, Opts) ->
     ssl:setopts(Socket, Opts);
 setopts({gen_tcp, Socket}, Opts) ->