Merge pull request #89 from edwintorok/log-ssl-accept-error

Log more details about SSL accept error

Author: vouillon

src/server/ocsigen_server.ml

@@ -992,6 +992,11 @@ let rec wait_connection use_ssl port socket =
            (fun e ->
               Ocsigen_messages.unexpected_exception e
                 "Server.wait_connection (handle connection)";
+              (match e with
+              | Ssl.Accept_error(Ssl.Error_ssl|Ssl.Error_syscall) ->
+                Ocsigen_messages.warning
+                  ("Last SSL error: " ^ Ssl.get_error_string ())
+              | _ -> ());
               return ())
          >>= fun () ->
          Lwt_log.ign_info ~section "** CLOSE";