Mercurial > hg > egg-tcls

changeset 205:dd20109d92da

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Increase default http timeouts.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 03 Jul 2014 13:15:03 +0300
parents 9b47f6d6c8bb
children 2ac661d551b3
files urllog.tcl
diffstat 1 files changed, 1 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- a/urllog.tcl	Wed Jun 18 20:47:27 2014 +0300
+++ b/urllog.tcl	Thu Jul 03 13:15:03 2014 +0300
@@ -489,7 +489,7 @@
   }
 
   ### Does the document pointed by the URL exist?
-  if {[catch {set utoken [::http::geturl $urlStr -progress urllog_http_handler -blocksize 1024 -timeout 3000]} uerrmsg]} {
+  if {[catch {set utoken [::http::geturl $urlStr -progress urllog_http_handler -blocksize 2048 -timeout 6000]} uerrmsg]} {
     urllog_verb_msg $urlNick $urlChan "$urlmsg_ioerror ($uerrmsg)"
     urllog_log "HTTP request failed: $uerrmsg"
     return 0