diff options
author | Alexey Shchepin <alexey@process-one.net> | 2006-01-13 01:55:20 +0000 |
---|---|---|
committer | Alexey Shchepin <alexey@process-one.net> | 2006-01-13 01:55:20 +0000 |
commit | 6bb510d99e4ad29dbf85b4ffec9d1d8c6516b4ba (patch) | |
tree | 1fe149f5ee097f2770c8e4693bd833a0e2724b46 /src/tls | |
parent | Native MySQL support. The Erlang MySQL module is needed: (diff) |
* src/ejabberd_service.erl: Bugfix
* src/ejabberd_receiver.erl: Rewritten to use {active, once} mode
for socket
* src/ejabberd_c2s.erl: Update
* src/ejabberd_listener.erl: Likewise
* src/ejabberd_s2s_in.erl: Likewise
* src/ejabberd_s2s_out.erl: Likewise
* src/ejabberd_service.erl: Likewise
* src/shaper.erl: Likewise
* src/tls/tls.erl: Likewise
* src/web/ejabberd_http.erl: Likewise
SVN Revision: 483
Diffstat (limited to 'src/tls')
-rw-r--r-- | src/tls/tls.erl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/tls/tls.erl b/src/tls/tls.erl index 7290160e1..7c7d07bad 100644 --- a/src/tls/tls.erl +++ b/src/tls/tls.erl @@ -16,6 +16,8 @@ tcp_to_tls/2, tls_to_tcp/1, send/2, recv/2, recv/3, recv_data/2, + setopts/2, + controlling_process/2, close/1, get_peer_certificate/1, get_verify_result/1, @@ -175,6 +177,12 @@ send(#tlssock{tcpsock = TCPSocket, tlsport = Port}, Packet) -> end. +setopts(#tlssock{tcpsock = TCPSocket}, Opts) -> + inet:setopts(TCPSocket, Opts). + +controlling_process(#tlssock{tcpsock = TCPSocket}, Pid) -> + gen_tcp:controlling_process(TCPSocket, Pid). + close(#tlssock{tcpsock = TCPSocket, tlsport = Port}) -> gen_tcp:close(TCPSocket), port_close(Port). |