Mercurial > hg > egg-tcls

comparison utillib.tcl @ 681:204699e84dee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
utillib: Increase HTTP request timeout to 8 seconds from 6.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 15 Jul 2021 12:36:50 +0300
parents 586caf75fccc
children d82cadd5b4ff
comparison
equal deleted inserted replaced
680:053d5662bb16 681:204699e84dee
198 #set urlHeaders {} 198 #set urlHeaders {}
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 6000 -binary 1 -headers $urlHeaders]} uerror]} { 203 if {[catch {set utoken [::http::geturl $urlStr -timeout 8000 -binary 1 -headers $urlHeaders]} uerror]} {
204 set uscode $uerror 204 set uscode $uerror
205 return -1 205 return -1
206 } 206 }
207 207
208 ### Check status 208 ### Check status