Initial commit++

README.md

@@ -1,3 +1,9 @@
 # hr2
 
-Sequel to the smash hit [Hyperlink-Redirect](https://git.seriousbusiness.international/swaggboi/Hyperlink-Redirect)
+Sequel to the smash hit
+[Hyperlink-Redirect](https://git.seriousbusiness.international/swaggboi/Hyperlink-Redirect)
+
+## TODOs
+
+- Tests
+- Fill in placeholder comments

hr2.pl

@@ -0,0 +1,37 @@
+#!/usr/bin/env perl
+
+# May 2025
+# Jia Tan <JiaT75@gmail.com>
+
+use Mojolicious::Lite -signatures;
+use Mojo::Util qw{b64_decode b64_encode
+                  gunzip gzip
+                  url_escape url_unescape};
+
+get '/', sub ($c) { $c->redirect_to('create') };
+
+get '/create', sub ($c) {
+    $c->render;
+};
+
+post '/create', sub ($c) {
+    # Process the input...
+
+    $c->render;
+};
+
+get '/--meta-refresh/*hyperlink', sub ($c) {
+    my $hyperlink = $c->param('hyperlink');
+    # Process input...
+
+    $c->redirect_to($hyperlink);
+};
+
+get '/*hyperlink', sub ($c) {
+    my $hyperlink = $c->param('hyperlink');
+    # Process input...
+
+    $c->redirect_to($hyperlink);
+};
+
+app->start;