Mercurial > hg > egg-tcls
changeset 20:45b76d81e256
Start adding channel information to URL database.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 05 Sep 2011 17:08:45 +0300 |
parents | 9cf22053e5da |
children | 5162abae15fd |
files | urllog.tcl |
diffstat | 1 files changed, 3 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/urllog.tcl Mon Sep 05 16:56:13 2011 +0300 +++ b/urllog.tcl Mon Sep 05 17:08:45 2011 +0300 @@ -282,14 +282,14 @@ ### Let's check if we already know the URL set tmpURL [urllog_escape $urlStr] - urldb eval "SELECT id AS urlID, utime AS utime, url AS uurl, user AS uuser, host AS uhost FROM urls WHERE url='$tmpURL'" { + urldb eval "SELECT id AS urlID, utime AS utime, url AS uurl, user AS uuser, host AS uhost, chan AS uchan FROM urls WHERE url='$tmpURL'" { urllog_log "URL said by $urlNick ($urlStr) already known" if {$urllog_shorturl != 0} { set qstr "[urllog_get_short $urlID] " } else { set qstr "" } - append qstr "($uuser@[urllog_ctime $utime])" + append qstr "($uuser/$uchan@[urllog_ctime $utime])" if {[string length $urlTitle] > 0} { set qstr "$urlmsg_alreadyknown - '$urlTitle' $qstr" } else { @@ -301,7 +301,7 @@ ### OK, the URL was not already known - thus we add it - set sql "INSERT INTO urls (utime,url,user,host) VALUES ([unixtime], '[urllog_escape $urlStr]', '[urllog_escape $urlNick]', '[urllog_escape $urlHost]')" + set sql "INSERT INTO urls (utime,url,user,host,chan) VALUES ([unixtime], '[urllog_escape $urlStr]', '[urllog_escape $urlNick]', '[urllog_escape $urlHost]', '[urllog_escape $urlChan]')" if {[catch {urldb eval $sql} uerrmsg]} { urllog_log "$uerrmsg on SQL:\n$sql" return 0