Hi Joe,<br><br>your scrip looks fine so far, but i get a strange error message:<br><br>[Tue Feb 27 12:29:07 2007] [crit]: Can't call method "AddMember" on an undefined value at AddUsersToGroups.pl line 38. (/opt/rt36/lib/RT.pm:346)
<br>Can't call method "AddMember" on an undefined value at AddUsersToGroups.pl line 38.<br><br>And line 38 looks like:<br><br>my($status, $msg) = $group->{$groupname}->AddMember($user->id);<br>I'm not sure if the AddMember is defined in this routine, but i found: 
<br><h2><a class="u" href="http://rt36-messenger.int.kn/Developer/Perldoc/Body.html?n=RT::GroupMember#___top" title="click to go to top of document" name="SetMemberId_VALUE">SetMemberId VALUE</a></h2><br><br>Have you tried it?
<br><br>Torsten<br><div><span class="gmail_quote">2007/2/15, Joe Casadonte <<a href="mailto:joe.casadonte@oracle.com">joe.casadonte@oracle.com</a>>:</span><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
On 2/15/2007 11:04 AM, Torsten Brumm | Kuehne + Nagel wrote:<br><br>> Again just another question for the CLI Part. Has anyone a idea how to add a<br>> set of users per scrip to a group?<br>><br>> Lets say, i have a list of 500 User that are needed to be member of a single
<br>> group?<br><br>I did something similar via a full perl script (as opposed to using the<br>CLI).  Here are some excerpts (untested in this form):<br><br>#!/usr/bin/perl -w<br><br>use strict;<br>use lib "/opt/rt3/lib";
<br><br>use RT;<br>use RT::Interface::CLI qw(CleanEnv GetCurrentUser);<br>use RT::Group;<br>use RT::User;<br><br>CleanEnv();<br>RT::LoadConfig();<br>RT::Init();<br><br>my($groupname) = 'FooBar';<br>my($group) = RT::Group->new($RT::SystemUser);
<br>$group->LoadUserDefinedGroup($groupname);<br>die qq([ERROR] Cannot load group "$groupname"\n) unless $group->id;<br><br>my(@users) = GetListOfUsernames();<br>foreach my $username (@users) {<br>    my($user) = RT::User->new($RT::SystemUser);
<br>    $user->Load($username);<br>    die qq([ERROR] Could not load user "$username" -- see log for<br>details\n) unless $user->id;<br><br>    my($status, $msg) = $Groups->{$groupname}->AddMember($user->id);
<br>    die qq([ERROR] Cannot add user "$id" to group "$groupname" - $msg\n)<br>unless $status;<br>}<br><br>--<br>Regards,<br><br><br>joe<br>Joe Casadonte<br><a href="mailto:joe.casadonte@oracle.com">joe.casadonte@oracle.com
</a><br><br>==========                                                  ==========<br>== The statements and opinions expressed here are my own and do not ==<br>== necessarily represent those of Oracle Corporation.               ==
<br>==========                                                  ==========<br>_______________________________________________<br><a href="http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users">http://lists.bestpractical.com/cgi-bin/mailman/listinfo/rt-users
</a><br><br>Community help: <a href="http://wiki.bestpractical.com">http://wiki.bestpractical.com</a><br>Commercial support: <a href="mailto:sales@bestpractical.com">sales@bestpractical.com</a><br><br><br>Discover RT's hidden secrets with RT Essentials from O'Reilly Media.
<br>Buy a copy at <a href="http://rtbook.bestpractical.com">http://rtbook.bestpractical.com</a><br></blockquote></div><br><br clear="all"><br>-- <br>MFG<br><br>Torsten Brumm<br><br><a href="http://www.torsten-brumm.de">http://www.torsten-brumm.de
</a>