Posted to tcl by rmax at Wed Jun 25 13:23:59 GMT 2014view raw
- package require tls
- tls::init -command tls::callback
- set ::tls::debug 2
- set sock [tls::socket 54.87.176.38 9553]
- fconfigure $sock -blocking 0 -translation binary -buffering none
- tls::handshake $sock
- puts $sock "GET / HTTP/1.0\r\n\r\n"
- fileevent $sock readable {set x 1}
- vwait x
- puts [read $sock]
- # on trunk this produces:
- TLS/sock9ac880: handshake/start: before/connect initialization
- TLS/sock9ac880: connect/loop: before/connect initialization
- TLS/sock9ac880: connect/loop: SSLv2/v3 write client hello A
- TLS/sock9ac880: connect/exit: SSLv2/v3 read server hello A
- TLS/sock9ac880: connect/exit: SSLv2/v3 read server hello A
- TLS/sock9ac880: connect/exit: SSLv2/v3 read server hello A
- tclsh: /abuild/max/fossil/tcl/generic/tclIO.c:2795: FlushChannel: Assertion `!calledFromAsyncFlush' failed.
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/>