[rt-users] Creating Group and giving Rights.

[JJussi]

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?
> 


-- 
JJussi