Mercurial > hg > egg-tcls

changeset 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 053d5662bb16
children de6cab61061f
files utillib.tcl
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/utillib.tcl	Sun May 23 13:26:15 2021 +0300
+++ b/utillib.tcl	Thu Jul 15 12:36:50 2021 +0300
@@ -200,7 +200,7 @@
   #lappend urlHeaders "Connection" "keep-alive"
 
   ### Perform request
-  if {[catch {set utoken [::http::geturl $urlStr -timeout 6000 -binary 1 -headers $urlHeaders]} uerror]} {
+  if {[catch {set utoken [::http::geturl $urlStr -timeout 8000 -binary 1 -headers $urlHeaders]} uerror]} {
     set uscode $uerror
     return -1
   }