Tcl Source Code

Artifact 3bb51d3bc33b5495ba886e4c96950c3b1760bf1a:

Attachment "httpbug.tcl" to ticket [2964525fff] added by nurdglaw 2010-03-06 04:42:17.

---

puts stdout patchlevel:\ [info patchlevel]
puts stdout http:\ [package require http]
puts stdout tls:\ [package require tls]

http::register https 443 ::tls::socket

set url https://www.ebu.co.uk/members/api/api.php

set tok [http::geturl $url]
puts stdout http::code:\ [http::code $tok]
parray $tok