Posted to tcl by dbohdan at Fri Sep 11 09:17:24 GMT 2020view pretty
package require tls proc ::tls::log {level msg} { puts ">>>> $msg" } set ::tls::debug 1 set tlsSocket [list \ ::tls::socket -autoservername true \ ] proc verifyCmd {op sock args} { puts "$op $sock $args" tailcall ::tls::callback $op $sock {*}$args } set chan [{*}$tlsSocket \ -autoservername true \ -command verifyCmd \ github.com 443 \ ] puts [read -nonewline $chan]
Comments
Posted by dbohdan at Fri Sep 11 09:18:35 GMT 2020 [text] [code]
Redundancy!