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

lil clean-up

Browse source
This commit is contained in:
swagg boi 2023-11-03 12:54:11 -04:00
parent 6579433c62
commit ccc9479d59
1 changed files with 2 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lib/Hyperlink-Redirect.rakumod
View file

@ -31,9 +31,8 @@ $router.post(-> $request, $response {
my Str $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 = $meta-refresh $base-url = $url-scheme ~ '://' ~ $url-host ~
?? $url-scheme ~ '://' ~ $url-host ~ '/--meta-refresh/' ($meta-refresh ?? '/--meta-refresh/' !! '/');
!! $url-scheme ~ '://' ~ $url-host ~ '/';
$hyperlink = $base-url ~ encode-base64(gzip($return-url), :str); $hyperlink = $base-url ~ encode-base64(gzip($return-url), :str);