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

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/>