Mercurial > hg > egg-tcls
annotate create_spede_mn_tuksu.tcl @ 174:d94be9a1be6a
weather: Add support for listing currently defined aliases.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Tue, 03 Jun 2014 13:00:38 +0300 |
parents | b083afd78d66 |
children |
rev | line source |
---|---|
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
1 #!/usr/bin/tclsh |
75 | 2 # TCL script for creating (empty) Spede, MN and Tuksu databases |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
3 # |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
4 # Written by Matti 'ccr' Hamalainen <ccr@tnsp.org> |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
5 # (C) Copyright 2011 Tecnic Software productions (TNSP) |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
6 # |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
7 package require sqlite3 |
34
dccd6c47f9cd
Use special 'source' statement to include util_convert.tcl from same directory where the script calling it resides.
Matti Hamalainen <ccr@tnsp.org>
parents:
32
diff
changeset
|
8 source [file dirname [info script]]/util_convert.tcl |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
9 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
10 set db_list {spededb tuksudb mndb} |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
11 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
12 ### Check commandline arguments |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
13 set db_str [join $db_list ", "] |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
14 if {$argc < 1} { |
75 | 15 puts "Creates tables for $db_str in target SQLite3 file" |
63 | 16 puts "Usage: $argv0 <output_sqlite3_db_file> \[-drop\]" |
17 puts "" | |
18 puts "-drop option will drop any existing tables of same name." | |
19 exit 0 | |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
20 } |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
21 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
22 set db_drop 0 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
23 set db_output [lindex $argv 0] |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
24 if {$argc >= 2 && [lindex $argv 1] == "-drop"} { |
63 | 25 set db_drop 1 |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
26 } |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
27 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
28 ### Open database |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
29 open_db $db_output |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
30 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
31 if {$db_drop} { |
75 | 32 puts "WARNING! Dropping of old table(s) '$db_str' requested!" |
63 | 33 puts "All data in those tables will be permanently lost!" |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
34 |
63 | 35 if {![confirm_yesno "Proceed"]} { |
36 puts "Aborting procedure." | |
37 dbh close | |
38 exit 0 | |
39 } | |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
40 |
63 | 41 foreach i $db_list { |
42 drop_table $i | |
43 } | |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
44 } |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
45 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
46 puts "Creating tables $db_str ..." |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
47 foreach i $db_list { |
63 | 48 create_table_quotes_votes $i 0 |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
49 } |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
50 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
51 dbh close |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
52 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
53 puts "DONE." |