tcl - 如何使用 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]