Mercurial > hg > egg-tcls
changeset 570:0e3ee1f51c80
urllog: Cosmetics.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sun, 20 Sep 2020 18:47:16 +0300 |
parents | 1fbee4891dbc |
children | d4d2fda12308 |
files | urllog.tcl |
diffstat | 1 files changed, 4 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/urllog.tcl Tue Jul 21 19:01:37 2020 +0300 +++ b/urllog.tcl Sun Sep 20 18:47:16 2020 +0300 @@ -53,7 +53,6 @@ bind topc - *.* urllog_check_line - #------------------------------------------------------------------------- ### Utility functions proc urllog_log {umsg} { @@ -592,8 +591,11 @@ #------------------------------------------------------------------------- # Script initialization #------------------------------------------------------------------------- +### Initialization messages putlog "$urllog_message" + +### Miscellaneous init messages if {$urllog_extra_checks != 0} { putlog " - Additional URL validity checks enabled." } @@ -606,6 +608,7 @@ putlog " - Verbose mode enabled." } + ### HTTP module initialization if {[info exists http_user_agent] && $http_user_agent != ""} { ::http::config -useragent $http_user_agent