# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1693861577 -10800
# Node ID d82cadd5b4ff0b5a83aa9c1d4d84e723bdf6ee57
# Parent  abd05400481d39856a134af011a9233cd82c743f
Set ustatus and uscode if returning an error -1 from utl_http_do_request()

diff -r abd05400481d -r d82cadd5b4ff utillib.tcl
--- 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
   }