Mercurial > hg > egg-tcls
changeset 297:ecd465aab52e
urllog: 10L.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 26 Jan 2015 15:23:33 +0200 |
parents | a7455b0dc144 |
children | 67e43d6f5c41 |
files | urllog.tcl |
diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/urllog.tcl Mon Jan 26 14:14:17 2015 +0200 +++ b/urllog.tcl Mon Jan 26 15:23:33 2015 +0200 @@ -188,7 +188,7 @@ global urldb urlmsg_alreadyknown urllog_shorturl set usql "SELECT id AS uid, utime AS utime, url AS uurl, user AS uuser, host AS uhost, chan AS uchan, title AS utitle FROM urls WHERE url='[utl_escape $urlStr]'" - $usql foreach urow { + urldb eval $usql { urllog_log "URL said by $urlNick ($urlStr) already known" if {$urllog_shorturl != 0} { set qstr "[urllog_get_short $uid] "