validate that a system db cannot be partitioned

1 files changed, 15 insertions, 0 deletions

diff --git a/src/chttpd/src/chttpd_db.erl b/src/chttpd/src/chttpd_db.erl
index d6f27f44f..9dab4b5bd 100644
--- a/src/chttpd/src/chttpd_db.erl
+++ b/src/chttpd/src/chttpd_db.erl
@@ -346,6 +346,9 @@ create_db_req(#httpd{}=Req, DbName) ->
         {initial_props, [{partitioned, Partitioned}]}
     ] ++ EngineOpt,
     DocUrl = absolute_uri(Req, "/" ++ couch_util:url_encode(DbName)),
+
+    ok = validate_partition_database_create(DbName, Partitioned),
+
     case fabric:create_db(DbName, Options) of
     ok ->
         send_json(Req, 201, [{"Location", DocUrl}], {[{ok, true}]});
@@ -1628,6 +1631,18 @@ extract_header_rev(Req, ExplicitRev) ->
     end.
 
 
+% cannot partition a system database
+validate_partition_database_create(DbName, Partitioned) ->
+    SystemId = DbName =:= ?l2b(config:get("mem3", "shards_db", "_dbs")) orelse
+        lists:member(DbName, ?SYSTEM_DATABASES),
+    case {Partitioned, SystemId} of
+        {true, true} ->
+            throw({bad_request, <<"Cannot partition a system database">>});
+        {_, _} ->
+            ok
+    end.
+
+
 validate_attachment_names(Doc) ->
     lists:foreach(fun(Att) ->
         Name = couch_att:fetch(name, Att),