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

Whoopsies 2: Electric Boogaloo

Browse source
This commit is contained in:
swagg boi 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 Bool $meta-refresh = $request.content<meta-refresh>.defined;
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);
$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 $redirect-url = gunzip(decode-base64($return-url, :bin));
$response.redirect($redirect-url);
});