Posted to tcl by rmax at Tue Jul 24 15:10:50 GMT 2012view pretty

#!/usr/bin/tclsh
package require http
package require tls
proc handle {token} { blabla }
http::register https 443 [list ::tls::socket]
http::geturl https://google.com -command handle
vwait forever