Mercurial > hg > egg-tcls
changeset 433:2484f438b7d3
feeds: Use utl_escape() instead of our own copy.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 09 Jan 2017 04:08:43 +0200 |
parents | 124b97f5a19d |
children | 366324c417d8 |
files | feeds.tcl |
diffstat | 1 files changed, 1 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/feeds.tcl Mon Jan 09 03:55:53 2017 +0200 +++ b/feeds.tcl Mon Jan 09 04:08:43 2017 +0200 @@ -37,10 +37,6 @@ # ------------------------------------------------------------------------ -proc feeds_escape { str } { - return [string map {' ''} $str] -} - proc feeds_smsg {uchan umsg} { global feeds_preferredmsg putserv "$feeds_preferredmsg $uchan :$umsg" @@ -166,7 +162,7 @@ global feeds_dbh set ufound 0 - 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" + set usql "SELECT url AS uurl, feed AS ufeed, title AS utitle, utime AS utime FROM feeds WHERE feed LIKE '%[string tolower [utl_escape $utext]]%' ORDER BY utime DESC LIMIT 1" feeds_dbh eval $usql { feeds_smsg $uchan "Uusin '$ufeed' / [feeds_ctime $utime]: $utitle -- $uurl" set ufound 1