3 # rtadduser: Batch add local users to RT based on a csv file named users_data.csv located # in the same directory
4 # Mohamed El Erian <mohamed.elerian@britishcouncil.org.eg,melerian@gmail.com>
5 # Partly based on script provided by David Maze <dmaze@cag.lcs.mit.edu>
6 # File format is username,realname,email_address,organization,address1,city,country
13 use RT::Interface::CLI qw(CleanEnv);
23 my $email_address = '';
24 my $organization = '';
30 if ( $ARGV[0] =~ /priv/ )
36 open(USERS_DATA, $ARGV[0]) || die("Could not open file!");
37 @raw_data=<USERS_DATA>;
39 foreach $bc_user (@raw_data)
42 ($email_address,$realname,$organization)=split(/\,/,$bc_user);
44 my $UserObj = new RT::User(RT::SystemUser);
45 # print "adding user: $email_address\n";
46 $UserObj->Create(Name => $email_address,
47 RealName => $realname,
48 EmailAddress => $email_address,
49 Password => 'default2009',
50 Organization => $organization,
52 #Address1 => $address1,