Socket permission querying

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

diff --git a/src/slave.sml b/src/slave.sml
index 64613ed..af8b606 100644 (file)
--- a/src/slave.sml
+++ b/src/slave.sml
@@ -195,4 +195,9 @@ fun lineInFile fname line =
        before TextIO.closeIn inf
     end handle IO.Io _ => false
 
+fun inGroup {user, group} =
+    List.exists (fn x => x = user)
+               (Posix.SysDB.Group.members (Posix.SysDB.getgrnam group))
+               handle OS.SysErr _ => false
+
 end