Mercurial > hg > egg-tcls

changeset 561:bdccc83a1c22

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
urllog: Cleanups.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 09 Jul 2020 13:25:09 +0300
parents 17183d85ab62
children 15bc88a1477a
files urllog.tcl
diffstat 1 files changed, 2 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/urllog.tcl	Thu Jul 09 12:49:48 2020 +0300
+++ b/urllog.tcl	Thu Jul 09 13:25:09 2020 +0300
@@ -43,6 +43,7 @@
 
 set urllog_tld_list [split $urllog_tld_list ","]
 set urllog_httprep [split "\@|%40|{|%7B|}|%7D|\[|%5B|\]|%5D" "|"]
+set urllog_shorturl_str "ABCDEFGHIJKLNMOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
 
 
 ### Binding initializations
@@ -101,8 +102,6 @@
 
 
 #-------------------------------------------------------------------------
-set urllog_shorturl_str "ABCDEFGHIJKLNMOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
-
 proc urllog_get_short {utime} {
   global urllog_shorturl_prefix urllog_shorturl_str
 
@@ -628,7 +627,7 @@
 
 ### 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
 }