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>;
($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',
- Organization => $organization,
- Privileged => 0);
+ Organization => $organization,
+ Privileged => $priv);
#Address1 => $address1,
#City => $city,
#Country => country,