Mercurial > hg > egg-tcls

changeset 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 511f1b28c8d1
children a7029d65796b
files urllog.tcl
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
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