iens

commit aec5f5b2dab6eb533bc9ad2e531793ed20b4087e
parent 43a962a5990fabf23ac07199e2418235ee7b9098
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Sat,  6 Jun 2026 18:48:04 +0000

update-feed is corrected in CGI
Diffstat:
M
src/cgi.scm
 | 
14
++++++++++----

1 file changed, 10 insertions(+), 4 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm
@@ -834,10 +834,16 @@ END-OF-CSS
   (exec (sql/transient db "UPDATE feed SET mtime=? WHERE id=?;")
         (current-seconds)
         id)
-  (query (for-each-row
-           (lambda (row)
-             (apply generate-feed*
-               (cons (string-append feed-root (car row)) (cdr row)))))
+  (query (for-each-row*
+           (lambda (filename mtime title self-url selector)
+             (let ((rows (feed-rows selector)))
+               (unless (null? rows)
+                 (with-output-to-file (string-append feed-root filename)
+                   (lambda ()
+                     (if (null? mtime) (list-ref (car rows) 7) mtime)
+                     title
+                     self-url
+                     rows))))))
          (sql/transient db
            "SELECT filename,mtime,title,url,selector FROM feed WHERE id=?;")
          id))