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

  1. Code:
  2. namespace eval http { proc Log {args} {::puts $args} }
  3.  
  4. rest::simple https://mysite.pt/wp-json/wc/v3/settings [list $cred_ck $cred_cs]
  5.  
  6. Out:
  7. ^A1 URL https://mysite.pt/wp-json/wc/v3/settings?ck_8ssssssssssssssssssssss=cs_cdddddddddddddddddddwww - token ::http::1
  8. {Using sock56401d7f69b0 for mysite.pt:443 - token ::http::1} {}
  9. ^B1 begin sending request - token ::http::1
  10. {WARNING - if testing, pay special attention to this case (GI) which is seldom executed - token ::http::1}
  11. {Closing socket sock56401d7f69b0 (no connection info)}
  12. failed to use socket
  13. while executing
  14. "http::geturl $url -headers $headers {*}$opts"
  15. (procedure "::rest::_call" line 39)
  16. invoked from within
  17. "::rest::_call {} $headers $url $query $body $error_body"
  18. (procedure "rest::simple" line 44)
  19. invoked from within
  20. "rest::simple https://mysite.pt/wp-json/wc/v3/settings [list $cred_ck $cred_cs]"
  21. (file "./mysite_rest.tcl" line 50)