Posted to tcl by rmax at Wed Jun 25 13:23:59 GMT 2014view raw

  1. package require tls
  2. tls::init -command tls::callback
  3. set ::tls::debug 2
  4. set sock [tls::socket 54.87.176.38 9553]
  5. fconfigure $sock -blocking 0 -translation binary -buffering none
  6. tls::handshake $sock
  7. puts $sock "GET / HTTP/1.0\r\n\r\n"
  8. fileevent $sock readable {set x 1}
  9. vwait x
  10. puts [read $sock]
  11.  
  12. # on trunk this produces:
  13. TLS/sock9ac880: handshake/start: before/connect initialization
  14. TLS/sock9ac880: connect/loop: before/connect initialization
  15. TLS/sock9ac880: connect/loop: SSLv2/v3 write client hello A
  16. TLS/sock9ac880: connect/exit: SSLv2/v3 read server hello A
  17. TLS/sock9ac880: connect/exit: SSLv2/v3 read server hello A
  18. TLS/sock9ac880: connect/exit: SSLv2/v3 read server hello A
  19. tclsh: /abuild/max/fossil/tcl/generic/tclIO.c:2795: FlushChannel: Assertion `!calledFromAsyncFlush' failed.
  20.  

Comments

Posted by oehhar at Wed Jun 25 13:31:44 GMT 2014 [text] [code]

On my windows on trunk, it ends with:<br/> % puts [read $sock]<br/> error reading "sock016E3508": other error<br/>