& /Elements/Header, Title => loc("Authentication Tools") &>
<& /Elements/Tabs,
current_toptab => 'Developer/AuthTool/index.html',
current_tab => 'Developer/AuthTool/index.html',
Title => loc("Auth Tools") &>
% if (@actions) {
<& /Elements/ListActions, actions => [ $actions[1] ] &>
The URL for this call
POST ">
<< <&|/l&>Back&>
% return;
% }
Query Rights
See the Query Form if you want to query
whether a user has a specific right.
Set Rights - Type
% foreach my $key (sort keys %RT::ACE::OBJECT_TYPES) {
- <% $key %>
% }
% return if !$ObjectType;
<%DOC>
<% $ObjectType %> Objects
% my $Objects = $ObjectType->AvailableRights;
% return if !defined $ObjectId;
%DOC>
<% $ObjectType %> Rights
% require join('/', split(/::/, $ObjectType)).'.pm';
% my $Rights = $ObjectType->AvailableRights;
% foreach my $key (sort keys %$Rights) {
% next if $RightName and $RightName ne $key;
- <% $key %> - <% loc($Rights->{$key}) %>
% }
% return if !$RightName;
Set <% $RightName %> Right on <% $ObjectType %>
<%INIT>
my @actions;
if (!grep !length, map $ARGS{$_}, qw(Action RightName ObjectId ObjectType PrincipalId PrincipalType)) {
my $princ = $PrincipalType->new($session{CurrentUser});
$princ->Load($PrincipalId);
my $ace = RT::ACE->new( $princ->CurrentUser );
@actions = $ace->Create(
ObjectId => $ObjectId,
ObjectType => $ObjectType,
PrincipalId => $princ->Id,
PrincipalType => $PrincipalType,
RightName => $RightName,
);
}
%INIT>
<%ARGS>
$RightName => undef
$ObjectId => undef
$ObjectType => undef
$PrincipalId => undef
$PrincipalType => undef
$Action => undef
%ARGS>