summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorDamien F. Katz <damien@apache.org>2009-02-11 16:08:38 +0000
committerDamien F. Katz <damien@apache.org>2009-02-11 16:08:38 +0000
commit59f41c2678f59a2effade9651c0de11bbe811c56 (patch)
tree7a4ecf30fae7478a98d1cd5be55f09241bca43c6 /src
parent3132843214251e3a68b7b3fe89618d323dffa546 (diff)
Fix for COUCHDB-238, explicit check and error for doc ids starting with underscore.
git-svn-id: https://svn.apache.org/repos/asf/couchdb/trunk@743371 13f79535-47bb-0310-9956-ffa450edef68
Diffstat (limited to 'src')
-rw-r--r--src/couchdb/couch_doc.erl12
-rw-r--r--src/couchdb/couch_httpd.erl2
2 files changed, 10 insertions, 4 deletions
diff --git a/src/couchdb/couch_doc.erl b/src/couchdb/couch_doc.erl
index 5bad7854..1eb1575a 100644
--- a/src/couchdb/couch_doc.erl
+++ b/src/couchdb/couch_doc.erl
@@ -112,12 +112,12 @@ from_json_obj({Props}) ->
<<"conflicts">>, <<"deleted_conflicts">>, <<"deleted">>],
% collect all the doc-members that start with "_"
% if any aren't in the AllowedSpecialMembers list
- % then throw a doc_validation error
+ % then throw a invalid_doc error
[case lists:member(Name, AllowedSpecialMembers) of
true ->
ok;
false ->
- throw({doc_validation, io_lib:format("Bad special document member: _~s", [Name])})
+ throw({invalid_doc, io_lib:format("Bad special document member: _~s", [Name])})
end
|| {<<$_,Name/binary>>, _Value} <- Props],
Revs =
@@ -131,10 +131,14 @@ from_json_obj({Props}) ->
Revs0
end,
case proplists:get_value(<<"_id">>, Props, <<>>) of
+ <<"_design/", _/binary>> = Id -> ok;
+ <<"_local/", _/binary>> = Id -> ok;
+ <<"_", _/binary>> = Id ->
+ throw({invalid_doc, "Document Ids must not start with underscore."});
Id when is_binary(Id) -> ok;
Id ->
?LOG_DEBUG("Document id is not a string: ~p", [Id]),
- throw({invalid_document_id, "Document id is not a string"})
+ throw({invalid_doc, "Document id is not a string"})
end,
% strip out the all props beginning with _
@@ -148,7 +152,7 @@ from_json_obj({Props}) ->
};
from_json_obj(_Other) ->
- throw({invalid_json_object, "Document must be a JSON object"}).
+ throw({invalid_doc, "Document must be a JSON object"}).
to_doc_info(FullDocInfo) ->
{DocInfo, _Path} = to_doc_info_path(FullDocInfo),
diff --git a/src/couchdb/couch_httpd.erl b/src/couchdb/couch_httpd.erl
index 767b91d4..6b9079c4 100644
--- a/src/couchdb/couch_httpd.erl
+++ b/src/couchdb/couch_httpd.erl
@@ -372,6 +372,8 @@ send_error(Req, {not_found, Reason}) ->
send_error(Req, 404, <<"not_found">>, Reason);
send_error(Req, conflict) ->
send_error(Req, 409, <<"conflict">>, <<"Document update conflict.">>);
+send_error(Req, {invalid_doc, Reason}) ->
+ send_error(Req, 400, <<"invalid_doc">>, Reason);
send_error(Req, {forbidden, Msg}) ->
send_json(Req, 403,
{[{<<"error">>, <<"forbidden">>},