Limiting acceptable web nodes

[hcoop/domtool2.git] / src / domain.sml

diff --git a/src/domain.sml b/src/domain.sml
index 8020ee4..4d2f487 100644 (file)
--- a/src/domain.sml
+++ b/src/domain.sml
@@ -607,4 +607,7 @@ val () = Env.registerPost (fn () =>
                                                     fn cl => "Temp file cleanup failed: " ^ cl))
                              end)
 
+fun inGroup group = Acl.query {user = getUser (), class = "group", value = "root"}
+                   orelse Acl.query {user = getUser (), class = "group", value = group}
+
 end