Mercurial > hg > egg-tcls
changeset 252:eb2fce89b8ab
urllog: Comment out some currently unused code.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Tue, 20 Jan 2015 00:01:23 +0200 |
parents | e59f0c3ea0f4 |
children | dd30f2eaabd3 |
files | urllog.tcl |
diffstat | 1 files changed, 6 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/urllog.tcl Tue Jan 20 00:01:02 2015 +0200 +++ b/urllog.tcl Tue Jan 20 00:01:23 2015 +0200 @@ -440,11 +440,12 @@ ### Check now if we have an ShortURL here ... if {[string match "$urllog_shorturl_prefix*" $urlStr]} { urllog_log "Ignoring ShortURL from $urlNick: $urlStr" - set uud "" - set usql "SELECT id AS uid, url AS uurl, user AS uuser, host AS uhost, chan AS uchan, title AS utitle FROM urls WHERE utime=$uud" - urldb eval $usql { - - } +# set uud "" +# set usql "SELECT id AS uid, url AS uurl, user AS uuser, host AS uhost, chan AS uchan, title AS utitle FROM urls WHERE utime=$uud" +# urldb eval $usql { +# urllog_verb_msg $urlNick $urlChan "'$utitle' - $uurl" +# return 1 +# } return 0 }