iens

commit d1246c6705d301bad38df3640e9cd2a4e3ed56bc
parent 16598bc96b4e2fc499663c93a009c2b2ee0d8d36
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Mon,  3 Aug 2026 17:56:37 +0000

Source errors make get-gruik proceed to the next source
Diffstat:
M
src/get-gruiks.scm
 | 
29
+++++++++++++++++------------

1 file changed, 17 insertions(+), 12 deletions(-)
diff --git a/src/get-gruiks.scm b/src/get-gruiks.scm
@@ -13,6 +13,7 @@
 ; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 
 (import
+  (chicken condition)
   (chicken io)
   (chicken process-context)
   (chicken string)
@@ -131,18 +132,22 @@
       result)))
 
 (define (process-source name url last-modified etag)
-  (let* ((rss (get-source rss:read url last-modified etag))
-         (source (if (string=? name url)
-                     (begin
-                       (exec (sql db "UPDATE source_rss SET name=?
-                                      WHERE name=? AND url=?;")
-                             (rss:item-title (rss:feed-channel rss))
-                             name url)
-                       (rss:item-title (rss:feed-channel rss)))
-                     name)))
-    (assert source)
-    (when rss
-      (process-rss source (rss:feed-items rss)))))
+  (condition-case
+    (let* ((rss (get-source rss:read url last-modified etag))
+           (source (if (string=? name url)
+                       (begin
+                         (exec (sql db "UPDATE source_rss SET name=?
+                                        WHERE name=? AND url=?;")
+                               (rss:item-title (rss:feed-channel rss))
+                               name url)
+                         (rss:item-title (rss:feed-channel rss)))
+                       name)))
+      (assert source)
+      (when rss
+        (process-rss source (rss:feed-items rss))))
+    (exn () (write-line (conc "Error while checking " name))
+            (print-error-message exn))))
+
 
 ;;;;;;;;;;;;;;;
 ;; Actual Run