34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
close $ch
}
proc read_blocking {host port path protocol} {
set result ""
|
|
|
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
|
close $ch
}
proc read_blocking {host port path protocol} {
set result ""
# Open socket
set ch [::tls::socket -servername $host -request 1 -require 1 -alpn [list [string tolower $protocol]] $host $port]
chan configure $ch -blocking 1 -buffering line -buffersize 16384 -encoding utf-8 -translation {auto crlf}
# Initiate handshake
::tls::handshake $ch
after 1000
|