Mercurial > hg > egg-tcls

annotate create_quotedb.tcl @ 415:ff932030a9b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
weather: Bump version.
author Matti Hamalainen <ccr@tnsp.org>
date Sat, 07 Jan 2017 22:41:07 +0200
parents 416642f28d1e
children 1255d524a919
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
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
76
c4e10a75b868 Separate script for creating just one QuoteDB table.
Matti Hamalainen <ccr@tnsp.org>
parents: 75
diff changeset
2 # TCL script for creating (empty) QuoteDB SQLite3 database
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
262
416642f28d1e Rename util_convert.tcl to utillib.tcl
Matti Hamalainen <ccr@tnsp.org>
parents: 76
diff changeset
8 source [file dirname [info script]]/utillib.tcl
32
96fdf24afd9c Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
9
76
c4e10a75b868 Separate script for creating just one QuoteDB table.
Matti Hamalainen <ccr@tnsp.org>
parents: 75
diff changeset
10 set db_list {quotedb}
32
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} {
76
c4e10a75b868 Separate script for creating just one QuoteDB table.
Matti Hamalainen <ccr@tnsp.org>
parents: 75
diff changeset
15 puts "Creates tables for QuoteDB in target SQLite3 file"
63
7b03971c6d28 Remove tabs and reindent.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
16 puts "Usage: $argv0 <output_sqlite3_db_file> \[-drop\]"
7b03971c6d28 Remove tabs and reindent.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
17 puts ""
76
c4e10a75b868 Separate script for creating just one QuoteDB table.
Matti Hamalainen <ccr@tnsp.org>
parents: 75
diff changeset
18 puts "-drop option will drop any existing '$db_str' table of same name."
63
7b03971c6d28 Remove tabs and reindent.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
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
7b03971c6d28 Remove tabs and reindent.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
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
b083afd78d66 Cosmetics.
Matti Hamalainen <ccr@tnsp.org>
parents: 74
diff changeset
32 puts "WARNING! Dropping of old table(s) '$db_str' requested!"
63
7b03971c6d28 Remove tabs and reindent.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
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
7b03971c6d28 Remove tabs and reindent.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
35 if {![confirm_yesno "Proceed"]} {
7b03971c6d28 Remove tabs and reindent.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
36 puts "Aborting procedure."
7b03971c6d28 Remove tabs and reindent.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
37 dbh close
7b03971c6d28 Remove tabs and reindent.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
38 exit 0
7b03971c6d28 Remove tabs and reindent.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
39 }
32
96fdf24afd9c Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
40
63
7b03971c6d28 Remove tabs and reindent.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
41 foreach i $db_list {
7b03971c6d28 Remove tabs and reindent.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
42 drop_table $i
7b03971c6d28 Remove tabs and reindent.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
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
7b03971c6d28 Remove tabs and reindent.
Matti Hamalainen <ccr@tnsp.org>
parents: 36
diff changeset
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."