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
899e4ce
..
dc64899
100644
(file)
--- a/
rt3/adduserstort.pl
+++ b/
rt3/adduserstort.pl
@@
-25,8
+25,13
@@
my $organization = '';
my $address1 = '';
my $city = '';
my $country = '';
my $address1 = '';
my $city = '';
my $country = '';
+my $priv = 0;
-print $ARGV[0];
+if ( $ARGV[0] =~ /priv/ )
+{
+ shift @ARGV;
+ $priv = 1;
+}
open(USERS_DATA, $ARGV[0]) || die("Could not open file!");
@raw_data=<USERS_DATA>;
open(USERS_DATA, $ARGV[0]) || die("Could not open file!");
@raw_data=<USERS_DATA>;
@@
-37,13
+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";
+
#
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 =>
0
);
+
Organization => $organization,
+ Privileged =>
$priv
);
#Address1 => $address1,
#City => $city,
#Country => country,
#Address1 => $address1,
#City => $city,
#Country => country,