fixup! Implement the POST method for the server

1 files changed, 2 insertions, 18 deletions

diff --git a/src/scm/webid-oidc/server/create.scm b/src/scm/webid-oidc/server/create.scm
index 93f684c..9209d70 100644
--- a/src/scm/webid-oidc/server/create.scm
+++ b/src/scm/webid-oidc/server/create.scm
@@ -62,24 +62,10 @@
          (or (equal? next "http://www.w3.org/ns/ldp#BasicContainer")
              (types-indicate-container? (cdr types))))))
 
-(define (check-acl-can-append server-name container owner user http-get)
-  (let ((modes (wac-get-modes server-name container user #:http-get http-get)))
-    (define (check-modes modes)
-      (if (null? modes)
-          (raise-exception
-           (make-forbidden container user owner
-                           (string->uri "http://www.w3.org/ns/auth/acl#Append")))
-          (or
-           (equal? (car modes) (string->uri "http://www.w3.org/ns/auth/acl#Append"))
-           (equal? (car modes) (string->uri "http://www.w3.org/ns/auth/acl#Write"))
-           (check-modes (cdr modes)))))
-    (check-modes modes)))
-
 (define* (create server-name owner user container types slug content-type content
                  #:key
                  (http-get http-get))
-  (unless (equal? owner user)
-    (check-acl-can-append server-name container owner user http-get))
+  (check-acl-can-append server-name container owner user #:http-get http-get)
   (unless (and slug (not (equal? slug "")))
     (set! slug (stubs:random 12)))
   (when (string-contains slug "/")
@@ -101,9 +87,7 @@
              ;; There’s no risk to have // here, because slug is
              ;; non-empty.
              (if container? "/" "")))))
-      (when (and slug
-                 (or (string-suffix? ".acl" slug)
-                     (string-suffix? ".meta" slug)))
+      (when (auxiliary-path? (uri-path doc-uri))
         (raise-exception (make-path-is-auxiliary (uri-path doc-uri))))
       (when container?
         (without-containment-triples doc-uri content-type content))