Mercurial > hg > egg-tcls

changeset 559:06d984a92a28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quotedb: Cleanups.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 09 Jul 2020 12:47:39 +0300
parents e0ff67318a99
children 17183d85ab62
files quotedb.tcl
diffstat 1 files changed, 12 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- 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