ghoseb

(ns test)

(defn try-times
  "Try executing a thunk `retries` times."
  [retries thunk]
  (if-let [res (try
                 [(thunk)]
                 (catch Exception e ; can be any exception
                   (when (zero? retries)
                     (throw e))))]

michaelklishin

[
  {ssl, [{versions, ['tlsv1.2', 'tlsv1.1', tlsv1]},
         {ciphers,  [{dhe_rsa,aes_256_cbc,sha}]}
        ]},

  {rabbit, [
     {ssl_listeners, [5672]},
     {tcp_listeners, []},
     {ssl_options, [{cacertfile,"/path/to/cacert.pem"},
                    {certfile,"/path/to/server.pem"},

michaelklishin

%% Disable SSLv3.0 support
[
 {ssl, [{versions, ['tlsv1.2', 'tlsv1.1', tlsv1]}]},
 {rabbit, [
           {ssl_listeners, [5671]},
           {ssl_options, [{cacertfile,"/path/to/ca_certificate.pem"},
                          {certfile,  "/path/to/server_certificate.pem"},
                          {keyfile,   "/path/to/server_key.pem"},
                          {versions, ['tlsv1.2', 'tlsv1.1', tlsv1]}
                         ]}