# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1508142536 -10800
# Node ID 102dc89488afd0b0c0e9078dc0cd9b0a1cefb8a3
# Parent  511f1b28c8d1ec450d74232795b730f238cf6ccd
urllog: Improve how http headers are formed.

diff -r 511f1b28c8d1 -r 102dc89488af urllog.tcl
--- 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