Mercurial > hg > egg-tcls
changeset 75:b083afd78d66
Cosmetics.
| author | Matti Hamalainen <ccr@tnsp.org> |
|---|---|
| date | Sun, 11 Sep 2011 18:09:10 +0300 |
| parents | ab13c0dfe250 |
| children | c4e10a75b868 |
| files | create_spede_mn_tuksu.tcl |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- 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"]} {