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>;
RealName => $realname,
EmailAddress => $email_address,
Password => 'Passw0rd',
- Organization => $organization,
- Privileged => 0);
+ Organization => $organization,
+ Privileged => $priv);
#Address1 => $address1,
#City => $city,
#Country => country,