iens

commit 91feee2f0764aba0958059922a996b25dfa6b048
parent b38aafcf6daa01b44f2fb8502751b1273cb102ad
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Tue, 31 Mar 2026 17:59:18 +0000

Automatic purge of deleted gruiks
Diffstat:
M
src/cgi.scm
 | 
5
+++++

1 file changed, 5 insertions(+), 0 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -308,6 +308,11 @@ END-OF-CSS
         now))))
 
 (define (catch-up)
+  (let* ((span (get-config "gruik-clean")))
+    (when (number? span)
+      (exec
+        (sql db "DELETE FROM gruik WHERE mark<0 AND mtime<?;")
+        (- (current-seconds) span))))
   (let ((src-path (get-config "gruik-source")))
     (when (not src-path) (die "No source configured"))
     (let* ((fd (file-open src-path open/rdonly))