[wip] feat: add mango-based VDU endpoints

src/mango/src/mango_httpd.erl

@@ -54,6 +54,8 @@ handle_req_int(#httpd{path_parts=[_, <<"_explain">> | _]} = Req, Db) ->
     handle_explain_req(Req, Db);
 handle_req_int(#httpd{path_parts=[_, <<"_find">> | _]} = Req, Db) ->
     handle_find_req(Req, Db);
+handle_req_int(#httpd{path_parts=[_, <<"_update">> | _]} = Req, Db) ->
+    handle_update_req(Req, Db);
 handle_req_int(_, _) ->
     throw({not_found, missing}).
 
@@ -191,6 +193,34 @@ handle_find_req(Req, _Db) ->
     chttpd:send_method_not_allowed(Req, "POST").
 
 
+handle_update_req(#httpd{method='GET'}=Req, Db) ->
+    % TODO retrieve vdus
+    ok.
+
+handle_update_req(#httpd{method='POST'}=Req, Db) ->
+    % submit a doc for validation
+    chttpd:validate_ctype(Req, "application/json"),
+    Doc = chttpd:json_body_obj(Req),
+    case mango_opts:validate_update(Req, Db, Doc) of
+        ok ->
+            couch_db:update_doc(Db, Doc, []),
+            chttpd:send_json(Req, 201, {[{ok, true}]});
+        {error, Message} ->
+            chttpd:send_error(Req, 400, <<"bad_request">>, Message)
+    end;
+
+handle_update_req(#httpd{method='PUT'}=Req, Db) ->
+    % TODO add new vdu
+    ok.
+
+handle_update_req(#httpd{method='DELETE'}=Req, Db) ->
+    % TODO delete a vdu
+    ok.
+
+handle_update_req(Req, _Db) ->
+    chttpd:send_method_not_allowed(Req, "GET,PUT,POST,DELETE").
+
+
 set_user_ctx(#httpd{user_ctx=Ctx}, Db) ->
     {ok, NewDb} = couch_db:set_user_ctx(Db, Ctx),
     NewDb.

src/mango/src/mango_httpd_handlers.erl

@@ -19,6 +19,7 @@ url_handler(_) -> no_match.
 db_handler(<<"_index">>)        -> fun mango_httpd:handle_req/2;
 db_handler(<<"_explain">>)      -> fun mango_httpd:handle_req/2;
 db_handler(<<"_find">>)         -> fun mango_httpd:handle_req/2;
+db_handler(<<"_update">>)       -> fun mango_httpd:handle_req/2;
 db_handler(_) -> no_match.
 
 design_handler(_) -> no_match.

src/mango/src/mango_opts.erl

@@ -14,7 +14,8 @@
 
 -export([
     validate_idx_create/1,
-    validate_find/1
+    validate_find/1,
+    validate_update/3
 ]).
 
 -export([
@@ -157,6 +158,10 @@ validate_find({Props}) ->
     validate(Props, Opts).
 
 
+validate_update(Req, Db, Doc) ->
+    ok. % TODO actually validate
+
+
 validate_bulk_delete({Props}) ->
     Opts = [
         {<<"docids">>, [