Hyperlink-Redirect/lib/Hyperlink-Redirect.rakumod

use Humming-Bird::Core;
use Template6;
use Base64;
use Libarchive::Filter :gzip;

# Normally would 'use' local libs here for Controller and Model and
# what not but keeping it simple for now...

# Set things up (config stuff would go here?)
my $templates = Template6.new;
$templates.add-path: 'templates';

# Must set the root path lest yet miss setting $!root
my $router = Router.new(root => '/');

$router.get(-> $request, $response {
    $response.html($templates.process: 'index');
});

$router.post(-> $request, $response {
    my $hyperlink = $request.content.{'hyperlink'};

    say encode-base64(gzip($hyperlink), :str);

    $response.html($templates.process: 'index', :$hyperlink);
});

# Try a wildcard to catch 'all' path
$router.get('/**', -> $request, $response {
    my $url = $request.path.substr(1); # Omits the leading slash

    $response.redirect($url);
});