On Wed, May 15, 2024, at 10:18 AM,
dr.mt...@gmail.com wrote:
> *proc url {String} {
> package require http
> package require tls
> ::http::register https 443 [list ::tls::socket -request 1 -ssl2 0
> -ssl3 0 -tls1 1 -cafile VeriSignClass3SecureServerCA-G3.crt]
> set token [::http::geturl $String]
> upvar #0 $token state
> return [$state(body)] }*
> [...]
> You can see the right string has been passed but for some reason TCL/tk
> tries to execute it.
It's the square brackets in the return. They indicate that the results are to be evaluated as a command. Try:
return $state(body)
--
https://bluishcoder.co.nz