iens

commit e3077978f1428fc0c3c737503e1f37613f00ef07
parent 5c782ee013efb775c2b3d0db3f7dad6088bc5759
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Wed, 19 Aug 2026 18:24:24 +0000

lastseen is updated for the whole section on 304
Diffstat:
M
src/get-gruiks.scm
 | 
8
++++++--

1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/src/get-gruiks.scm b/src/get-gruiks.scm
@@ -196,7 +196,7 @@
                              ((1) (get-atom url last-modified etag))
                              ((2) (get-rss  url last-modified etag))
                              (else #f))))
-      (when data
+      (if data
         (let ((args (list
                       (if (string=? name url)
                           (begin
@@ -209,7 +209,11 @@
           (case (car data)
             ((1) (apply process-atom args))
             ((2) (apply process-rss  args))
-            (else (assert #f "Bad process index"))))))
+            (else (assert #f "Bad process index"))))
+        (exec (sql db "UPDATE gruik
+                       SET lastseen=CAST(strftime('%s', 'now') as INT)
+                       WHERE section=?;")
+              name)))
     (exn (user-interrupt) (signal exn))
     (exn () (write-line (conc "Error while checking " name))
             (print-error-message exn))))