Added basic support for URL submission.

davorg · Sep 25, 2012 · 58db343 · 58db343
1 parent 0270578
commit 58db343
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/Shrtr/lib/Shrtr.pm b/Shrtr/lib/Shrtr.pm
@@ -14,6 +14,21 @@ get '/register' => sub {
     template 'register';
 };
 
+get '/submit' => sub {
+    template 'submit';
+};
+
+post '/submit' => sub {
+    if (my $url = param('url') and my $code = param('code')) {
+        my $new_url = $url_rs->create({
+            url => $url,
+            code => $code,
+        });
+
+        template 'saved', { url => $new_url };
+    }
+};
+
 get qr{ /(\w+)\+ }x => sub {
     my ($code) = splat;