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

Log more details about SSL accept error
ocsigen · Feb 9, 2016 · 1667bd6 · 1667bd6
2 parents ddee8bb + 8592b6c
commit 1667bd6
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/src/server/ocsigen_server.ml b/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";