cage/tinmop
1
0
Fork 0
mirror of https://codeberg.org/cage/tinmop/ synced 2025-02-01 04:26:47 +01:00
Code Issues

- [GUI] improved error message when an host is not found on gemlogs refreshing.

Browse Source
This commit is contained in:
cage 2023-06-18 15:10:35 +02:00
parent b220bc8acb
commit 82f0519249
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
data/scripts/gemget.lisp
View File

@ -25,6 +25,11 @@
(let ((url (read-line *standard-input* nil nil nil))) (let ((url (read-line *standard-input* nil nil nil)))
(write-sequence (gemini-client:slurp-gemini-url url) *standard-output*) (write-sequence (gemini-client:slurp-gemini-url url) *standard-output*)
(os-utils:exit-program 0)) (os-utils:exit-program 0))
(error () (os-utils:exit-program 1)))) (usocket:ns-host-not-found-error (e)
(format *error-output* "~a ~a~%" e (usocket:host-or-ip e))
(os-utils:exit-program 1))
(error (e)
(format *error-output* "~a~%" e)
(os-utils:exit-program 1))))
(main) (main)

8
src/gui/server/public-api-gemini-gemlog.lisp
View File

@ -60,4 +60,10 @@
(let ((all-subscribed-gemlogs (mapcar #'db:row-url (db:gemini-all-subscriptions)))) (let ((all-subscribed-gemlogs (mapcar #'db:row-url (db:gemini-all-subscriptions))))
(loop for subscription in all-subscribed-gemlogs (loop for subscription in all-subscribed-gemlogs
collect collect
(gemini-gemlog-refresh-subscription subscription)))) (handler-case
(gemini-gemlog-refresh-subscription subscription)
(usocket:ns-host-not-found-error (e)
(error (_ "unable to connect to \"~a\": host not found")
(usocket:host-or-ip e)))
(error (e)
(error e))))))