# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1594288059 -10800
# Node ID 06d984a92a2851cf04cb0e09f0af9041ae0b53b8
# Parent  e0ff67318a99ae10f6f22d4df2e890bfddbb4f86
quotedb: Cleanups.

diff -r e0ff67318a99 -r 06d984a92a28 quotedb.tcl
--- a/quotedb.tcl	Thu Jul 09 12:41:52 2020 +0300
+++ b/quotedb.tcl	Thu Jul 09 12:47:39 2020 +0300
@@ -22,22 +22,10 @@
 ##########################################################################
 # No need to look below this line
 ##########################################################################
-set qdb_name "QuoteDB"
-set qdb_version "2.7"
-
-#-------------------------------------------------------------------------
-### Initialization messages
-set qdb_message "$qdb_name v$qdb_version (C) 2003-2020 ccr/TNSP"
-putlog "$qdb_message"
-
-### Require packages
 package require sqlite3
 
-### SQLite database initialization
-if {[catch {sqlite3 qdb_handle $qdb_file} uerrmsg]} {
-  putlog " Could not open SQLite3 database '$qdb_file': $uerrmsg"
-  exit 2
-}
+set qdb_name "QuoteDB"
+set qdb_message "$qdb_name v2.7 (C) 2003-2020 ccr/TNSP"
 
 
 #-------------------------------------------------------------------------
@@ -495,5 +483,15 @@
   }
 }
 
+
 #-------------------------------------------------------------------------
+# Script initialization
+#-------------------------------------------------------------------------
+putlog "$qdb_message"
+
+if {[catch {sqlite3 qdb_handle $qdb_file} uerrmsg]} {
+  putlog "Could not open SQLite3 database '${qdb_file}': ${uerrmsg}"
+  exit 2
+}
+
 # end of script