Implement create, verify

2 files changed, 44 insertions, 1 deletions

diff --git a/server/.gitignore b/server/.gitignore
index 4f6d02f..25b78fd 100644
--- a/server/.gitignore
+++ b/server/.gitignore
@@ -5,3 +5,5 @@
 *~
 
 dist
+
+store
diff --git a/server/service.raku b/server/service.raku
index 00d1c51..2e63e3f 100644
--- a/server/service.raku
+++ b/server/service.raku
@@ -6,13 +6,54 @@ unit sub MAIN(
     Bool :$debug = True, #= enable debug mode
 );
 
+my IO() $store = "store";
+mkdir $store;
+die "Store doesn't exist" unless $store.d;
+
 my $application = route {
-    post -> 'new' {
+    post -> 'create' {
         request-body -> (:$name) {
+            my Str $id = ('a'...'z', 'A'...'Z', 0...9).roll(32).join;
+            my Str $auth = ('a'...'z', 'A'...'Z', 0...9).roll(32).join;
+
+            my IO() $user-store = "%s/%s".sprintf: $store, $id;
+            mkdir $user-store;
+            die "Failed to create user store" unless $user-store.d;
+            spurt "$user-store/name", "$name";
+            spurt "$user-store/auth", "$auth";
 
+            content 'application/json', %(:$id, :$auth);
         }
     }
 
+    post -> 'verify' {
+        request-body -> (:$id, :$auth) {
+            my IO() $user-store = "%s/%s".sprintf: $store, $id;
+            my %res;
+
+            if $user-store.d {
+                %res<name> = "$user-store/name".IO.slurp;
+                %res<status> = "Authentication Failed." if "$user-store/auth".IO.slurp ne $auth;
+                %res<status> //= "Verified";
+            } else {
+                %res<status> = "User doesn't exist or has been deleted.";
+            }
+
+            content 'application/json', %res;
+        }
+    }
+
+    post -> 'upload' {
+        request-body-blob
+        'image/png' => -> $png {
+            ...
+        },
+        'image/jpeg' => -> $jpeg {
+            ...
+        },
+        { bad-request 'text/plain', 'Only png or jpeg allowed'; }
+    }
+
     # Serving static assets.
     get -> 'js', *@path { static 'dist/js', @path; }
     get -> 'css', *@path { static 'dist/css', @path; }