diff quotedb.tcl @ 517:894bc9632ece

quotedb: Check if any search parameters have been given, error out if not.
author Matti Hamalainen <ccr@tnsp.org>
date Sat, 02 May 2020 07:38:07 +0300
parents 4995ee3a95db
children 7fdc069840cc
line wrap: on
line diff
--- a/quotedb.tcl	Sat May 02 07:17:17 2020 +0300
+++ b/quotedb.tcl	Sat May 02 07:38:07 2020 +0300
@@ -414,12 +414,15 @@
       lappend fpatlist "utext LIKE '%[utl_escape $ftoken]%'"
     }
   }
-  if {[llength $fpatlist] > 0} {
-    set fquery "WHERE [join $fpatlist " AND "]"
-  } else {
-    set fquery ""
+
+  # Check if any arguments exist
+  if {[llength $fpatlist] == 0} {
+    qdb_msg $ucmd $utable $upublic $unick $uchan "no_arguments"
+    return 0
   }
 
+  set fquery "WHERE [join $fpatlist " AND "]"
+
   ### Query the database and output results
   set uresults 0
   set usql "SELECT id AS quoteID, utime AS utime, utext AS utext, user AS uuser FROM $utable $fquery ORDER BY utime DESC LIMIT $ulimit"