diff options
author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-12 18:09:15 +0200 |
---|---|---|
committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-10-12 18:51:30 +0200 |
commit | b70c4f5297933e3d5f7a5875de49076cbe6c859c (patch) | |
tree | 8f90bf2b005f831c2d244f5eeac24e36a7127c63 /src/scm/webid-oidc | |
parent | d26ea093573932b908114b1890a9c84a93a830e2 (diff) |
resource server: don’t throw a 500 if the client forgot the request content
Diffstat (limited to 'src/scm/webid-oidc')
-rw-r--r-- | src/scm/webid-oidc/resource-server.scm | 14 |
1 files changed, 14 insertions, 0 deletions
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 |