# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1594290309 -10800
# Node ID bdccc83a1c224e124b420e1b1141b7b0f383c995
# Parent  17183d85ab623567dc7c0505e264e35254ec010c
urllog: Cleanups.

diff -r 17183d85ab62 -r bdccc83a1c22 urllog.tcl
--- 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
 }