[rt-users] How to set Global rights in Perl? (How do I get "global" into an object)

[Johnathan Bell]

On Dec 30, 2009, at 3:25 PM, Kevin Falcone wrote:

> On Wed, Dec 30, 2009 at 10:47:08AM -0500, Johnathan Bell wrote:
>> I've written a script that will process an ACL-like file and set a number of permissions on our RT server, but currently I have this only working for specific queues. How can I make this work for global rights? Currently, I have it working as such:
>> 
>> --snip--
>> # $groupName and $queueName are specified in the function parameters. Assume they're correct.
>> # $status and $msg are also defined globals.
>> my $groupObj = new RT::Group($currentUser);
>> my $queueObj = new RT::Queue($currentUser);
>> 
>> # Load our RT queue
>> ($status, $msg) = $queueObj->Load($queueName);
>> 
>> # Do one of these based on the type of group:
>> ($status, $msg) = $groupObj->LoadUserDefinedGroup($groupName);
>> ($status, $msg) = $groupObj->LoadQueueRoleGroup(Queue => $queueObj->id, Type => $groupName);
>> ($status, $msg) = $groupObj->LoadSystemInternalGroup($groupName);
>> 
>> ($status, $msg) = $groupObj->PrincipalObj->GrantRight(
>>    Right => $rightName,
>>    Object => $queueObj);
>> --snip--
>> 
>> I know that GrantRight takes a string "RightName" and an object to apply the right to and for. Can I use the same "$groupObj->PrinciplaObj->GrantRight("RightName", $object) to specify global rights? How do I get "global" into an object?
> 
> You probably want the $RT::System object
> 
> -kevin
> _______________________________________________
> http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users
> 
> Community help: http://wiki.bestpractical.com
> Commercial support: sales at bestpractical.com
> 
> 
> Discover RT's hidden secrets with RT Essentials from O'Reilly Media. 
> Buy a copy at http://rtbook.bestpractical.com


Kevin--That's exactly what I needed. Thanks.

--
Johnathan Bell
Internet System Administrator, Baker College

Office Hours: 7A-4P, M-F