Mercurial > hg > egg-tcls
annotate create_urllog_db.tcl @ 638:5260156d9521
tj: Oops, forgot to use LIKE instead of '=' here for comparing uid. Fixed.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Tue, 16 Feb 2021 12:30:07 +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 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
2 # TCL script for creating (empty) URLLog SQLite3 database |
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:
63
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 URLLog 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 {urls} |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
12 |
502
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
13 |
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, url VARCHAR(2048), user VARCHAR(32), host VARCHAR(256), chan VARCHAR(32), title VARCHAR(256)" |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
16 } |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
17 |
502
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
18 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
|
19 utl_drop_table dbh "$utable" |
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 |
502
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
22 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
|
23 return [list "$utable"] |
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
24 } |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
25 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
26 |
502
1255d524a919
Fix create_*.tcl database creation scripts after long period of being broken.
Matti Hamalainen <ccr@tnsp.org>
parents:
262
diff
changeset
|
27 source [file dirname [info script]]/utilcreate.tcl |