swaggboi/Hyperlink-Redirect
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Whoopsies 2: Electric Boogaloo

Browse Source
This commit is contained in:
swaggboi 2023-11-13 21:15:26 -05:00
parent 93b7ba6717
commit 6e8a763929
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lib/Hyperlink-Redirect.rakumod
View File

@ -30,7 +30,7 @@ $router.post(-> $request, $response {
my Str $return-url = fix-protocol($request.content<hyperlink>); my Str $return-url = fix-protocol($request.content<hyperlink>);
my Bool $meta-refresh = $request.content<meta-refresh>.defined; my Bool $meta-refresh = $request.content<meta-refresh>.defined;
my Str $url-scheme = $request.headers<x-forwarded-proto> || 'http'; my Str $url-scheme = $request.headers<x-forwarded-proto> || 'http';
my Any $url-host = $request.headers<host>; my Str $url-host = $request.headers<host>;
my (Str $base-url, Str $hyperlink, Str %stash); my (Str $base-url, Str $hyperlink, Str %stash);
$base-url = $url-scheme ~ '://' ~ $url-host ~ $base-url = $url-scheme ~ '://' ~ $url-host ~
@ -56,6 +56,6 @@ $router.get('/**', -> $request, $response {
my Str $return-url = $request.path.substr(1); # Omits the leading slash my Str $return-url = $request.path.substr(1); # Omits the leading slash
my Str $redirect-url = gunzip(decode-base64($return-url, :bin)); my Str $redirect-url = gunzip(decode-base64($return-url, :bin));
$response.redirect($redirect-url); $response.redirect($redirect-url);
}); });