Index: demos/gets_blocking_no_variable.tcl ================================================================== --- demos/gets_blocking_no_variable.tcl +++ demos/gets_blocking_no_variable.tcl @@ -36,11 +36,11 @@ proc gets_blocking_no_variable {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 Index: demos/gets_blocking_with_variable.tcl ================================================================== --- demos/gets_blocking_with_variable.tcl +++ demos/gets_blocking_with_variable.tcl @@ -36,11 +36,11 @@ proc gets_blocking_with_variable {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 Index: demos/http_get_file.tcl ================================================================== --- demos/http_get_file.tcl +++ demos/http_get_file.tcl @@ -12,11 +12,11 @@ set protocol "http/1.1" set filename [file tail $url] # Register https protocol handler with http package http::register https 443 [list ::tls::socket -autoservername 1 -require 1 -alpn [list [string tolower $protocol]]] - + # Open output file set ch [open $filename wb] # Get webpage set token [::http::geturl $url -blocksize 16384 -channel $ch] Index: demos/read_blocking_webpage.tcl ================================================================== --- demos/read_blocking_webpage.tcl +++ demos/read_blocking_webpage.tcl @@ -36,11 +36,11 @@ 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 Index: demos/read_nonblocking_webpage.tcl ================================================================== --- demos/read_nonblocking_webpage.tcl +++ demos/read_nonblocking_webpage.tcl @@ -44,11 +44,11 @@ } } proc read_nonblocking {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} fileevent $ch readable [list handler $ch]