# HG changeset patch # User Matti Hamalainen # Date 1370341470 -10800 # Node ID 743c1bea24980f27c5285747f985b3735b2786e8 # Parent 0701ea4a76d4f78554da8d56ae861d7e3cd9f911 Add utility functions for feeds database creation. diff -r 0701ea4a76d4 -r 743c1bea2498 util_convert.tcl --- a/util_convert.tcl Tue Jun 04 13:24:11 2013 +0300 +++ b/util_convert.tcl Tue Jun 04 13:24:30 2013 +0300 @@ -68,3 +68,12 @@ create_table "${utable}_votes" "$sql2" } } + + +proc drop_table_feeds { } { + drop_table "feed_data" +} + +proc create_table_feeds { } { + create_table_or_fail "feed_data" "feed VARCHAR(64), utime INT, url VARCHAR(512), title VARCHAR(256)" +}