# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1315753750 -10800
# Node ID b083afd78d665191f3e91333ddd2cdec6bb0f5e8
# Parent  ab13c0dfe250e66da09cb3e436e07f185d84b120
Cosmetics.

diff -r ab13c0dfe250 -r b083afd78d66 create_spede_mn_tuksu.tcl
--- a/create_spede_mn_tuksu.tcl	Sun Sep 11 18:04:41 2011 +0300
+++ b/create_spede_mn_tuksu.tcl	Sun Sep 11 18:09:10 2011 +0300
@@ -1,6 +1,5 @@
 #!/usr/bin/tclsh
-# TCL script for converting Spede, MN and Tuksu databases from
-# flatfile format to QuoteDB SQLite3 database.
+# TCL script for creating (empty) Spede, MN and Tuksu databases
 #
 # Written by Matti 'ccr' Hamalainen <ccr@tnsp.org>
 # (C) Copyright 2011 Tecnic Software productions (TNSP)
@@ -13,7 +12,7 @@
 ### Check commandline arguments
 set db_str [join $db_list ", "]
 if {$argc < 1} {
-  puts "Creates tables for $db_str target SQLite3 file"
+  puts "Creates tables for $db_str in target SQLite3 file"
   puts "Usage: $argv0 <output_sqlite3_db_file> \[-drop\]"
   puts ""
   puts "-drop option will drop any existing tables of same name."
@@ -30,7 +29,7 @@
 open_db $db_output
 
 if {$db_drop} {
-  puts "WARNING! Dropping of old tables $db_str requested!"
+  puts "WARNING! Dropping of old table(s) '$db_str' requested!"
   puts "All data in those tables will be permanently lost!"
 
   if {![confirm_yesno "Proceed"]} {