# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1626341810 -10800
# Node ID 204699e84dee3a5af37fedee49a73a22ce694b92
# Parent  053d5662bb1634539f90e3843fbf00ca4cc23400
utillib: Increase HTTP request timeout to 8 seconds from 6.

diff -r 053d5662bb16 -r 204699e84dee utillib.tcl
--- 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
   }