Mercurial > hg > egg-tcls
comparison urllog.tcl @ 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 | e5810c52d376 |
| children | a7029d65796b |
comparison
equal
deleted
inserted
replaced
| 455:511f1b28c8d1 | 456:102dc89488af |
|---|---|
| 242 upvar 1 $urlSCode uscode | 242 upvar 1 $urlSCode uscode |
| 243 upvar 1 $urlCode ucode | 243 upvar 1 $urlCode ucode |
| 244 upvar 1 $urlData udata | 244 upvar 1 $urlData udata |
| 245 upvar 1 $urlMeta umeta | 245 upvar 1 $urlMeta umeta |
| 246 | 246 |
| 247 if {[catch {set utoken [::http::geturl $urlStr -timeout 6000 -binary 1 -headers {Accept-Encoding identity}]} uerrmsg]} { | 247 set urlHeaders {} |
| 248 lappend urlHeaders "Accept-Encoding" "identity" | |
| 249 lappend urlHeaders "Connection" "keep-alive" | |
| 250 | |
| 251 if {[catch {set utoken [::http::geturl $urlStr -timeout 6000 -binary 1 -headers $urlHeaders]} uerrmsg]} { | |
| 248 urllog_verb_msg $urlNick $urlChan "$urlmsg_ioerror ($uerrmsg)" | 252 urllog_verb_msg $urlNick $urlChan "$urlmsg_ioerror ($uerrmsg)" |
| 249 urllog_log "HTTP request failed: $uerrmsg" | 253 urllog_log "HTTP request failed: $uerrmsg" |
| 250 return 0 | 254 return 0 |
| 251 } | 255 } |
| 252 | 256 |