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 $return-url = $request.content.{'hyperlink'}; my $url-scheme = $request.headers.{'X-Forwarded-Proto'} || 'http'; my $url-host = $request.headers.{'Host'}; my $base-url = $url-scheme ~ '://' ~ $url-host ~ '/'; my $hyperlink = $base-url ~ encode-base64(gzip($return-url), :str); $response.html($templates.process: 'index', :$hyperlink); }); # Try a wildcard to catch 'all' path $router.get('/**', -> $request, $response { my $return-url = $request.path.substr(1); # Omits the leading slash my $redirect-url = gunzip(decode-base64($return-url, :bin)); $response.redirect($redirect-url); });