Mercurial > hg > egg-tcls
changeset 456:102dc89488af
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