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-11-26 08:19:17.541139066 +0100
+++ new-idlebiff/idlebiff	2024-11-26 08:19:17.545139060 +0100
@@ -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 }
 }