Add Socket SSL column to management UI

(cherry picked from commit 09c546a)

Author: razvanphp

deps/rabbitmq_management/priv/www/js/tmpl/overview.ejs

@@ -252,6 +252,7 @@
 <% } %>
     <th>Bound to</th>
     <th>Port</th>
+    <th>SSL</th>
   </tr>
   <%
       for (var i = 0; i < overview.listeners.length; i++) {
@@ -264,6 +265,7 @@
 <% } %>
     <td><%= listener.ip_address %></td>
     <td><%= listener.port %></td>
+    <td class="c"><%= fmt_boolean(listener.ssl || false) %></td>
   </tr>
   <% } %>
 </table>

deps/rabbitmq_management_agent/src/rabbit_mgmt_format.erl

@@ -279,13 +279,22 @@ listener(#listener{node = Node, protocol = Protocol,
      {protocol, Protocol},
      {ip_address, ip(IPAddress)},
      {port, Port},
-     {socket_opts, format_socket_opts(Opts)}].
+     {socket_opts, format_socket_opts(Opts)},
+     {ssl, is_ssl_socket(Opts)}
+    ].
 
 web_context(Props0) ->
     SslOpts = pget(ssl_opts, Props0, []),
     Props   = proplists:delete(ssl_opts, Props0),
     [{ssl_opts, format_socket_opts(SslOpts)} | Props].
 
+is_ssl_socket(Opts) ->
+    S = proplists:get_value(socket_opts, Opts, Opts),
+    (proplists:get_value(ssl_opts, S, undefined) =/= undefined) orelse
+    (proplists:get_value(cacertfile, S, undefined) =/= undefined) orelse
+    (proplists:get_value(certfile, S, undefined) =/= undefined) orelse
+    (proplists:get_value(keyfile, S, undefined) =/= undefined).
+
 format_socket_opts(Opts) ->
     format_socket_opts(Opts, []).