Mercurial > hg > egg-tcls

comparison urllog.tcl @ 685:46fc0bc95195

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Improve some logging / error messages.
author Matti Hamalainen <ccr@tnsp.org>
date Fri, 13 May 2022 15:21:14 +0300
parents afe4b1fe5e79
children 2c3df4981df5
comparison
equal deleted inserted replaced
684:5163d582e396 685:46fc0bc95195
223 lappend urlHeaders "Accept-Encoding" "identity" 223 lappend urlHeaders "Accept-Encoding" "identity"
224 #lappend urlHeaders "Connection" "keep-alive" 224 #lappend urlHeaders "Connection" "keep-alive"
225 225
226 set uresult [utl_http_do_request $urlHeaders $urlStr ustatus uscode ucode udata umeta] 226 set uresult [utl_http_do_request $urlHeaders $urlStr ustatus uscode ucode udata umeta]
227 if {$uresult == -1} { 227 if {$uresult == -1} {
228 urllog_verb_msg 1 $urlNick $urlChan "err_http_get" [list $urlStr $uscode] 228 urllog_verb_msg 1 $urlNick $urlChan "err_http_get" [list $urlStr $ustatus $uscode $ucode]
229 urllog_log "HTTP request failed: $uscode" 229 urllog_log "HTTP request failed: $ustatus / $uscode $ucode"
230 return 0 230 return 0
231 } elseif {$uresult < 0} { 231 } elseif {$uresult < 0} {
232 urllog_verb_msg 1 $urlNick $urlChan "err_http_status" [list $urlStr $ustatus $uscode $ucode] 232 urllog_verb_msg 1 $urlNick $urlChan "err_http_status" [list $urlStr $ustatus $uscode $ucode]
233 urllog_log "Error in HTTP request: $ustatus / $uscode ($urlStr)" 233 urllog_log "Error in HTTP request: $ustatus / $uscode $ucode ($urlStr)"
234 return 0 234 return 0
235 } 235 }
236 236
237 return 1 237 return 1
238 } 238 }