RT3BatchAddUsers - Revision history

Jbrandt at 19:19, 21 March 2017

2017-03-21T19:19:50Z

← Older revision		Revision as of 15:19, 21 March 2017
Line 39:		Line 39:
	$UserObj->Create(Name => $username,		$UserObj->Create(Name => $username,
	RealName => $realname,		RealName => $realname,
	EmailAddress => $email_address,		EmailAddress => $email_address,
	Password => 'Passw0rd',		Password => 'Passw0rd',
	Organization => $organization,		Organization => $organization,
	Address1 => $address1,		Address1 => $address1,

Jbrandt at 19:15, 21 March 2017

2017-03-21T19:15:33Z

← Older revision		Revision as of 15:15, 21 March 2017
Line 1:		Line 1:
	<~~nowiki~~>#!/usr/bin/perl -w		<syntaxhighlight lang="perl" line="1" >
			#!/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		# rtadduser: Batch add local users to RT based on a csv file named users_data.csv located # in the same directory
Line 28:		Line 29:

	open(USERS_DATA, "./users_data.csv") \|\| die("Could not open file!");		open(USERS_DATA, "./users_data.csv") \|\| die("Could not open file!");
	@raw_data=~~<~~USERS_DATA~~>~~;		@raw_data=<USERS_DATA>;
	close(USERS_DATA);		close(USERS_DATA);
	foreach $bc_user (@raw_data)		foreach $bc_user (@raw_data)
Line 36:		Line 37:

	my $UserObj = new RT::User(RT::SystemUser);		my $UserObj = new RT::User(RT::SystemUser);
	$UserObj->Create(Name =~~>~~ $username,		$UserObj->Create(Name => $username,
	RealName =~~>~~ $realname,		RealName => $realname,
	EmailAddress =~~>~~ $email_address,		EmailAddress => $email_address,
	Password =~~>~~ 'Passw0rd',		Password => 'Passw0rd',
	Organization =~~>~~ $organization,		Organization => $organization,
	Address1 =~~>~~ $address1,		Address1 => $address1,
	City =~~>~~ $city,		City => $city,
	Country =~~>~~ $country,		Country => $country,
	Privileged =~~>~~ 1);		Privileged => 1);
	}		}
	</~~nowiki~~>
			</syntaxhighlight>

Admin: 2 revisions imported

2016-04-06T20:23:33Z

2 revisions imported

New page

<nowiki>#!/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);
}
</nowiki>