Initial commit++
This commit is contained in:
parent
f52befb644
commit
9fcc556a60
0
Dockerfile
Normal file
0
Dockerfile
Normal file
7
META6.json
Normal file
7
META6.json
Normal file
|
@ -0,0 +1,7 @@
|
||||||
|
{
|
||||||
|
"name": "Hyperlink-Redirect",
|
||||||
|
"depends": ["Humming-Bird"],
|
||||||
|
"provides": {
|
||||||
|
"Hyperlink-Redirect": "lib/Hyperlink-Redirect.rakumod"
|
||||||
|
}
|
||||||
|
}
|
|
@ -1,3 +1,7 @@
|
||||||
# Hyperlink-Redirect
|
# Hyperlink-Redirect
|
||||||
|
|
||||||
A "useful" tool for turning hyperlinks into redirects in the name of shortening hyperlinks! 🧠 🧑🔬
|
A "useful" tool for turning hyperlinks into redirects in the name of shortening hyperlinks! 🧠 🧑🔬
|
||||||
|
|
||||||
|
## TODO
|
||||||
|
|
||||||
|
1. Fix my `.emacs` to style stuff in a way that is not in fact insane
|
||||||
|
|
14
bin/hyperlink-redirect
Executable file
14
bin/hyperlink-redirect
Executable file
|
@ -0,0 +1,14 @@
|
||||||
|
#!/usr/bin/env raku
|
||||||
|
|
||||||
|
# It is important that you import App::MyService after
|
||||||
|
# Humming-Bird::Core to avoid having some weird side-effects with
|
||||||
|
# route declarations in your service
|
||||||
|
|
||||||
|
use v6.d;
|
||||||
|
use Humming-Bird::Core;
|
||||||
|
|
||||||
|
# Local libs
|
||||||
|
use lib 'lib';
|
||||||
|
use Hyperlink-Redirect;
|
||||||
|
|
||||||
|
listen(3000);
|
13
lib/Hyperlink-Redirect.rakumod
Normal file
13
lib/Hyperlink-Redirect.rakumod
Normal file
|
@ -0,0 +1,13 @@
|
||||||
|
use v6.d;
|
||||||
|
|
||||||
|
use Humming-Bird::Core;
|
||||||
|
|
||||||
|
# Normally would 'use' local libs here for Controller and Model and
|
||||||
|
# what not but keeping it simple for now...
|
||||||
|
|
||||||
|
# Must set the root path lest yet miss setting $!root
|
||||||
|
my $router = Router.new(root => '/');
|
||||||
|
|
||||||
|
$router.get(-> $request, $response {
|
||||||
|
$response.write('testing 123...')
|
||||||
|
});
|
Loading…
Reference in a new issue