Report crypto library version in 'rabbitmq-diagnostics status'

Just like we do in the node startup banner.

Closes #4799.

(cherry picked from commit 2b80ed5)

deps/rabbit/src/rabbit.erl

@@ -678,11 +678,16 @@ maybe_print_boot_progress(true, IterationsLeft) ->
 
 status() ->
     Version = base_product_version(),
+    CryptoLibInfo = case crypto:info_lib() of
+        [Tuple] when is_tuple(Tuple) -> Tuple;
+        Tuple   when is_tuple(Tuple) -> Tuple
+    end,
     S1 = [{pid,                  list_to_integer(os:getpid())},
           %% The timeout value used is twice that of gen_server:call/2.
           {running_applications, rabbit_misc:which_applications()},
           {os,                   os:type()},
           {rabbitmq_version,     Version},
+          {crypto_lib_info,      CryptoLibInfo},
           {erlang_version,       erlang:system_info(system_version)},
           {memory,               rabbit_vm:memory()},
           {alarms,               alarms()},

deps/rabbitmq_cli/lib/rabbitmq/cli/ctl/commands/status_command.ex

@@ -94,6 +94,7 @@ defmodule RabbitMQ.CLI.Ctl.Commands.StatusCommand do
       "RabbitMQ version: #{m[:rabbitmq_version]}",
       "Node name: #{node_name}",
       "Erlang configuration: #{m[:erlang_version]}",
+      "Crypto library: #{m[:crypto_lib_version]}",
       "Erlang processes: #{m[:processes][:used]} used, #{m[:processes][:limit]} limit",
       "Scheduler run queue: #{m[:run_queue]}",
       "Cluster heartbeat timeout (net_ticktime): #{m[:net_ticktime]}"
@@ -204,13 +205,19 @@ defmodule RabbitMQ.CLI.Ctl.Commands.StatusCommand do
   #
 
   defp result_map(result) do
+    crypto_lib_version = case Keyword.get(result, :crypto_lib_info) do
+      {_, _, version} -> version
+      other           -> other
+    end
+
     %{
       os: os_name(Keyword.get(result, :os)),
       pid: Keyword.get(result, :pid),
       product_name: Keyword.get(result, :product_name) |> to_string,
       product_version: Keyword.get(result, :product_version) |> to_string,
       rabbitmq_version: Keyword.get(result, :rabbitmq_version) |> to_string,
       erlang_version: Keyword.get(result, :erlang_version) |> to_string |> String.trim_trailing,
+      crypto_lib_version: crypto_lib_version,
       uptime: Keyword.get(result, :uptime),
       is_under_maintenance: Keyword.get(result, :is_under_maintenance, false),
       processes: Enum.into(Keyword.get(result, :processes), %{}),