From b70c4f5297933e3d5f7a5875de49076cbe6c859c Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Tue, 12 Oct 2021 18:09:15 +0200 Subject: resource server: don’t throw a 500 if the client forgot the request content MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/scm/webid-oidc/resource-server.scm | 14 ++++++++++++++ 1 file changed, 14 insertions(+) (limited to 'src/scm/webid-oidc/resource-server.scm') diff --git a/src/scm/webid-oidc/resource-server.scm b/src/scm/webid-oidc/resource-server.scm index 3aa40c5..c8c676a 100644 --- a/src/scm/webid-oidc/resource-server.scm +++ b/src/scm/webid-oidc/resource-server.scm @@ -241,6 +241,13 @@ ((PUT) (receive (content-type content) (nonrdf-or-turtle server-uri request request-body) + (unless content + (return + (build-response + #:code 400 + #:reason-phrase (W_ "Bad Request")) + "" + user)) (let ((updated (ldp:update server-uri owner user (uri-path (request-uri request)) @@ -257,6 +264,13 @@ ((POST) (receive (content-type content) (nonrdf-or-turtle server-uri request request-body) + (unless content + (return + (build-response + #:code 400 + #:reason-phrase (W_ "Bad Request")) + "" + user)) (let ((types (map target-iri (filter -- cgit v1.2.3