Mercurial > hg > egg-tcls

changeset 289:5067843cee3d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Move some initialization messages around.
author Matti Hamalainen <ccr@tnsp.org>
date Sun, 25 Jan 2015 15:34:50 +0200
parents 135e6c628164
children cad1041b5bc4
files urllog.tcl
diffstat 1 files changed, 9 insertions(+), 7 deletions(-) [+]
line wrap: on
line diff
--- a/urllog.tcl	Sun Jan 25 15:34:27 2015 +0200
+++ b/urllog.tcl	Sun Jan 25 15:34:50 2015 +0200
@@ -63,6 +63,15 @@
 set urllog_message "$urllog_name v$urllog_version (C) 2000-2015 ccr/TNSP"
 putlog "$urllog_message"
 
+### Miscellaneous init messages
+if {$urllog_extra_checks != 0} {
+  putlog " (Additional URL validity checks enabled)"
+}
+
+if {$urllog_verbose != 0} {
+  putlog " (Verbose mode enabled)"
+}
+
 ### HTTP module initialization
 if {[info exists http_user_agent] && $http_user_agent != ""} {
   ::http::config -useragent $http_user_agent
@@ -87,13 +96,6 @@
   exit 2
 }
 
-if {$urllog_extra_checks != 0} {
-  putlog " (Additional URL validity checks enabled)"
-}
-
-if {$urllog_verbose != 0} {
-  putlog " (Verbose mode enabled)"
-}
 
 #-------------------------------------------------------------------------
 ### Utility functions