Mercurial > hg > egg-tcls

comparison 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
comparison
equal deleted inserted replaced
695:abd05400481d 696:d82cadd5b4ff
199 #lappend urlHeaders "Accept-Encoding" "identity" 199 #lappend urlHeaders "Accept-Encoding" "identity"
200 #lappend urlHeaders "Connection" "keep-alive" 200 #lappend urlHeaders "Connection" "keep-alive"
201 201
202 ### Perform request 202 ### Perform request
203 if {[catch {set utoken [::http::geturl $urlStr -timeout 8000 -binary 1 -headers $urlHeaders]} uerror]} { 203 if {[catch {set utoken [::http::geturl $urlStr -timeout 8000 -binary 1 -headers $urlHeaders]} uerror]} {
204 set ustatus "ERROR"
205 set ucode "INTERNAL"
204 set uscode $uerror 206 set uscode $uerror
205 return -1 207 return -1
206 } 208 }
207 209
208 ### Check status 210 ### Check status