Update of /cvsroot/hcoop/domtool2/src
In directory sc8-pr-cvs17.sourceforge.net:/tmp/cvs-serv30932/src
Modified Files:
main.sml
Log Message:
Don't revoke ACL entries on rmdom
Index: main.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/main.sml,v
retrieving revision 1.101
retrieving revision 1.102
diff -C2 -d -r1.101 -r1.102
*** main.sml 25 Feb 2008 01:40:17 -0000 1.101
--- main.sml 16 Mar 2008 00:07:02 -0000 1.102
***************
*** 1286,1292 ****
orelse List.all (fn dom =>
Acl.query {user = user, class = "domain", value = dom}) doms then
(Domain.rmdom doms;
! app (fn dom =>
Acl.revokeFromAll {class
= "domain", value = dom}) doms;
! Acl.write Config.aclFile;
("Removed domains" ^ foldl (fn
(d, s) => s ^ " " ^ d) "" doms ^ ".",
NONE))
--- 1286,1292 ----
orelse List.all (fn dom =>
Acl.query {user = user, class = "domain", value = dom}) doms then
(Domain.rmdom doms;
! (*app (fn dom =>
Acl.revokeFromAll {class
= "domain", value = dom}) doms;
! Acl.write Config.aclFile;*)
("Removed domains" ^ foldl (fn
(d, s) => s ^ " " ^ d) "" doms ^ ".",
NONE))
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
