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);
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);