tii

commit eba9c47e59ccb95209b38188a2389a63b39e333b
parent 06e507baaefb38853d5039bc25f58ddfd75b78dc
Author: Luxferre <lux@ferre>
Date:   Sun, 27 Oct 2024 18:49:23 +0200

improved search filter

Diffstat:
M
tiifetch.tcl
 | 
5
++++-
M
tiix.tcl
 | 
3
++-

2 files changed, 6 insertions(+), 2 deletions(-)
diff --git a/tiifetch.tcl b/tiifetch.tcl
@@ -154,7 +154,10 @@ proc getfile {url} {
       } else {return {}}
     }
     https - http {
-      set hs [::http::geturl $url -binary 1 -keepalive 0 -timeout 10000]
+      set hs ""
+      while {$hs eq ""} {
+        set hs [::http::geturl $url -binary 1 -keepalive 0 -timeout 10000]
+      }
       if {[::http::ncode $hs] eq "200"} {
         return [::http::data $hs]
       } else {return {}}
diff --git a/tiix.tcl b/tiix.tcl
@@ -138,7 +138,8 @@ proc tiix_viewecho {} {
   sqlite3 msgdb $localdb -readonly true
   set query {SELECT * FROM `msg` WHERE `echoname` = $tiix_echoname}
   if {$tiix_filter_regex ne {}} {
-    append query { AND (`body` LIKE $tiix_filter_regex OR `subj` LIKE $tiix_filter_regex) }
+    set flt "%$tiix_filter_regex%"
+    append query { AND (`body` LIKE $flt OR `subj` LIKE $flt) }
   }
   if {$tiix_order_byid eq 1} {
     append query { ORDER BY `id` }