# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1411151403 -10800
# Node ID 6b1a579fb2886ccb2295be5f040a45b98a1f2f88
# Parent  c6bbf69afc57307d4a407819a7c619e082906751
urllog: Accept only uncompressed data, because we use chunked download.

diff -r c6bbf69afc57 -r 6b1a579fb288 urllog.tcl
--- a/urllog.tcl	Fri Aug 15 10:18:23 2014 +0300
+++ b/urllog.tcl	Fri Sep 19 21:30: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 2048 -timeout 6000]} uerrmsg]} {
+  if {[catch {set utoken [::http::geturl $urlStr -progress urllog_http_handler -blocksize 1024 -timeout 6000 -headers {Accept-Encoding identity}]} uerrmsg]} {
     urllog_verb_msg $urlNick $urlChan "$urlmsg_ioerror ($uerrmsg)"
     urllog_log "HTTP request failed: $uerrmsg"
     return 0