patch 7338b38e3656d3cfd65724e679fefc686d08e9b2
Author: Enrique D. Bosch <presidev@AT@gmail.com>
Date: Sun Jun 5 23:26:38 CEST 2016
* Fix options passed to tls (were not having effect)
diff -rN -u old-idlebiff/idlebiff new-idlebiff/idlebiff
--- old-idlebiff/idlebiff 2024-05-06 08:31:06.594354988 +0200
+++ new-idlebiff/idlebiff 2024-05-06 08:31:06.594354988 +0200
@@ -461,15 +461,14 @@
set tlsv [ package require tls ]
if {"$tlsv">="1.6.4"} { set tls1x {-tls1.1 1 -tls1.2 1} } \
else { set tls1x {} }
- ::tls::init -ssl2 0 -ssl3 0 -tls1 1 [ list $tls1x ] \
- -cafile "$conf(tls_ca_file)" \
- -cadir "$conf(tls_ca_dir)" \
- -certfile "$conf(tls_client_cert)" \
- -keyfile "$conf(tls_client_key)" \
+ set sock "::tls::socket -ssl2 0 -ssl3 0 -tls1 1 $tls1x \
+ -cafile \"$conf(tls_ca_file)\" \
+ -cadir \"$conf(tls_ca_dir)\" \
+ -certfile \"$conf(tls_client_cert)\" \
+ -keyfile \"$conf(tls_client_key)\" \
-request 1 \
- -require "$conf(tls_validate_cert)" \
- -cipher "$conf(tls_ciphers)"
- set sock ::tls::socket
+ -require \"$conf(tls_validate_cert)\" \
+ -cipher \"$conf(tls_ciphers)\""
} \
else { set sock socket }
}