diff options
| author | Matthias Radestock <matthias@rabbitmq.com> | 2010-09-07 11:46:25 +0100 |
|---|---|---|
| committer | Matthias Radestock <matthias@rabbitmq.com> | 2010-09-07 11:46:25 +0100 |
| commit | eac39cf28e194c55ae1b57793af3e21108244883 (patch) | |
| tree | 940982d9a1849086d083c01eb6b5de7cdb896a19 | |
| parent | 9e10a3666a8cd8f5362fe9dc7f33d81a814a0203 (diff) | |
| download | rabbitmq-server-eac39cf28e194c55ae1b57793af3e21108244883.tar.gz | |
flesh out API some more
for management plugin
| -rw-r--r-- | src/rabbit_access_control.erl | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/src/rabbit_access_control.erl b/src/rabbit_access_control.erl index 074bd810..fd57cbfc 100644 --- a/src/rabbit_access_control.erl +++ b/src/rabbit_access_control.erl @@ -39,7 +39,7 @@ lookup_user/1]). -export([add_vhost/1, delete_vhost/1, vhost_exists/1, list_vhosts/0]). -export([set_permissions/5, set_permissions/6, clear_permissions/2, - list_vhost_permissions/1, list_user_permissions/1, + list_permissions/0, list_vhost_permissions/1, list_user_permissions/1, list_user_vhost_permissions/2]). %%---------------------------------------------------------------------------- @@ -83,6 +83,9 @@ -spec(set_permissions/6 ::(scope(), username(), rabbit_types:vhost(), regexp(), regexp(), regexp()) -> 'ok'). -spec(clear_permissions/2 :: (username(), rabbit_types:vhost()) -> 'ok'). +-spec(list_permissions/0 :: + () -> [{username(), rabbit_types:vhost(), regexp(), regexp(), regexp(), + scope_atom()}]). -spec(list_vhost_permissions/1 :: (rabbit_types:vhost()) -> [{username(), regexp(), regexp(), regexp(), scope_atom()}]). @@ -367,6 +370,11 @@ clear_permissions(Username, VHostPath) -> virtual_host = VHostPath}}) end)). +list_permissions() -> + [{Username, VHostPath, ConfigurePerm, WritePerm, ReadPerm, Scope} || + {Username, VHostPath, ConfigurePerm, WritePerm, ReadPerm, Scope} <- + list_permissions(match_user_vhost('_', '_'))]. + list_vhost_permissions(VHostPath) -> [{Username, ConfigurePerm, WritePerm, ReadPerm, Scope} || {Username, _, ConfigurePerm, WritePerm, ReadPerm, Scope} <- |