diff options
author | Miguel Ángel Moreno <mail@migalmoreno.com> | 2023-04-05 14:07:38 +0200 |
---|---|---|
committer | Miguel Ángel Moreno <mail@migalmoreno.com> | 2023-04-05 14:07:38 +0200 |
commit | 0eba8243b143888fcf512ecb426016befe1a43ac (patch) | |
tree | 40d8822447421b74e44109fa5202cf8da02121cf | |
parent | 18655ee4134ef398bf836f82ef8fdffa52346d92 (diff) |
fix: Fix regex redirects
Fixes cases where the redirect-url is a string-replacement PCRE
-rw-r--r-- | router.lisp | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/router.lisp b/router.lisp index 69a68c5..444639b 100644 --- a/router.lisp +++ b/router.lisp @@ -381,19 +381,15 @@ If REVERSE, reverse the redirect logic." (if (stringp trigger) (if (ppcre:scan trigger (render-url url)) (ppcre:regex-replace - trigger (render-url url) (render-url redirect-url)) + trigger (render-url url) redirect-url) url) (if redirect-rule (typecase redirect-rule (string (if (ppcre:scan redirect-rule (render-url url)) (ppcre:regex-replace - redirect-rule (render-url url) - (render-url redirect-url)) - url) - (ppcre:regex-replace - redirect-rule (render-url url) - (render-url redirect-url))) + redirect-rule (render-url url) redirect-url) + url)) (list (quri:copy-uri url :host (quri:uri-host redirect) |