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 my $priv = 0;
  29
  30 if ( $ARGV[0] =~ /priv/ )
  31 {
  32    shift @ARGV;
  33    $priv = 1;
  34 }
  35
  36 open(USERS_DATA, $ARGV[0]) || die("Could not open file!");
  37 @raw_data=<USERS_DATA>;
  38 close(USERS_DATA);
  39 foreach $bc_user (@raw_data)
  40 {
  41  chop($bc_user);
  42  ($email_address,$realname,$organization)=split(/\,/,$bc_user);
  43
  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,
  51              Privileged => $priv);
  52              #Address1 => $address1,
  53              #City => $city,
  54              #Country => country,
  55 }
  56
  57