Mercurial > hg > egg-tcls

diff convert_feeds_db.tcl @ 142:4c51eeba993f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Rename table.
author Matti Hamalainen <ccr@tnsp.org>
date Tue, 04 Jun 2013 20:49:13 +0300
parents 089b59f94067
children
line wrap: on
line diff
--- a/convert_feeds_db.tcl	Tue Jun 04 15:52:32 2013 +0300
+++ b/convert_feeds_db.tcl	Tue Jun 04 20:49:13 2013 +0300
@@ -48,7 +48,7 @@
   gets $fd uline
   set items [split $uline "½"]
   if {[llength $items] == 4} {
-    set sql "INSERT INTO feed_data (feed,utime,url,title) VALUES ('[lescape $items 1]', [lindex $items 0], '[lescape $items 2]', '[lescape $items 3]')"
+    set sql "INSERT INTO feeds (feed,utime,url,title) VALUES ('[lescape $items 1]', [lindex $items 0], '[lescape $items 2]', '[lescape $items 3]')"
     if {[catch {dbh eval $sql} uerrmsg]} {
       puts "\nError ($nline): $uerrmsg on:\n$sql"
       exit 15