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

Added some dependencies for gzip/base64; need to switch computers for libarchive support...

Browse Source
This commit is contained in:
swaggboi 2023-10-07 21:10:33 -04:00
parent 71ea81d18e
commit 4bfa6b1b0f
3 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
META6.json
View File

@ -2,7 +2,9 @@
"name": "Hyperlink-Redirect", "name": "Hyperlink-Redirect",
"depends": [ "depends": [
"Humming-Bird", "Humming-Bird",
"Template6" "Template6",
"Base64",
"Libarchive::Filter"
], ],
"provides": { "provides": {
"Hyperlink-Redirect": "lib/Hyperlink-Redirect.rakumod" "Hyperlink-Redirect": "lib/Hyperlink-Redirect.rakumod"

2
README.md
View File

@ -10,7 +10,7 @@ A "useful" tool for turning hyperlinks into redirects in the name of shortening
### Run the guy ### Run the guy
raku bin/hyperlink-redirect ./bin/hyperlink-redirect
## TODO ## TODO

8
lib/Hyperlink-Redirect.rakumod
View File

@ -1,5 +1,7 @@
use Humming-Bird::Core; use Humming-Bird::Core;
use Template6; use Template6;
use Base64;
use Libarchive::Filter :gzip;
# 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...
@ -16,7 +18,11 @@ $router.get(-> $request, $response {
}); });
$router.post(-> $request, $response { $router.post(-> $request, $response {
$response.html($templates.process: 'index'); my $hyperlink = $request.content.{'hyperlink'};
say encode-base64(gzip($hyperlink), :str);
$response.html($templates.process: 'index', :$hyperlink);
}); });
# Try a wildcard to catch 'all' path # Try a wildcard to catch 'all' path