Mercurial > hg > egg-tcls
annotate create_quotedb.tcl @ 671:3904fcfeeb9a
quotedb: Rename qdb_get() to qdb_show() and remove extraneous unused argument.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Tue, 23 Feb 2021 14:41:42 +0200 |
parents | 1255d524a919 |
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 |
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 |
502
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
10 set db_create_desc "Creates tables for QuoteDB in target SQLite3 file" |
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
11 set db_table_list {quotedb} |
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
12 |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
13 |
502
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
14 proc db_create_table { dbh utable } { |
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
15 utl_create_table_or_fail dbh "$utable" "id INTEGER PRIMARY KEY AUTOINCREMENT, utime INT, utext VARCHAR(2048), user VARCHAR(32), host VARCHAR(256), chan VARCHAR(32)" |
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
16 utl_create_table_or_fail dbh "${utable}_votes" "id INTEGER PRIMARY KEY AUTOINCREMENT, user VARCHAR(32), urlid INTEGER, vote INTEGER" |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
17 } |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
18 |
502
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
19 proc db_drop_table { dbh utable } { |
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
20 utl_drop_table dbh "$utable" |
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
21 utl_drop_table dbh "${utable}_votes" |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
22 } |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
23 |
502
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
24 proc db_get_table_list { utable } { |
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
25 return [list "$utable" "${utable}_votes"] |
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 |
502
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
29 source [file dirname [info script]]/utilcreate.tcl |