Mercurial > hg > egg-tcls

comparison 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
comparison
equal deleted inserted replaced
141:c99df41a691a 142:4c51eeba993f
46 while {![eof $fd]} { 46 while {![eof $fd]} {
47 incr nline 47 incr nline
48 gets $fd uline 48 gets $fd uline
49 set items [split $uline "½"] 49 set items [split $uline "½"]
50 if {[llength $items] == 4} { 50 if {[llength $items] == 4} {
51 set sql "INSERT INTO feed_data (feed,utime,url,title) VALUES ('[lescape $items 1]', [lindex $items 0], '[lescape $items 2]', '[lescape $items 3]')" 51 set sql "INSERT INTO feeds (feed,utime,url,title) VALUES ('[lescape $items 1]', [lindex $items 0], '[lescape $items 2]', '[lescape $items 3]')"
52 if {[catch {dbh eval $sql} uerrmsg]} { 52 if {[catch {dbh eval $sql} uerrmsg]} {
53 puts "\nError ($nline): $uerrmsg on:\n$sql" 53 puts "\nError ($nline): $uerrmsg on:\n$sql"
54 exit 15 54 exit 15
55 } 55 }
56 } 56 }