Posted to tcl by mjanssen at Sun Jul 03 19:14:03 GMT 2022view pretty

# Minimal server code
package require tls
proc debug args {puts $args}
set tls::debug 10
tls::socket -server connect -command debug -autoservername 1 3333

proc connect {args} {
        puts $args
        lassign $args s
        catch {gets $s}
        exit
}
vwait forever

# irssi connection
/connect localhost 3333 -tls

# Output
tls::_accept {-server 1 -command debug} connect sock55dead572e80 127.0.0.1 49728
sock55dead572e80 127.0.0.1 49728
info sock55dead572e80 handshake start {before SSL initialization}
info sock55dead572e80 accept loop {before SSL initialization}
info sock55dead572e80 accept exit error
error sock55dead572e80 {wrong version number}