X-Git-Url: https://git.hcoop.net/hcoop/domtool2.git/blobdiff_plain/304961995879cabc7608be06fca2fa31b12332a6..51cc45f7d84d0d92700b461a1296b9aa748dd88e:/src/acl.sml

diff --git a/src/acl.sml b/src/acl.sml
index f7307b0..85287d9 100644
--- a/src/acl.sml
+++ b/src/acl.sml
@@ -167,4 +167,16 @@ fun write fname =
 	TextIO.closeOut outf
     end
 
+fun queryDomain {user, domain} =
+    let
+	fun trySuffix parts =
+	    case parts of
+		[] => false
+	      | first :: rest =>
+		query {user = user, class = "domain", value = String.concatWith "." parts}
+		orelse trySuffix rest
+    in
+	trySuffix (String.fields (fn ch => ch = #".") domain)
+    end
+
 end