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

- added query to redirect if present in the redirect iri.

This commit is contained in:
cage 2021-11-15 18:11:36 +01:00
parent 2f59f589f1
commit e5597c6a80
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/gemini/client.lisp
View File

@ -513,11 +513,18 @@
(defgeneric build-redirect-iri (meta iri-from))
(defmethod build-redirect-iri (meta (iri-from iri:iri))
(let ((new-url (gemini-parser:absolutize-link meta
(uri:host iri-from)
(uri:port iri-from)
(uri:path iri-from))))
new-url))
(let* ((meta-url (ignore-errors (iri:iri-parse meta))))
(when meta-url
(let* ((meta-query (uri:query meta-url))
(meta-path (uri:path meta-url))
(meta-path-query (if meta-query
(strcat meta-path "?" meta-query)
meta-path))
(new-url (gemini-parser:absolutize-link meta-path-query
(uri:host iri-from)
(uri:port iri-from)
(uri:path iri-from))))
new-url))))
(defmethod build-redirect-iri (meta (iri-from string))
(build-redirect-iri meta (iri:iri-parse iri-from)))