# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1404382503 -10800
# Node ID dd20109d92da13b72264faba0a619595403e1e8b
# Parent  9b47f6d6c8bb9d05e32b4064a9d2fa4135140c5b
Increase default http timeouts.

diff -r 9b47f6d6c8bb -r dd20109d92da urllog.tcl
--- 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