Posted to tcl by lupe at Mon Aug 31 17:25:58 GMT 2020view pretty

Code:
namespace eval http { proc Log {args} {::puts $args} }                     

rest::simple https://mysite.pt/wp-json/wc/v3/settings [list $cred_ck $cred_cs]

Out:
^A1 URL https://mysite.pt/wp-json/wc/v3/settings?ck_8ssssssssssssssssssssss=cs_cdddddddddddddddddddwww - token ::http::1
{Using sock56401d7f69b0 for mysite.pt:443 - token ::http::1} {}
^B1 begin sending request - token ::http::1
{WARNING - if testing, pay special attention to this case (GI) which is seldom executed - token ::http::1}
{Closing socket sock56401d7f69b0 (no connection info)}
failed to use socket
    while executing
"http::geturl $url -headers $headers {*}$opts"
    (procedure "::rest::_call" line 39)
    invoked from within
"::rest::_call {} $headers $url $query $body $error_body"
    (procedure "rest::simple" line 44)
    invoked from within
"rest::simple https://mysite.pt/wp-json/wc/v3/settings [list $cred_ck $cred_cs]"
    (file "./mysite_rest.tcl" line 50)