Как интегрировать tcl (Project Open) и xero API, используя oauth 1?

Question

Я попытался с помощью Twitter API вызова в моей программе Tcl, но она не работает. Я хочу вызвать Xero API в программирование tcl с использованием OAuth 1.0a.

::http::register https 443 [list ::tls::socket -ssl2 0 -ssl3 0 -tls1 1]
set handle [::http::geturl https://api.xero.com/api.xro/2.0/Contacts ]
set body [::http::data $handle]

Это дает мне следующую ошибку.

invalid command name "::tls::socket"
while executing
"::http::geturl https://api.xero.com/api.xro/2.0/Contacts "
("uplevel" body line 3)
   invoked from within
 "uplevel {
     ::http::register https 443 [list ::tls::socket -ssl2 0 -ssl3 0 -tls1 1]