# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1315838815 -10800
# Node ID 4e02c0219afe40ba86fad2abf0a3c4143db222aa
# Parent  f6f4595856ff134e62d829f55371fea426e700eb
urllog: Insert NULL into title column when we didn't get a title.

diff -r f6f4595856ff -r 4e02c0219afe urllog.tcl
--- 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