%perl>
my %objects;
my $acl = RT::ACL->new ($session{'CurrentUser'});
$acl->ExcludeDelegatedRights();
$acl->LimitToPrincipal(Id => $session{'CurrentUser'}->Id);
while(my $right = $acl->Next) {
push @{$objects{$right->ObjectType}{$right->ObjectId}},$right;
}
%perl>
WORK IN PROGRESS
System
%foreach my $right (@{$objects{'System'}{0}}) {
<% $right->RightName%><&|/l, $right->PrincipalObj->Object->SelfDescription &>as granted to [_1]&>
%}
Queues
% foreach my $queue (keys %{$objects{'Queue'}}) {
% my $queue_obj = @{$objects{'Queue'}{$queue}}[0]->Object;
<%$queue_obj->Name%>
%foreach my $right (@{$objects{'Queue'}{$queue}}) {
<% $right->RightName%><&|/l, $right->PrincipalObj->Object->SelfDescription &>as granted to [_1]&>
%}}
Groups
% foreach my $Group (keys %{$objects{'Group'}}) {
% my $Group_obj = @{$objects{'Group'}{$Group}}[0]->Object;
<%$Group_obj->Name%>
%foreach my $right (@{$objects{'Group'}{$Group}}) {
<% $right->RightName%><&|/l, $right->PrincipalObj->Object->SelfDescription &>as granted to [_1]&>
%}}