rt3/adduserstort.pl

   1 #!/usr/bin/perl -w
   2 #
   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
   7 # $Id$
   8 #
   9
  10 use lib "/usr/lib";
  11 use strict;
  12 use English;
  13 use RT::Interface::CLI qw(CleanEnv);
  14 use RT::User;
  15
  16 CleanEnv();
  17 RT::LoadConfig();
  18 RT::Init();
  19 my @raw_data;
  20 my $bc_user = '';
  21 my $username = '';
  22 my $realname = '';
  23 my $email_address = '';
  24 my $organization = '';
  25 my $address1 = '';
  26 my $city = '';
  27 my $country = '';
  28
  29 open(USERS_DATA, "./users_data.csv") || die("Could not open file!");
  30 @raw_data=<USERS_DATA>;
  31 close(USERS_DATA);
  32 foreach $bc_user (@raw_data)
  33 {
  34  chop($bc_user);
  35  ($email_address,$realname,$organization)=split(/\,/,$bc_user);
  36
  37   my $UserObj = new RT::User(RT::SystemUser);
  38   $UserObj->Create(Name => $email_address,
  39              RealName => $realname,
  40              EmailAddress => $email_address,
  41              Password => 'Passw0rd',
  42              Organization => $organization,
  43              Privileged => 1);
  44              #Address1 => $address1,
  45              #City => $city,
  46              #Country => country,
  47 }
  48
  49