RT3BatchAddUsers

#!/usr/bin/perl -w
 #
 # rtadduser: Batch add local users to RT based on a csv file named users_data.csv located # in the same directory
 # Mohamed El Erian <mohamed.elerian@britishcouncil.org.eg,melerian@gmail.com>
 # Partly based on script provided by David Maze <dmaze@cag.lcs.mit.edu>
 # File format is username,realname,email_address,organization,address1,city,country
 # $Id$
 #
 
 use lib "/usr/lib";
 use strict;
 use English;
 use RT::Interface::CLI qw(CleanEnv);
 use RT::User;
 
 CleanEnv();
 RT::LoadConfig();
 RT::Init();
 my @raw_data;
 my $bc_user = '';
 my $username = '';
 my $realname = '';
 my $email_address = '';
 my $organization = '';
 my $address1 = '';
 my $city = '';
 my $country = '';
 
 open(USERS_DATA, "./users_data.csv") || die("Could not open file!");
 @raw_data=<USERS_DATA>;
 close(USERS_DATA);
 foreach $bc_user (@raw_data)
 {
  chop($bc_user);
  ($username,$realname,$email_address,$organization,$address1,$city,$country)=split(/\,/,$bc_user);
 
 my $UserObj = new RT::User(RT::SystemUser);
 $UserObj->Create(Name => $username,
 		 RealName => $realname,
                  EmailAddress => $email_address,
                  Password => 'Passw0rd',
 		 Organization => $organization,
 		 Address1 => $address1,
 		 City => $city,
 		 Country => $country,
 		 Privileged => 1);
 }