aboutsummaryrefslogtreecommitdiffstats
path: root/src/ranch_ssl.erl
diff options
context:
space:
mode:
authorGeoff Cant <[email protected]>2013-04-28 01:15:45 -0700
committerGeoff Cant <[email protected]>2013-04-28 01:15:45 -0700
commit3cc134ef693e6c8184d82635faa195d1010603c7 (patch)
tree8d42ec8bca4e84e5051d302315afb38f3685d6d0 /src/ranch_ssl.erl
parent138b8d788ca056dcfed1f3092531020481ffa345 (diff)
downloadranch-3cc134ef693e6c8184d82635faa195d1010603c7.tar.gz
ranch-3cc134ef693e6c8184d82635faa195d1010603c7.tar.bz2
ranch-3cc134ef693e6c8184d82635faa195d1010603c7.zip
Allow ranch_ssl to use DER cert/key/ca options.
The Erlang SSL library allows keys, certs and cacerts to be passed either as DER encoded binaries or in PEM encoded files. This patch allows ranch_ssl to be configured in either manner.
Diffstat (limited to 'src/ranch_ssl.erl')
-rw-r--r--src/ranch_ssl.erl14
1 files changed, 8 insertions, 6 deletions
diff --git a/src/ranch_ssl.erl b/src/ranch_ssl.erl
index 3c2d6fb..6fb2ce8 100644
--- a/src/ranch_ssl.erl
+++ b/src/ranch_ssl.erl
@@ -88,25 +88,27 @@ messages() -> {ssl, ssl_closed, ssl_error}.
%% ranch:get_port/1 instead.
%%
%% @see ssl:listen/2
--spec listen([{backlog, non_neg_integer()} | {cacertfile, string()}
+-spec listen([{backlog, non_neg_integer()} | {cacerts, [Der::binary()]}
+ | {cacertfile, string()} | {cert, Der::binary()}
| {certfile, string()} | {ciphers, [ssl:erl_cipher_suite()] | string()}
| {fail_if_no_peer_cert, boolean()}
- | {ip, inet:ip_address()} | {keyfile, string()}
+ | {ip, inet:ip_address()} | {key, Der::binary()} | {keyfile, string()}
| {next_protocols_advertised, [binary()]} | {nodelay, boolean()}
| {password, string()} | {port, inet:port_number()}
| {verify, ssl:verify_type()}])
-> {ok, ssl:sslsocket()} | {error, atom()}.
listen(Opts) ->
ranch:require([crypto, public_key, ssl]),
- {certfile, _} = lists:keyfind(certfile, 1, Opts),
+ true = lists:keymember(cert, 1, Opts)
+ orelse lists:keymember(certfile, 1, Opts),
Opts2 = ranch:set_option_default(Opts, backlog, 1024),
%% We set the port to 0 because it is given in the Opts directly.
%% The port in the options takes precedence over the one in the
%% first argument.
ssl:listen(0, ranch:filter_options(Opts2,
- [backlog, cacertfile, certfile, ciphers, fail_if_no_peer_cert, ip,
- keyfile, next_protocols_advertised, nodelay, password, port,
- raw, verify],
+ [backlog, cacerts, cacertfile, cert, certfile, ciphers,
+ fail_if_no_peer_cert, ip, key, keyfile, next_protocols_advertised,
+ nodelay, password, port, raw, verify],
[binary, {active, false}, {packet, raw},
{reuseaddr, true}, {nodelay, true}])).