drudgesentinel/Hyperlink-Redirect
1
0
Fork 0
forked from swaggboi/Hyperlink-Redirect
Code Pull requests Activity

https now automatically added if not present

Browse source
This commit is contained in:
worm 2023-11-13 16:46:19 -08:00
parent ab2b250667
commit f7dd150728
2 changed files with 23 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
lib/Helpers.rakumod Normal file
View file

@ -0,0 +1,19 @@
my $starts-with-protocol = rx:i/ ^https?\:\/\//;
sub fix-protocol ($url) is export {
return "https://" ~ $url unless $url ~~ $starts-with-protocol;
}
# I use a dedicated method to remove all debugging messages prior to commit
sub dbug($message) {
say "$message";
}
#error types
# Just string is provided:
# ERROR: Malformed UTF-8 near byte 81 at line 1 col 2
# TYPE: X::AdHoc
# ERROR: Stringification of a Buf is not done with 'Stringy'. The 'decode'
# method should be used to convert a Buf to a Str.
# TYPE: X::Buf::AsStr

6
lib/Hyperlink-Redirect.rakumod
View file

@ -4,6 +4,7 @@ use Humming-Bird::Advice;
use Template::Mustache; use Template::Mustache;
use Base64; use Base64;
use Libarchive::Filter :gzip; use Libarchive::Filter :gzip;
use Helpers;
# Normally would 'use' local libs here for Controller and Model and # Normally would 'use' local libs here for Controller and Model and
# what not but keeping it simple for now... # what not but keeping it simple for now...
@ -25,7 +26,7 @@ $router.get(-> $request, $response {
}); });
$router.post(-> $request, $response { $router.post(-> $request, $response {
my Str $return-url = $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 Str $url-host = $request.headers<Host>; my Str $url-host = $request.headers<Host>;
@ -52,7 +53,8 @@ $router.get('/--meta-refresh/**', -> $request, $response {
$router.get('/**', -> $request, $response { $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);
}); });