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
_______________________________________________
http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users
Community help: http://wiki.bestpractical.com
Commercial support: sa...@bestpractical.com
2010 RT Training Sessions!
San Francisco, CA, USA - Feb 22 & 23
Dublin, Ireland - Mar 15 & 16
Boston, MA, USA - April 5 & 6
Washington DC, USA - Oct 25 & 26
Discover RT's hidden secrets with RT Essentials from O'Reilly Media.
Buy a copy at http://rtbook.bestpractical.com
