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)