cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- skipped redirect if parsing of iri failed.

This commit is contained in:
cage 2021-11-15 18:17:21 +01:00
parent e5597c6a80
commit 5e035458fe
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/gemini-viewer.lisp
View File

@ -641,7 +641,7 @@
(flet ((on-input-complete (maybe-accepted) (flet ((on-input-complete (maybe-accepted)
(when (ui::boolean-input-accepted-p maybe-accepted) (when (ui::boolean-input-accepted-p maybe-accepted)
(pop-url-from-history specials:*message-window*) (pop-url-from-history specials:*message-window*)
(let ((new-url (gemini-client:build-redirect-iri meta (when-let ((new-url (gemini-client:build-redirect-iri meta
parsed-iri))) parsed-iri)))
(db-utils:with-ready-database (:connect nil) (db-utils:with-ready-database (:connect nil)
(request new-url (request new-url

3
src/gemini/client.lisp
View File

@ -541,7 +541,8 @@ TODO: Add client certificate."
(labels ((redirect-dispatch (status code-description meta response socket iri parsed-iri) (labels ((redirect-dispatch (status code-description meta response socket iri parsed-iri)
(declare (ignore status code-description response socket parsed-iri)) (declare (ignore status code-description response socket parsed-iri))
(when (< redirect-count +maximum-redirections+) (when (< redirect-count +maximum-redirections+)
(slurp-gemini-url (build-redirect-iri meta iri) (1+ redirect-count)))) (when-let ((iri-redirect (build-redirect-iri meta iri)))
(slurp-gemini-url iri-redirect (1+ redirect-count)))))
(success-dispatch (status code-description meta response socket iri parsed-iri) (success-dispatch (status code-description meta response socket iri parsed-iri)
(declare (ignorable code-description iri meta parsed-iri)) (declare (ignorable code-description iri meta parsed-iri))
(debug-gemini "success response data: ~s ~s ~s ~s ~s ~s" (debug-gemini "success response data: ~s ~s ~s ~s ~s ~s"