git://git.onelab.eu
/
monitor.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
remove rt from monitor package.
[monitor.git]
/
rt3
/
adduserstort.pl
diff --git
a/rt3/adduserstort.pl
b/rt3/adduserstort.pl
index
7037ca6
..
dc64899
100644
(file)
--- a/
rt3/adduserstort.pl
+++ b/
rt3/adduserstort.pl
@@
-25,8
+25,15
@@
my $organization = '';
my $address1 = '';
my $city = '';
my $country = '';
my $address1 = '';
my $city = '';
my $country = '';
+my $priv = 0;
-open(USERS_DATA, "./users_data.csv") || die("Could not open file!");
+if ( $ARGV[0] =~ /priv/ )
+{
+ shift @ARGV;
+ $priv = 1;
+}
+
+open(USERS_DATA, $ARGV[0]) || die("Could not open file!");
@raw_data=<USERS_DATA>;
close(USERS_DATA);
foreach $bc_user (@raw_data)
@raw_data=<USERS_DATA>;
close(USERS_DATA);
foreach $bc_user (@raw_data)
@@
-35,12
+42,13
@@
foreach $bc_user (@raw_data)
($email_address,$realname,$organization)=split(/\,/,$bc_user);
my $UserObj = new RT::User(RT::SystemUser);
($email_address,$realname,$organization)=split(/\,/,$bc_user);
my $UserObj = new RT::User(RT::SystemUser);
+ # print "adding user: $email_address\n";
$UserObj->Create(Name => $email_address,
RealName => $realname,
EmailAddress => $email_address,
Password => 'Passw0rd',
$UserObj->Create(Name => $email_address,
RealName => $realname,
EmailAddress => $email_address,
Password => 'Passw0rd',
- Organization => $organization,
- Privileged =>
1
);
+
Organization => $organization,
+ Privileged =>
$priv
);
#Address1 => $address1,
#City => $city,
#Country => country,
#Address1 => $address1,
#City => $city,
#Country => country,