<& /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

% return if !$ObjectType; <%DOC>

<% $ObjectType %> Objects

% my $Objects = $ObjectType->AvailableRights; % return if !defined $ObjectId;

<% $ObjectType %> Rights

% require join('/', split(/::/, $ObjectType)).'.pm'; % my $Rights = $ObjectType->AvailableRights; % return if !$RightName;

Set <% $RightName %> Right on <% $ObjectType %>



<% $ObjectType %> <&|/l&>Name/<&|/l&>Id:
<&|/l&>Action

<& /Elements/Submit, Label => loc('Submit') &>

<%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, ); } <%ARGS> $RightName => undef $ObjectId => undef $ObjectType => undef $PrincipalId => undef $PrincipalType => undef $Action => undef