diff options
| author | Vivien Kraus <vivien@planete-kraus.eu> | 2021-07-09 10:07:55 +0200 |
|---|---|---|
| committer | Vivien Kraus <vivien@planete-kraus.eu> | 2021-07-09 10:07:55 +0200 |
| commit | b9d966f6794ca436a2131ddeac360c13f9e32465 (patch) | |
| tree | db590e5ec6b61c443ab4e796693c534685b54065 /src | |
| parent | 2e8df3574c4f7b3cde2b77aa096f13ef2bdbfe3d (diff) | |
Setup: make sure that the acl:default predicate for /.acl refers to /
If the server-uri had a path of '/', then a double slash would be
added. We don’t want that.
Diffstat (limited to 'src')
| -rw-r--r-- | src/scm/webid-oidc/server/create.scm | 10 |
1 files changed, 8 insertions, 2 deletions
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) |