commit b788af31b8bdb37346026a6885c600324b57cda0 parent 7ce58e3235ae9a47dfa3ccda37460b65fa267ec8 Author: Natasha Kerensikova <natgh@instinctive.eu> Date: Tue, 21 Jul 2026 18:21:33 +0000 Gruik source is optional Diffstat:
| M | src/cgi.scm | | | 28 | ++++++++++++++-------------- |
1 file changed, 14 insertions(+), 14 deletions(-)
diff --git a/src/cgi.scm b/src/cgi.scm @@ -340,20 +340,20 @@ END-OF-CSS (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)) - (so (get-config/default "gruik-seen" 0)) - (_ (set-file-position! fd so seek/set))) - (let loop ((offset so)) - (let ((rp (read-line-pos fd))) - (if (= (cadr rp) offset) - (exec - (sql/transient db "INSERT OR REPLACE INTO config VALUES (?,?);") - "gruik-seen" - offset) - (begin - (apply insert-line rp) - (loop (cadr rp))))))))) + (when src-path + (let* ((fd (file-open src-path open/rdonly)) + (so (get-config/default "gruik-seen" 0)) + (_ (set-file-position! fd so seek/set))) + (let loop ((offset so)) + (let ((rp (read-line-pos fd))) + (if (= (cadr rp) offset) + (exec + (sql/transient db "INSERT OR REPLACE INTO config VALUES (?,?);") + "gruik-seen" + offset) + (begin + (apply insert-line rp) + (loop (cadr rp)))))))))) (define (redirect location) (write-string "Status: 302\r\nLocation: ")