Sometimes my mind drifts away and forgets that I live in a world where I have

to write everything in two languages, and now have to take special care that
things written in one of those languages works properly in a wholly separate
and somewhat limited deployment environment. Ah such sweet forgetting.


git-svn-id: svn+ssh://src.earth.threerings.net/narya/trunk@5119 542714f4-19e9-0310-aa3c-eee0fc999fb1

src/as/com/threerings/crowd/data/BodyObject.as

@@ -75,27 +75,6 @@ public class BodyObject extends ClientObject
      */
     public var awayMessage :String;
 
-    /**
-     * Checks whether or not this user has access to the specified feature. Currently used by the
-     * chat system to regulate access to chat broadcasts but also forms the basis of an extensible
-     * fine-grained permissions system.
-     *
-     * @return null if the user has access, a fully-qualified translatable message string
-     * indicating the reason for denial of access (or just {@link InvocationCodes#ACCESS_DENIED} if
-     * you don't want to be specific).
-     */
-    public function checkAccess (feature :String, context :Object) :String
-    {
-        // our default access control policy; how quaint
-        if (ChatCodes.BROADCAST_ACCESS == feature) {
-            return getTokens().isAdmin() ? null : InvocationCodes.ACCESS_DENIED;
-        } else if (ChatCodes.CHAT_ACCESS == feature) {
-            return null;
-        } else {
-            return InvocationCodes.ACCESS_DENIED;
-        }
-    }
-
     /**
      * Returns this user's access control tokens.
      */

src/as/com/threerings/crowd/data/CrowdPermissionPolicy.as

@@ -0,0 +1,54 @@
+//
+// $Id$
+//
+// Narya library - tools for developing networked games
+// Copyright (C) 2002-2008 Three Rings Design, Inc., All Rights Reserved
+// http://www.threerings.net/code/narya/
+//
+// This library is free software; you can redistribute it and/or modify it
+// under the terms of the GNU Lesser General Public License as published
+// by the Free Software Foundation; either version 2.1 of the License, or
+// (at your option) any later version.
+//
+// This library is distributed in the hope that it will be useful,
+// but WITHOUT ANY WARRANTY; without even the implied warranty of
+// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+// Lesser General Public License for more details.
+//
+// You should have received a copy of the GNU Lesser General Public
+// License along with this library; if not, write to the Free Software
+// Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+
+package com.threerings.crowd.data {
+
+import com.threerings.presents.data.ClientObject;
+import com.threerings.presents.data.InvocationCodes;
+import com.threerings.presents.data.Permission;
+import com.threerings.presents.data.PermissionPolicy;
+
+import com.threerings.crowd.chat.data.ChatCodes;
+
+/**
+ * Implements some Crowd permissions.
+ */
+public class CrowdPermissionPolicy extends PermissionPolicy
+{
+    // from PermissionPolicy
+    override public function checkAccess (
+        clobj :ClientObject, perm :Permission, context :Object) :String
+    {
+        if (!(clobj is BodyObject)) {
+            return super.checkAccess(clobj, perm, context);
+        }
+
+        var body :BodyObject = (clobj as BodyObject);
+        if (perm == ChatCodes.BROADCAST_ACCESS) {
+            return body.getTokens().isAdmin() ? null : InvocationCodes.ACCESS_DENIED;
+        } else if (perm == ChatCodes.CHAT_ACCESS) {
+            return null;
+        } else {
+            return super.checkAccess(clobj, perm, context);
+        }
+    }
+}
+}