X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/04502362ef40024052b18473028f8b53919ead15..fdc43c6c0d3d994d2e186b35684fea500d00ed22:/src/domain.sml

diff --git a/src/domain.sml b/src/domain.sml
index f31d704..488d7a8 100644
--- a/src/domain.sml
+++ b/src/domain.sml
@@ -132,10 +132,9 @@ fun validDomain s =
 fun validNode s = List.exists (fn s' => s = s') nodes
 
 fun yourDomain s = !fakePrivs orelse SS.member (your_domains (), s)
-fun yourUser s = !fakePrivs orelse SS.member (your_users (), s)
-fun yourGroup s = !fakePrivs orelse SS.member (your_groups (), s)
+fun yourUser s = SS.member (your_users (), s)
+fun yourGroup s = SS.member (your_groups (), s)
 fun checkPath paths path =
-    !fakePrivs orelse
     (List.all (fn s => s <> "..") (String.fields (fn ch => ch = #"/") path)
      andalso CharVector.all (fn ch => Char.isAlphaNum ch orelse ch = #"." orelse ch = #"/"
 				      orelse ch = #"-" orelse ch = #"_") path