#!/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