Mercurial > hg > egg-tcls
changeset 681:204699e84dee
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 }