iens

commit 5c782ee013efb775c2b3d0db3f7dad6088bc5759
parent 2a0bae4122b2dce6d5ee559cb16f715c53253ebe
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Tue, 18 Aug 2026 18:48:20 +0000

lastseen is considered in gruik purge
Diffstat:
M
src/cgi.scm
 | 
4
+++-

1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -356,7 +356,9 @@ END-OF-CSS
   (let* ((span (get-config "gruik-clean")))
     (when (number? span)
       (exec
-        (sql db "DELETE FROM gruik WHERE mark<0 AND mtime<?;")
+        (sql db "DELETE FROM gruik
+                 WHERE mark < 0 AND mtime < ?1
+                   AND (lastseen IS NULL OR lastseen < ?1);")
         (- (current-seconds) span))))
   (let ((src-path (get-config "gruik-source")))
     (when src-path