X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/8c841b4884e87972e01ac76665e05108f9c249d8..d22c1f00ed619c221dc9891c86c5ced202a9ee77:/src/openssl.sml

diff --git a/src/openssl.sml b/src/openssl.sml
index 9ebb959..3f3b292 100644
--- a/src/openssl.sml
+++ b/src/openssl.sml
@@ -231,29 +231,29 @@ fun writeString (bio, s) =
     (writeInt (bio, size s);
      writeString' (bio, s))
 
-fun context (chain, key, root) =
+fun context printErr (chain, key, root) =
     let
 	val context = F_OpenSSL_SML_CTX_new.f' (F_OpenSSL_SML_SSLv23_method.f' ())
     in
 	if C.Ptr.isNull' context then
-	    (ssl_err "Error creating SSL context";
+	    (if printErr then ssl_err "Error creating SSL context" else ();
 	     raise OpenSSL "Can't create SSL context")
 	else if F_OpenSSL_SML_use_certificate_chain_file.f' (context,
 							     ZString.dupML' chain)
 		= 0 then
-	    (ssl_err "Error using certificate chain";
+	    (if printErr then ssl_err "Error using certificate chain" else ();
 	     F_OpenSSL_SML_CTX_free.f' context;
 	     raise OpenSSL "Can't load certificate chain")
 	else if F_OpenSSL_SML_use_PrivateKey_file.f' (context,
 						      ZString.dupML' key)
 		= 0 then
-	    (ssl_err "Error using private key";
+	    (if printErr then ssl_err "Error using private key" else ();
 	     F_OpenSSL_SML_CTX_free.f' context;
 	     raise OpenSSL "Can't load private key")
 	else if F_OpenSSL_SML_load_verify_locations.f' (context,
 							ZString.dupML' root,
 							C.Ptr.null') = 0 then
-	    (ssl_err "Error loading trust store";
+	    (if printErr then ssl_err "Error loading trust store" else ();
 	     F_OpenSSL_SML_CTX_free.f' context;
 	     raise OpenSSL "Can't load trust store")
 	else