Mercurial > hg > egg-tcls

changeset 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 5163d582e396
children 2c3df4981df5
files urllog.tcl
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/urllog.tcl	Sun Nov 28 04:20:18 2021 +0200
+++ b/urllog.tcl	Fri May 13 15:21:14 2022 +0300
@@ -225,12 +225,12 @@
 
   set uresult [utl_http_do_request $urlHeaders $urlStr ustatus uscode ucode udata umeta]
   if {$uresult == -1} {
-    urllog_verb_msg 1 $urlNick $urlChan "err_http_get" [list $urlStr $uscode]
-    urllog_log "HTTP request failed: $uscode"
+    urllog_verb_msg 1 $urlNick $urlChan "err_http_get" [list $urlStr $ustatus $uscode $ucode]
+    urllog_log "HTTP request failed: $ustatus / $uscode $ucode"
     return 0
   } elseif {$uresult < 0} {
     urllog_verb_msg 1 $urlNick $urlChan "err_http_status" [list $urlStr $ustatus $uscode $ucode]
-    urllog_log "Error in HTTP request: $ustatus / $uscode ($urlStr)"
+    urllog_log "Error in HTTP request: $ustatus / $uscode $ucode ($urlStr)"
     return 0
   }