Code: Select all
tag when posting logs, code
Code: Select all
package require http 2.4
::http::geturl {http://blah.net/somescript.tcl} -command httploadscript
proc httploadscript {token} {
if {[::http::ncode $token] == 200} {
uplevel #0 [::http::data $token]
} else {
putlog "Failed to load file from website: [::http::error $token]"
}
::http::cleanup $token
return 0
}
that won't work as intended, you are evaluating in a proc, not in the global context in which that script most likely expects to be evaluated; use [uplevel]De Kus wrote:Code: Select all
eval [::http::data $token]
Code: Select all
tag when posting logs, code