#!/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."