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

- [gemini] remove redirect loop when the meta was an absolute URI.

This commit is contained in:
cage 2022-07-15 10:39:24 +02:00
parent de980b44b7
commit d45388e4dc
1 changed files with 13 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gemini/client.lisp
View File

@ -520,6 +520,8 @@
(defmethod build-redirect-iri (meta (iri-from iri:iri))
(let* ((meta-url (ignore-errors (iri:iri-parse meta))))
(when meta-url
(if (absolute-gemini-url-p meta)
meta
(let* ((meta-query (uri:query meta-url))
(meta-path (uri:path meta-url))
(meta-path-query (if meta-query
@ -529,7 +531,7 @@
(uri:host iri-from)
(uri:port iri-from)
(uri:path iri-from))))
new-url))))
new-url)))))
(defmethod build-redirect-iri (meta (iri-from string))
(build-redirect-iri meta (iri:iri-parse iri-from)))