Mercurial > hg > egg-tcls

diff urllog.tcl @ 456:102dc89488af

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Improve how http headers are formed.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 16 Oct 2017 11:28:56 +0300
parents e5810c52d376
children a7029d65796b
line wrap: on
line diff
--- a/urllog.tcl	Mon Oct 16 11:14:07 2017 +0300
+++ b/urllog.tcl	Mon Oct 16 11:28:56 2017 +0300
@@ -244,7 +244,11 @@
   upvar 1 $urlData udata
   upvar 1 $urlMeta umeta
 
-  if {[catch {set utoken [::http::geturl $urlStr -timeout 6000 -binary 1 -headers {Accept-Encoding identity}]} uerrmsg]} {
+  set urlHeaders {}
+  lappend urlHeaders "Accept-Encoding" "identity"
+  lappend urlHeaders "Connection" "keep-alive"
+
+  if {[catch {set utoken [::http::geturl $urlStr -timeout 6000 -binary 1 -headers $urlHeaders]} uerrmsg]} {
     urllog_verb_msg $urlNick $urlChan "$urlmsg_ioerror ($uerrmsg)"
     urllog_log "HTTP request failed: $uerrmsg"
     return 0