Updated tls_server_negotiate

diff --git a/.gitignore b/.gitignore
index 9a7264ba7a8ef241e98efefab2b0f0b0cdfdea34..f25bea8f08817667222411777f3f70194a84c346 100644 (file)
--- a/.gitignore
+++ b/.gitignore
@@ -3,4 +3,5 @@ key.pem
 site
 *.bak
 clients_db.pl
-site.pl
\ No newline at end of file
+site.pl
+scryer-prolog
\ No newline at end of file

diff --git a/cert.pl b/cert.pl
index c5bf3ee8ea14d585bbced9d46f25505d26009ac9..1963a85c35be077e44dd99f8e69210ef855c7a67 100644 (file)
--- a/cert.pl
+++ b/cert.pl
@@ -69,7 +69,7 @@ create_new_certificate(Context) :-
 with_tls_connection(S0, Context, Kont) :-
     setup_call_cleanup(
         ( log_msg("tls-conn", "Handshaking TLS~n", []),
-          tls_server_negotiate(Context, S0, S, ClientCert),
+          tls_server_negotiate(Context, S0, S, [client_certificate(ClientCert)]),
           log_msg("tls-conn", "Client cert ~q~n", [ClientCert])
         ),
         call(Kont, S, ClientCert),