From 2b7cb807c2e977bf2d3cc3ce797f612c5b618319 Mon Sep 17 00:00:00 2001 From: Javier Sagredo Date: Wed, 17 Jun 2026 00:43:10 +0200 Subject: [PATCH] Updated tls_server_negotiate --- .gitignore | 3 ++- cert.pl | 2 +- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/.gitignore b/.gitignore index 9a7264b..f25bea8 100644 --- 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 c5bf3ee..1963a85 100644 --- 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), -- 2.54.0