Mercurial > hg > egg-tcls
view create_urllog_db.tcl @ 448:ac3b79eca0ca
fetch_weather: Change to use the new REST/JSON API for fetching Tiehallinto digitraffic weather data.
Sidenote: How can JSON format data be designed so idiotically?
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Thu, 28 Sep 2017 15:22:03 +0300 |
parents | 416642f28d1e |
children | 1255d524a919 |
line wrap: on
line source
#!/usr/bin/tclsh # TCL script for creating (empty) URLLog SQLite3 database # # Written by Matti 'ccr' Hamalainen <ccr@tnsp.org> # (C) Copyright 2011 Tecnic Software productions (TNSP) # package require sqlite3 source [file dirname [info script]]/utillib.tcl ### Check commandline arguments if {$argc < 1} { puts "Creates tables for URLLog target SQLite3 file" puts "Usage: $argv0 <output_sqlite3_db_file> \[-drop\]" puts "" puts "-drop option will drop any existing URLLog tables." exit 0 } set db_drop 0 set db_output [lindex $argv 0] if {$argc >= 2 && [lindex $argv 1] == "-drop"} { set db_drop 1 } ### Open database open_db $db_output if {$db_drop} { puts "WARNING! Dropping old tables URLLog requested!" puts "All data in those tables will be permanently lost!" if {![confirm_yesno "Proceed"]} { puts "Aborting procedure." dbh close exit 0 } drop_table "urls" } create_table_urls dbh close puts "DONE."