Update of /cvsroot/hcoop/domtool2/src
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv25845/src
Modified Files:
main.sml
Log Message:
ACL check on reusers requests
Index: main.sml
===================================================================
RCS file: /cvsroot/hcoop/domtool2/src/main.sml,v
retrieving revision 1.108
retrieving revision 1.109
diff -C2 -d -r1.108 -r1.109
*** main.sml 17 Feb 2009 16:30:22 -0000 1.108
--- main.sml 17 Feb 2009 16:46:03 -0000 1.109
***************
*** 1605,1610 ****
| MsgReUsers =>
! doIt (fn () => (usersChanged ();
! ("Users change callbacks run",
NONE)))
(fn () => ())
--- 1605,1615 ----
| MsgReUsers =>
! doIt (fn () => if Acl.query {user = user,
class = "priv", value = "regen"}
! orelse Acl.query {user =
user, class = "priv", value = "all"} then
! (usersChanged ();
! ("Users change callbacks
run", NONE))
! else
! ("Unauthorized user asked
to reusers!",
! SOME "You aren't
authorized to regenerate files."))
(fn () => ())
------------------------------------------------------------------------------
Open Source Business Conference (OSBC), March 24-25, 2009, San Francisco, CA
-OSBC tackles the biggest issue in open source: Open Sourcing the Enterprise
-Strategies to boost innovation and cut costs with open source participation
-Receive a $600 discount off the registration fee with the source code: SFAD
http://p.sf.net/sfu/XcvMzF8H
_______________________________________________
hcoop-cvs mailing list
hcoop-cvs@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/hcoop-cvs
