Mercurial > hg > egg-tcls
changeset 696:d82cadd5b4ff
Set ustatus and uscode if returning an error -1 from utl_http_do_request()
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Tue, 05 Sep 2023 00:06:17 +0300 |
parents | abd05400481d |
children | 14d4d4300623 |
files | utillib.tcl |
diffstat | 1 files changed, 2 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/utillib.tcl Fri Jun 23 21:21:59 2023 +0300 +++ b/utillib.tcl Tue Sep 05 00:06:17 2023 +0300 @@ -201,6 +201,8 @@ ### Perform request if {[catch {set utoken [::http::geturl $urlStr -timeout 8000 -binary 1 -headers $urlHeaders]} uerror]} { + set ustatus "ERROR" + set ucode "INTERNAL" set uscode $uerror return -1 }