Mercurial > hg > egg-tcls

annotate create_feeds_db.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
134
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
1 #!/usr/bin/tclsh
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
2 # TCL script for creating (empty) Feeds SQLite3 database
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
3 #
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
4 # Written by Matti 'ccr' Hamalainen <ccr@tnsp.org>
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
5 # (C) Copyright 2013 Tecnic Software productions (TNSP)
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
6 #
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds 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: 134
diff changeset
8 source [file dirname [info script]]/utillib.tcl
134
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
9
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
10 ### Check commandline arguments
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
11 if {$argc < 1} {
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
12 puts "Creates tables for Feeds target SQLite3 file"
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
13 puts "Usage: $argv0 <output_sqlite3_db_file> \[-drop\]"
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
14 puts ""
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
15 puts "-drop option will drop any existing Feeds tables."
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
16 exit 0
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
17 }
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
18
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
19 set db_drop 0
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
20 set db_output [lindex $argv 0]
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
21 if {$argc >= 2 && [lindex $argv 1] == "-drop"} {
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
22 set db_drop 1
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
23 }
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
24
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
25 ### Open database
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
26 open_db $db_output
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
27
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
28 if {$db_drop} {
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
29 puts "WARNING! Dropping old tables Feeds requested!"
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
30 puts "All data in those tables will be permanently lost!"
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
31
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
32 if {![confirm_yesno "Proceed"]} {
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
33 puts "Aborting procedure."
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
34 dbh close
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
35 exit 0
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
36 }
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
37
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
38 drop_table_feeds
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
39 }
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
40
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
41 create_table_feeds
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
42
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
43 dbh close
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
44
089b59f94067 Add creation and conversion utilities for SQLite3 format feeds databases.
Matti Hamalainen <ccr@tnsp.org>
parents:
diff changeset
45 puts "DONE."