--- a/create_feeds_db.tcl	Thu Jan 23 06:14:06 2020 +0200
+++ b/create_feeds_db.tcl	Thu Jan 23 08:01:40 2020 +0200
@@ -7,39 +7,21 @@
 package require sqlite3
 source [file dirname [info script]]/utillib.tcl
 
-### Check commandline arguments
-if {$argc < 1} {
-  puts "Creates tables for Feeds target SQLite3 file"
-  puts "Usage: $argv0 <output_sqlite3_db_file> \[-drop\]"
-  puts ""
-  puts "-drop option will drop any existing Feeds tables."
-  exit 0
-}
+set db_create_desc "Creates tables for Feeds.tcl in target SQLite3 file"
+set db_table_list {feeds}
 
-set db_drop 0
-set db_output [lindex $argv 0]
-if {$argc >= 2 && [lindex $argv 1] == "-drop"} {
-  set db_drop 1
+
+proc db_create_table { dbh utable } {
+  utl_create_table dbh "$utable" "id INTEGER PRIMARY KEY AUTOINCREMENT, utime INT, utext VARCHAR(2048), user VARCHAR(32), host VARCHAR(256), chan VARCHAR(32)"
 }
 
-### Open database
-open_db $db_output
-
-if {$db_drop} {
-  puts "WARNING! Dropping old tables Feeds requested!"
-  puts "All data in those tables will be permanently lost!"
-
-  if {![confirm_yesno "Proceed"]} {
-    puts "Aborting procedure."
-    dbh close
-    exit 0
-  }
-
-  drop_table_feeds
+proc db_drop_table { dbh utable } {
+  utl_drop_table dbh "$utable"
 }
 
-create_table_feeds
+proc db_get_table_list { utable } {
+  return [list $utable]
+}
 
-dbh close
 
-puts "DONE."
+source [file dirname [info script]]/utilcreate.tcl