Mercurial > hg > egg-tcls

comparison feeds.tcl @ 552:c9ed23fb6d38

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
feeds: Add fixme comments.
author Matti Hamalainen <ccr@tnsp.org>
date Wed, 08 Jul 2020 23:00:38 +0300
parents 77a8fab2062f
children 0ce432c3f03f
comparison
equal deleted inserted replaced
551:77a8fab2062f 552:c9ed23fb6d38
161 if {![matchattr $uhand n]} { 161 if {![matchattr $uhand n]} {
162 feeds_msg $upublic $unick $uchan "no_access" 162 feeds_msg $upublic $unick $uchan "no_access"
163 } 163 }
164 feeds_check_do 1 $upublic $unick $uchan 164 feeds_check_do 1 $upublic $unick $uchan
165 } elseif {[string match "list*" $rcmd]} { 165 } elseif {[string match "list*" $rcmd]} {
166 # List ... 166 # TODO FIXME -
167 feeds_smsg $upublic $unick $uchan "usage_help" 167 feeds_smsg $upublic $unick $uchan "usage_help"
168 168
169 } elseif {[string match "hist*" $rcmd]} { 169 } elseif {[string match "hist*" $rcmd]} {
170 # Show history of feeds 170 # Show history of feeds
171 set ulistitem [feeds_qm "history_list_item"] 171 set ulistitem [feeds_qm "history_list_item"]
172 set ulistsep [feeds_qm "history_list_sep"] 172 set ulistsep [feeds_qm "history_list_sep"]
173
174 # TODO FIXME - does not work as intended, should list feed with latest item's timestamp
175 # and number of items
173 set usql "SELECT feed AS ufeed, utime FROM feeds GROUP BY feed ORDER BY utime DESC,feed DESC" 176 set usql "SELECT feed AS ufeed, utime FROM feeds GROUP BY feed ORDER BY utime DESC,feed DESC"
174 set ulist {} 177 set ulist {}
175 178
176 feeds_dbh eval $usql { 179 feeds_dbh eval $usql {
177 lappend ulist [utl_str_map_values $ulistitem [list $ufeed [utl_ctime $utime]]] 180 lappend ulist [utl_str_map_values $ulistitem [list $ufeed [utl_ctime $utime]]]