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 $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)
@@ -35,12 +42,13 @@ foreach $bc_user (@raw_data)
  ($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',
-             Organization => $organization,
-             Privileged => 1);
+                        Organization => $organization,
+             Privileged => $priv);
              #Address1 => $address1,
              #City => $city,
              #Country => country,