如何使用oauth 1集成tcl（Project Open）和xero API？

Question

我在twitter api调用的帮助下尝试了tcl程序，但是它不起作用。 我想使用OAuth 1.0a将Xero API调用到tcl编程中。

::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]