Posted to tcl by rmax at Tue Jul 24 15:10:50 GMT 2012view raw
- #!/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