Posted to tcl by colin at Wed Jul 23 12:19:00 GMT 2008view raw
- CODE:
- package require tls
- proc connected {sock args} {
- puts stderr "Connected: $args"
- while 1 {[puts stderr [gets $sock]]}
- }
- proc progress {args} {
- puts stderr "Progress: $args"
- }
- tls::socket -server ::connected -command ::progress -ssl3 1 -ssl2 0 -tls1 1 8090
- set var 0
- vwait var
- OUTPUT:
- Connected: 127.0.0.1 45836
- Progress: info sock6 handshake start {before/accept initialization}
- Progress: info sock6 accept loop {before/accept initialization}
- Progress: info sock6 accept exit {SSLv3 read client hello B}
- Progress: error sock6 {wrong version number}
- error reading "sock6": software caused connection abort
- while executing
- "gets $sock"
- (procedure "::connected" line 3)
- invoked from within
- "::connected sock6 127.0.0.1 45836"
- ("uplevel" body line 1)
- invoked from within
- "uplevel #0 $callback"
- (procedure "tls::_accept" line 8)
- invoked from within
- "tls::_accept {-server 1 -command ::progress -ssl3 1 -ssl2 0 -tls1 1} ::connected sock6 127.0.0.1 45836"