Mercurial > hg > egg-tcls
diff urllog.tcl @ 289:5067843cee3d
urllog: Move some initialization messages around.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Sun, 25 Jan 2015 15:34:50 +0200 |
| parents | d62280f2a9c7 |
| children | 54d34d086b47 |
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