changed getadmins into a generic function for both for admins and other roles.

[plcrt.git] / adduserstort.pl

diff --git a/adduserstort.pl b/adduserstort.pl
index a826499..e2bd527 100755 (executable)
--- a/adduserstort.pl
+++ b/adduserstort.pl
@@ -46,7 +46,7 @@ foreach $bc_user (@raw_data)
   $UserObj->Create(Name => $email_address,
              RealName => $realname,
              EmailAddress => $email_address,
-             Password => 'tpdemo2009',
+             Password => 'default2009',
              Organization => $organization,
              Privileged => $priv);
              #Address1 => $address1,