Mercurial > hg > egg-tcls
view create_spede_mn_tuksu.tcl @ 63:7b03971c6d28
Remove tabs and reindent.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Thu, 08 Sep 2011 22:26:52 +0300 |
parents | b24cb1dd0423 |
children | ab13c0dfe250 |
line wrap: on
line source
#!/usr/bin/tclsh # TCL script for converting Spede, MN and Tuksu databases from # flatfile format to 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 {spededb tuksudb mndb} ### Check commandline arguments set db_str [join $db_list ", "] if {$argc < 1} { puts "Creates tables for $db_str target SQLite3 file" puts "Usage: $argv0 <output_sqlite3_db_file> \[-drop\]" puts "" puts "-drop option will drop any existing tables 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 tables $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."