[rt-users] Creating Group and giving Rights.

[Ken Crocker]

JJussi,

I use the WebUI. It's waaaaaaaay easier. The programming is already 
done, so why re-create the same wheel?

Kenn
LBNL

On 1/30/2010 12:09 PM, JJussi wrote:
> Hi list!
>
> What, nowbody have any good answers. To how I, can give rights to just created 
> group..
> And I thought that I'm poor programmer...
>
> On Friday, 29. Januaryta 2010 13:15:37 JJussi wrote:
>   
>> Hi to list,
>> (I'm not very good Perl programmer, so this question may be (too) simple)
>>
>> I can create group easily:
>>
>> my $group = new RT::Group($RT::SystemUser);
>> my $gid = $group->CreateUserDefinedGroup(
>>       Name              => $vars{nimi},
>>       Description       => $vars{kuvaus},
>>     );
>>
>> To give rights to that group I (try) to use:
>>
>> my @gacl=('ShowTicket','CreateTicket','SeeQueue','ReplyToTicket');
>> my $principal = new RT::Principal($RT::SystemUser);
>> my $pid = $principal->Create(
>>       PrincipalType => 'Group',
>>       ObjectId => $gid,
>>       Disabled => '0',
>>     );
>>
>> foreach (@gacl)
>>     {
>>       $xxx->GrandRight( Right => $_, Object => $gid);
>>     }
>>
>> That $xxx is problem.. I need Principal-Object there, but
>> CreateUserDefinedGroup returns GroupID. How I can get that Object?
>>
>>     
>
>
>   
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.bestpractical.com/pipermail/rt-users/attachments/20100201/e4a5b91b/attachment.htm>