diff urllog.tcl @ 295:141bb4a2b76f

utillib: utl_escape (which will be deprecated soon).
author Matti Hamalainen <ccr@tnsp.org>
date Mon, 26 Jan 2015 14:07:16 +0200
parents 2bb9bcfb104a
children ecd465aab52e
line wrap: on
line diff
--- a/urllog.tcl	Mon Jan 26 14:04:17 2015 +0200
+++ b/urllog.tcl	Mon Jan 26 14:07:16 2015 +0200
@@ -187,8 +187,8 @@
 proc urllog_exists {urlStr urlNick urlHost urlChan} {
   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='[urllog_escape $urlStr]'"
-  urldb eval $usql {
+  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 {
     urllog_log "URL said by $urlNick ($urlStr) already known"
     if {$urllog_shorturl != 0} {
       set qstr "[urllog_get_short $uid] "
@@ -215,9 +215,9 @@
   if {$urlTitle == ""} {
     set uins "NULL"
   } else {
-    set uins "'[urllog_escape $urlTitle]'"
+    set uins "'[utl_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)"
+  set usql "INSERT INTO urls (utime,url,user,host,chan,title) VALUES ([unixtime], '[utl_escape $urlStr]', '[utl_escape $urlNick]', '[utl_escape $urlHost]', '[utl_escape $urlChan]', $uins)"
   if {[catch {urldb eval $usql} uerrmsg]} {
     urllog_log "$uerrmsg on SQL:\n$usql"
     return 0
@@ -561,7 +561,7 @@
   foreach ftoken $ftokens {
     set fprefix [string range $ftoken 0 0]
     set fpattern [string range $ftoken 1 end]
-    set qpattern "'%[urllog_escape $fpattern]%'"
+    set qpattern "'%[utl_escape $fpattern]%'"
 
     if {$fprefix == "-"} {
       lappend fpatlist "(url NOT LIKE $qpattern OR title NOT LIKE $qpattern)"
@@ -572,7 +572,7 @@
     } elseif {$fprefix == "+"} {
       lappend fpatlist "(url LIKE $qpattern OR title LIKE $qpattern)"
     } else {
-      set qpattern "'%[urllog_escape $ftoken]%'"
+      set qpattern "'%[utl_escape $ftoken]%'"
       lappend fpatlist "(url LIKE $qpattern OR title LIKE $qpattern)"
     }
   }