diff options
| author | Alexandru Scvortov <alexandru@rabbitmq.com> | 2010-09-08 16:28:16 +0100 |
|---|---|---|
| committer | Alexandru Scvortov <alexandru@rabbitmq.com> | 2010-09-08 16:28:16 +0100 |
| commit | 102e9dcfd59ce8dd280f21242cbe41f5912d3750 (patch) | |
| tree | f1f4d2e9d180d538de4d61378139ea4ead711ea2 /src | |
| parent | 7ca8693279a250360c448e9d3a68ef0d01751442 (diff) | |
| download | rabbitmq-server-git-102e9dcfd59ce8dd280f21242cbe41f5912d3750.tar.gz | |
refactoring
Diffstat (limited to 'src')
| -rw-r--r-- | src/rabbit_networking.erl | 21 |
1 files changed, 11 insertions, 10 deletions
diff --git a/src/rabbit_networking.erl b/src/rabbit_networking.erl index a1c8a226a6..a2ddfb1490 100644 --- a/src/rabbit_networking.erl +++ b/src/rabbit_networking.erl @@ -117,16 +117,17 @@ boot_ssl() -> | SslOptsConfig] end, % In R13B04 and R14A (at least), rc4 is incorrectly implemented. - CSs = lists:filter( - fun ({_, rc4_128, _}) -> - false; - (S) when is_list(S) -> - string:str(S, "RC4") =:= 0; - (_) -> - true - end, - proplists:get_value(ciphers, SslOpts, ssl:cipher_suites())), - SslOpts1 = [{ciphers, CSs} | [{K, V} || {K, V} <- SslOpts, K =/= ciphers]], + CipherSuites = proplists:get_value(ciphers, SslOpts, ssl:cipher_suites()), + FilteredCipherSuites = lists:filter( + fun ({_, rc4_128, _}) -> + false; + (S) when is_list(S) -> + string:str(S, "RC4") =:= 0; + (_) -> + true + end, CipherSuites), + SslOpts1 = [{ciphers, FilteredCipherSuites} + | [{K, V} || {K, V} <- SslOpts, K =/= ciphers]], [start_ssl_listener(Host, Port, SslOpts1) || {Host, Port} <- SslListeners], ok end. |