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

  1. # Minimal server code
  2. package require tls
  3. proc debug args {puts $args}
  4. set tls::debug 10
  5. tls::socket -server connect -command debug -autoservername 1 3333
  6.  
  7. proc connect {args} {
  8. puts $args
  9. lassign $args s
  10. catch {gets $s}
  11. exit
  12. }
  13. vwait forever
  14.  
  15. # irssi connection
  16. /connect localhost 3333 -tls
  17.  
  18. # Output
  19. tls::_accept {-server 1 -command debug} connect sock55dead572e80 127.0.0.1 49728
  20. sock55dead572e80 127.0.0.1 49728
  21. info sock55dead572e80 handshake start {before SSL initialization}
  22. info sock55dead572e80 accept loop {before SSL initialization}
  23. info sock55dead572e80 accept exit error
  24. error sock55dead572e80 {wrong version number}