Mercurial > hg > egg-tcls
view create_feeds_db.tcl @ 684:5163d582e396
quotedb: Change voting a bit.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Sun, 28 Nov 2021 04:20:18 +0200 |
parents | 47c174bfd9a2 |
children |
line wrap: on
line source
#!/usr/bin/tclsh # TCL script for creating (empty) Feeds SQLite3 database # # Written by Matti 'ccr' Hamalainen <ccr@tnsp.org> # (C) Copyright 2013 Tecnic Software productions (TNSP) # package require sqlite3 source [file dirname [info script]]/utillib.tcl set db_create_desc "Creates tables for Feeds.tcl in target SQLite3 file" set db_table_list {feeds} proc db_create_table { dbh utable } { utl_create_table dbh "$utable" "feed VARCHAR(64), utime INT, url VARCHAR(512), title VARCHAR(256)" } proc db_drop_table { dbh utable } { utl_drop_table dbh "$utable" } proc db_get_table_list { utable } { return [list $utable] } source [file dirname [info script]]/utilcreate.tcl