Mercurial > hg > egg-tcls

comparison feeds.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 c99df41a691a
children 96b42289f1e7
comparison
equal deleted inserted replaced
141:c99df41a691a 142:4c51eeba993f
112 global feeds_dbh 112 global feeds_dbh
113 113
114 set oldtime [feeds_check_start] 114 set oldtime [feeds_check_start]
115 set found 0 115 set found 0
116 116
117 set usql "SELECT feed AS ufeed, title AS utitle, url AS uurl, utime AS utime FROM feed_data WHERE utime > $oldtime ORDER BY utime ASC" 117 set usql "SELECT feed AS ufeed, title AS utitle, url AS uurl, utime AS utime FROM feeds WHERE utime > $oldtime ORDER BY utime ASC"
118 feeds_dbh eval $usql { 118 feeds_dbh eval $usql {
119 feeds_msg $utime $ufeed $uurl $utitle 119 feeds_msg $utime $ufeed $uurl $utitle
120 set found 1 120 set found 1
121 } 121 }
122 122
139 139
140 global feeds_dbh 140 global feeds_dbh
141 # feeds_log "Manual check invoked on $uchan." 141 # feeds_log "Manual check invoked on $uchan."
142 142
143 set oldtime [feeds_check_start] 143 set oldtime [feeds_check_start]
144 set nresult [feeds_dbh onecolumn "SELECT COUNT(*) FROM feed_data WHERE utime > $oldtime"] 144 set nresult [feeds_dbh onecolumn "SELECT COUNT(*) FROM feeds WHERE utime > $oldtime"]
145 145
146 if {$nresult > 0} { 146 if {$nresult > 0} {
147 feeds_check_end 147 feeds_check_end
148 if {$nresult >= 20} { 148 if {$nresult >= 20} {
149 feeds_smsg $uchan "$nresult uutta, tod. näk. epäsynkissä. Ignoorataan." 149 feeds_smsg $uchan "$nresult uutta, tod. näk. epäsynkissä. Ignoorataan."
150 } else { 150 } else {
151 set usql "SELECT feed AS ufeed, title AS utitle, url AS uurl, utime AS utime FROM feed_data WHERE utime > $oldtime ORDER BY utime ASC" 151 set usql "SELECT feed AS ufeed, title AS utitle, url AS uurl, utime AS utime FROM feeds WHERE utime > $oldtime ORDER BY utime ASC"
152 feeds_dbh eval $usql { 152 feeds_dbh eval $usql {
153 feeds_msg $utime $ufeed $uurl $utitle 153 feeds_msg $utime $ufeed $uurl $utitle
154 set found 1 154 set found 1
155 } 155 }
156 feeds_smsg $uchan "$nresult uutta." 156 feeds_smsg $uchan "$nresult uutta."
164 # ------------------------------------------------------------------------ 164 # ------------------------------------------------------------------------
165 proc feeds_publast {unick uhost uhand uchan utext} { 165 proc feeds_publast {unick uhost uhand uchan utext} {
166 global feeds_dbh 166 global feeds_dbh
167 set ufound 0 167 set ufound 0
168 168
169 set usql "SELECT url AS uurl, feed AS ufeed, title AS utitle, utime AS utime FROM feed_data WHERE feed LIKE '%[string tolower [feeds_escape $utext]]%' ORDER BY utime DESC LIMIT 1" 169 set usql "SELECT url AS uurl, feed AS ufeed, title AS utitle, utime AS utime FROM feeds WHERE feed LIKE '%[string tolower [feeds_escape $utext]]%' ORDER BY utime DESC LIMIT 1"
170 feeds_dbh eval $usql { 170 feeds_dbh eval $usql {
171 feeds_smsg $uchan "Uusin '$ufeed' / [feeds_ctime $utime]: $utitle -- $uurl" 171 feeds_smsg $uchan "Uusin '$ufeed' / [feeds_ctime $utime]: $utitle -- $uurl"
172 set ufound 1 172 set ufound 1
173 } 173 }
174 174