Thanks Emmanuel, It works fine.
Here's my script (for everybody) reading a CSV file (also used by a rtadduser.sh script) : #!/usr/bin/perl -w # Utilisation : ./rtgroupmember.pl GROUPNAME # Attention : Le fichier list.txt doit ĂȘtre correctement rempli use strict; use lib "/opt/rt3/lib"; use RT; use RT::User; use RT::Interface::CLI; RT::LoadConfig(); RT::Init(); my ($file, $field1, $field2, $field3, $field4, $field5, $field6); my $user = new RT::User($RT::SystemUser); my $group = new RT::Group($RT::SystemUser); my $inputgroup = $ARGV[0]; $group->LoadUserDefinedGroup( $inputgroup ); $file = '/home/ipoc/scripts/list.txt'; open (F, $file) || die ("Could not open $file!"); while () { ($field1, $field2, $field3, $field4, $field5, $field6) = split(',', $_); $user->Load( $field1 ); $group->AddMember( $user->PrincipalObj->Id ); #print $user->PrincipalObj->Id ."\n"; } close (F); The CSV file contain : # name,email,password,organization,realname,privileged(0-1) user.example,u...@domain,xxxxx,domain,User EXAMPLE,1 Best Regards, Tanguy -----Original Message----- From: rt-users-boun...@lists.bestpractical.com [mailto:rt-users-boun...@lists.bestpractical.com] On Behalf Of Emmanuel Lacour Sent: vendredi 19 novembre 2010 20:08 To: rt-users@lists.bestpractical.com Subject: Re: [rt-users] Add group membership via CLI On Fri, Nov 19, 2010 at 06:16:08PM +0000, tanguy.lag...@bt.com wrote: > Thanks for your help Emmanuel. > What's the better ? Perl script or mysql script ? > Perl script using the RT API, sample untested code, without error checking (get it with ($val, $msg) = method; die $msg unless ( $val ); ): #!/usr/bin/perl -w use strict; use lib "/home/rt/rt/lib"; use RT; use RT::Interface::CLI qw( CleanEnv ); CleanEnv(); RT::LoadConfig(); RT::Init(); my $User = RT::User->new ( $RT::SystemUser ); $User->Create( Name => NAME, EmailAddress => EMAIL, ... ); my $Group = RT::Group->new ( $RT::SystemUser ); $Group->LoadUserDefinedGroup( GROUPNAME ); $Group->AddMember( $User->PrincipalObj->Id );