Mercurial > hg > egg-tcls
changeset 76:c4e10a75b868
Separate script for creating just one QuoteDB table.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sun, 11 Sep 2011 18:09:25 +0300 |
parents | b083afd78d66 |
children | bae07e52591d |
files | create_quotedb.tcl |
diffstat | 1 files changed, 53 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/create_quotedb.tcl Sun Sep 11 18:09:25 2011 +0300 @@ -0,0 +1,53 @@ +#!/usr/bin/tclsh +# TCL script for creating (empty) QuoteDB SQLite3 database +# +# Written by Matti 'ccr' Hamalainen <ccr@tnsp.org> +# (C) Copyright 2011 Tecnic Software productions (TNSP) +# +package require sqlite3 +source [file dirname [info script]]/util_convert.tcl + +set db_list {quotedb} + +### Check commandline arguments +set db_str [join $db_list ", "] +if {$argc < 1} { + puts "Creates tables for QuoteDB in target SQLite3 file" + puts "Usage: $argv0 <output_sqlite3_db_file> \[-drop\]" + puts "" + puts "-drop option will drop any existing '$db_str' table of same name." + exit 0 +} + +set db_drop 0 +set db_output [lindex $argv 0] +if {$argc >= 2 && [lindex $argv 1] == "-drop"} { + set db_drop 1 +} + +### Open database +open_db $db_output + +if {$db_drop} { + puts "WARNING! Dropping of old table(s) '$db_str' requested!" + puts "All data in those tables will be permanently lost!" + + if {![confirm_yesno "Proceed"]} { + puts "Aborting procedure." + dbh close + exit 0 + } + + foreach i $db_list { + drop_table $i + } +} + +puts "Creating tables $db_str ..." +foreach i $db_list { + create_table_quotes_votes $i 0 +} + +dbh close + +puts "DONE."