Mercurial > hg > egg-tcls

diff utillib.tcl @ 696:d82cadd5b4ff

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 204699e84dee
children
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
   }