Mercurial > hg > egg-tcls
annotate create_urllog_db.tcl @ 446:ba559d5d44db
fetch_weather: Rename the Tiehallinto static metadata cache filename setting.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Thu, 28 Sep 2017 15:17:39 +0300 |
parents | 416642f28d1e |
children | 1255d524a919 |
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 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
10 ### Check commandline arguments |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
11 if {$argc < 1} { |
63 | 12 puts "Creates tables for URLLog target SQLite3 file" |
13 puts "Usage: $argv0 <output_sqlite3_db_file> \[-drop\]" | |
14 puts "" | |
15 puts "-drop option will drop any existing URLLog tables." | |
16 exit 0 | |
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 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
19 set db_drop 0 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
20 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
|
21 if {$argc >= 2 && [lindex $argv 1] == "-drop"} { |
63 | 22 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
|
23 } |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
24 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
25 ### Open database |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
26 open_db $db_output |
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 if {$db_drop} { |
63 | 29 puts "WARNING! Dropping old tables URLLog requested!" |
30 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
|
31 |
63 | 32 if {![confirm_yesno "Proceed"]} { |
33 puts "Aborting procedure." | |
34 dbh close | |
35 exit 0 | |
36 } | |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
37 |
63 | 38 drop_table "urls" |
32
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
39 } |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
40 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
41 create_table_urls |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
42 |
96fdf24afd9c
Add scripts for *creating* empty URLLog and Spede/MN/Tuksu databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff
changeset
|
43 dbh close |
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 puts "DONE." |