From b9d966f6794ca436a2131ddeac360c13f9e32465 Mon Sep 17 00:00:00 2001 From: Vivien Kraus Date: Fri, 9 Jul 2021 10:07:55 +0200 Subject: Setup: make sure that the acl:default predicate for /.acl refers to / MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit If the server-uri had a path of '/', then a double slash would be added. We don’t want that. --- src/scm/webid-oidc/server/create.scm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'src/scm/webid-oidc/server') diff --git a/src/scm/webid-oidc/server/create.scm b/src/scm/webid-oidc/server/create.scm index f77cb49..b7b208d 100644 --- a/src/scm/webid-oidc/server/create.scm +++ b/src/scm/webid-oidc/server/create.scm @@ -173,11 +173,17 @@ acl:accessTo <~a>; acl:agent <~a>; acl:mode acl:Read, acl:Write, acl:Control; - acl:default <~a/>. + acl:default <~a>. " (fix-angle (uri->string root-uri)) (fix-angle (uri->string owner)) - (fix-angle (uri->string root-uri))))))))) + (fix-angle + (uri->string + (build-uri (uri-scheme root-uri) + #:userinfo (uri-userinfo root-uri) + #:host (uri-host root-uri) + #:port (uri-port root-uri) + #:path "/")))))))))) load-content-type load-contained load-static-content do-create do-delete) #t) -- cgit v1.2.3