Mercurial > hg > egg-tcls
changeset 93:4e02c0219afe
urllog: Insert NULL into title column when we didn't get a title.
author | Matti Hamalainen <ccr@tnsp.org> |
---|---|
date | Mon, 12 Sep 2011 17:46:55 +0300 |
parents | f6f4595856ff |
children | b4fdb3300faa |
files | urllog.tcl |
diffstat | 1 files changed, 6 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/urllog.tcl Mon Sep 12 17:21:25 2011 +0300 +++ b/urllog.tcl Mon Sep 12 17:46:55 2011 +0300 @@ -316,7 +316,12 @@ proc urllog_addurl {urlStr urlNick urlHost urlChan urlTitle} { global urldb urllog_shorturl - set usql "INSERT INTO urls (utime,url,user,host,chan,title) VALUES ([unixtime], '[urllog_escape $urlStr]', '[urllog_escape $urlNick]', '[urllog_escape $urlHost]', '[urllog_escape $urlChan]', '[urllog_escape $urlTitle]')" + if {$urlTitle == ""} { + set uins "NULL" + } else { + set uins "'[urllog_escape $urlTitle]'" + } + set usql "INSERT INTO urls (utime,url,user,host,chan,title) VALUES ([unixtime], '[urllog_escape $urlStr]', '[urllog_escape $urlNick]', '[urllog_escape $urlHost]', '[urllog_escape $urlChan]', $uins)" if {[catch {urldb eval $usql} uerrmsg]} { urllog_log "$uerrmsg on SQL:\n$usql" return 0