From 82f051924902d66b645353fc63d5f99e4ef887ba Mon Sep 17 00:00:00 2001 From: cage Date: Sun, 18 Jun 2023 15:10:35 +0200 Subject: [PATCH] - [GUI] improved error message when an host is not found on gemlogs refreshing. --- data/scripts/gemget.lisp | 7 ++++++- src/gui/server/public-api-gemini-gemlog.lisp | 8 +++++++- 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/data/scripts/gemget.lisp b/data/scripts/gemget.lisp index 78d1f7b..3eb1aa3 100644 --- a/data/scripts/gemget.lisp +++ b/data/scripts/gemget.lisp @@ -25,6 +25,11 @@ (let ((url (read-line *standard-input* nil nil nil))) (write-sequence (gemini-client:slurp-gemini-url url) *standard-output*) (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) diff --git a/src/gui/server/public-api-gemini-gemlog.lisp b/src/gui/server/public-api-gemini-gemlog.lisp index 5d7d68b..26f537e 100644 --- a/src/gui/server/public-api-gemini-gemlog.lisp +++ b/src/gui/server/public-api-gemini-gemlog.lisp @@ -60,4 +60,10 @@ (let ((all-subscribed-gemlogs (mapcar #'db:row-url (db:gemini-all-subscriptions)))) (loop for subscription in all-subscribed-gemlogs 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))))))