Limited DNS nodes

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

diff --git a/src/main.sml b/src/main.sml
index 9f06c5b..0c60f08 100644 (file)
--- a/src/main.sml
+++ b/src/main.sml
@@ -299,7 +299,7 @@ fun service () =
                                end
 
                              | MsgGrant acl =>
                                end
 
                              | MsgGrant acl =>

-                               if Acl.query {user = user, class = "group", value = "root"} then
+                               if Acl.query {user = user, class = "priv", value = "all"} then

                                    ((Acl.grant acl;
                                      Acl.write Config.aclFile;
                                      Msg.send (bio, MsgOk);
                                    ((Acl.grant acl;
                                      Acl.write Config.aclFile;
                                      Msg.send (bio, MsgOk);


@@ -323,7 +323,7 @@ fun service () =
                                     loop ())
 
                              | MsgRevoke acl =>
                                     loop ())
 
                              | MsgRevoke acl =>

-                               if Acl.query {user = user, class = "group", value = "root"} then
+                               if Acl.query {user = user, class = "priv", value = "all"} then

                                    ((Acl.revoke acl;
                                      Acl.write Config.aclFile;
                                      Msg.send (bio, MsgOk);
                                    ((Acl.revoke acl;
                                      Acl.write Config.aclFile;
                                      Msg.send (bio, MsgOk);