Mercurial > hg > egg-tcls

changeset 545:7d5d97dfc6ad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Adjust messages.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 08 Jul 2020 01:42:40 +0300
parents 3b363fd0a60b
children 21aee5c2835c
files urllog.tcl
diffstat 1 files changed, 6 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/urllog.tcl	Wed Jul 08 00:47:35 2020 +0300
+++ b/urllog.tcl	Wed Jul 08 01:42:40 2020 +0300
@@ -57,15 +57,15 @@
 
 ### Miscellaneous init messages
 if {$urllog_extra_checks != 0} {
-  putlog " (Additional URL validity checks enabled)"
+  putlog " - Additional URL validity checks enabled."
 }
 
 if {$urllog_check_tld != 0} {
-  putlog " (Check TLD)"
+  putlog " - Check TLD enabled."
 }
 
 if {$urllog_verbose != 0} {
-  putlog " (Verbose mode enabled)"
+  putlog " - Verbose mode enabled."
 }
 
 ### HTTP module initialization
@@ -77,18 +77,18 @@
 
 if {[info exists http_use_proxy] && $http_use_proxy != 0} {
   ::http::config -proxyhost $http_proxy_host -proxyport $http_proxy_port
-  putlog " (Using proxy $http_proxy_host:$http_proxy_port)"
+  putlog " - Using proxy $http_proxy_host:$http_proxy_port"
 }
 
 if {[info exists http_tls_support] && $http_tls_support != 0} {
   package require tls
   ::http::register https 443 [list ::tls::socket -request true -require true -ssl2 false -ssl3 false -tls1 true -tls1.1 true -tls1.2 true -cadir $http_tls_cadir -autoservername true]
-  putlog " (TLS/SSL support enabled)"
+  putlog " - TLS/SSL support enabled."
 }
 
 ### SQLite database initialization
 if {[catch {sqlite3 urldb $urllog_db_file} uerrmsg]} {
-  putlog " Could not open SQLite3 database '$urllog_db_file': $uerrmsg"
+  putlog "Could not open SQLite3 database '$urllog_db_file': $uerrmsg"
   exit 2
 }