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

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