Mercurial > hg > egg-tcls

annotate create_quotedb.tcl @ 698:6ba9f961e463 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
quotedb: Bump version and copyright.
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 18 Sep 2023 11:38:41 +0300
parents 1255d524a919
children
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
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