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

lil moar cleanup

Browse Source
This commit is contained in:
swaggboi 2023-11-03 13:20:12 -04:00
parent ccc9479d59
commit ab2b250667
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lib/Hyperlink-Redirect.rakumod
View File

@ -25,10 +25,10 @@ $router.get(-> $request, $response {
}); });
$router.post(-> $request, $response { $router.post(-> $request, $response {
my Str $return-url = $request.content.<hyperlink>; my Str $return-url = $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 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 = $url-scheme ~ '://' ~ $url-host ~ $base-url = $url-scheme ~ '://' ~ $url-host ~