\n";
my (%seen);
open (GROUP, "$admin_dir/groups.txt");
my (@group) = \n";
exit(0);
}
#---SEPARATOR---#
sub modify_list {
$listin = &unescape($FORM{"listin"});
undef @sk;
$delim = "\t" if $FORM{"delimiter"} eq "tab";
$delim = "," if $FORM{"delimiter"} eq "comma";
$delim = ";" if $FORM{"delimiter"} eq "semi";
if ($listin eq "") {
$maxx = 0; $maxy = 0;
$ctr1 = 0; $ctr2 = 0;
$flag1 = 0; $flag2 = 0;
foreach $key (keys(%FORM)) {
if ($key =~ m|x(\d+)y(\d+)|) {
$maxx = $1 if $1 > $maxx;
$maxy = $2 if $2 > $maxy;
}
}
for ($ctr1 = 1; $ctr1 <= $maxx; $ctr1 += 1) {
for ($ctr2 = 1; $ctr2 <= $maxy; $ctr2 += 1) {
$pos = "x$ctr1" . "y$ctr2";
$listin .= $FORM{$pos} . $delim;
}
$pos = "x" . ($ctr1+1) . "y1";
if ($FORM{$pos} eq "\\") {
last;
} else {
chop ($listin);
$listin .= "\n";
}
}
}
@users = split(/\n/, $listin);
$ctr = 0; $fields = 0;
foreach $user (@users) {
$c = 0; $ctr += 1;
@u = split(/$delim/, $user);
foreach $p (@u) {
$c += 1;
$key = "COL$c";
$p =~ s/^\s+//;
$p =~ s/\s$//;
$username[$ctr] = $p if $FORM{$key} eq "USERNAME";
$password[$ctr] = $p if $FORM{$key} eq "PASSWORD";
$email[$ctr] = $p if $FORM{$key} eq "EMAIL";
$fullname[$ctr] = $p if $FORM{$key} eq "FULLNAME";
}
$user = join("$delim", @u);
$fields = scalar(@u) if scalar(@u) > $fields;
}
foreach $user (@users) {
@u = split(/$delim/, $user);
if (scalar(@u) < $fields) {
$user .= $delim x ($fields - scalar(@u));
}
}
for ($i = 1; $i <= $fields; $i++) {
$key = "COL$i";
$sk[$i] = 1 if $FORM{$key} eq "SKIP";
}
if ($FORM{"genuser"}) {
if ($FORM{"genuname"} eq "email") {
&error_message("Modify Listing", "Unable to generate usernames from e-mail addresses -- you do not have an e-mail address column!") if $email[1] eq "";
&error_message("Modify Listing", "Unable to generate usernames from e-mail addresses -- you already have a username column!") if $username[1] ne "";
for ($i = 1; $i <= $ctr; $i++) {
$em = $email[$i];
$em =~ m|^([\w\+\-\.]+)\@?|; $o = $1; $o =~ s/\W//g;
$users[$i-1] .= "$delim$o";
$username[$i] = $o;
}
$fields += 1;
$FORM{"COL$fields"} = "USERNAME";
} elsif ($FORM{"genuname"} eq "fullname") {
&error_message("Modify Listing", "Unable to generate usernames from full names -- you do not have a full name address column!") if $fullname[1] eq "";
&error_message("Modify Listing", "Unable to generate usernames from full names -- you already have a username column!") if $username[1] ne "";
for ($i = 1; $i <= $ctr; $i++) {
$o = &extract_lastname($fullname[$i]);
$o =~ tr/A-Z/a-z/;
$users[$i-1] .= "$delim$o";
$username[$i] = $o;
}
$fields += 1;
$FORM{"COL$fields"} = "USERNAME";
} else {
&error_message("Modify Listing", "Unable to generate usernames -- you did not select an option under that heading!");
}
}
if ($FORM{"genpass"}) {
if ($FORM{"genpasswd"} eq "ln") {
&error_message("Modify Listing", "Unable to generate passwords from last names -- you do not have a full name column!") if $fullname[1] eq "";
&error_message("Modify Listing", "Unable to generate passwords from last names -- you already have a password column!") if $password[1] ne "";
for ($i = 1; $i <= $ctr; $i++) {
$o = &extract_lastname($fullname[$i]);
$o =~ tr/A-Z/a-z/;
$users[$i-1] .= "$delim$o";
$password[$i] = $o;
}
$fields += 1;
$FORM{"COL$fields"} = "PASSWORD";
} elsif ($FORM{"genpasswd"} eq "user") {
&error_message("Modify Listing", "Unable to generate passwords from usernames -- you do not have a username column!") if $username[1] eq "";
&error_message("Modify Listing", "Unable to generate passwords from usernames -- you already have a password column!") if $password[1] ne "";
for ($i = 1; $i <= $ctr; $i++) {
$users[$i-1] .= "$delim$username[$i]";
$password[$i] = $username[$i];
}
$fields += 1;
$FORM{"COL$fields"} = "PASSWORD";
} elsif ($FORM{"genpasswd"} eq "same") {
&error_message("Modify Listing", "Unable to generate passwords -- you already have a password column!") if $password[1] ne "";
for ($i = 1; $i <= $ctr; $i++) {
$users[$i-1] .= "$delim$FORM{'samepasswd'}";
$password[$i] = $FORM{'samepasswd'}
}
$fields += 1;
$FORM{"COL$fields"} = "PASSWORD";
} else {
&error_message("Modify Listing", "Unable to generate passwords -- you did not select an option under that heading!");
}
}
if ($FORM{'manipemail'}) {
&error_message("Modify Listing", "Unable to manipulate e-mail addresses -- you do not have an e-mail address column!") if $email[1] eq "";
foreach $user (@users) {
$c = 0; $ctr += 1;
@u = split(/$delim/, $user);
foreach $p (@u) {
$c += 1;
$key = "COL$c";
$p .= $FORM{'emailadd'} if $FORM{$key} eq "EMAIL";
}
$user = join("$delim", @u);
}
}
$listin = join("\n", @users);
return $listin;
}
sub extract_lastname {
my ($name) = @_;
my ($lastname);
$name =~ s/^[\w\s\.\,]//g;
if ($name =~ /^(\w+)\s+(\w+)$/) {
$lastname = $2;
} elsif ($name =~ /^(\w+),\s*(\w+)/) {
$lastname = $1;
} elsif ($name =~ /^(\w+)\s+(\w+)\s+(\w+)$/) {
$lastname = $3;
} elsif ($name =~ /^(\w+)\s+(\w+)\s*,\s*(\w+)/) {
$lastname = $2;
} elsif ($name =~ /^(\w+)\s+(\w+)\.?\s+(\w+)$/) {
$lastname = $3;
} elsif ($name =~ /^(\w+)\s+(\w+)\.?\s+(\w+)\s*,/) {
$lastname = $3;
} elsif ($name =~ /^(\w+)\.\s+(\w+)\s+(\w+)\s*,?/) {
$lastname = $3;
} else {
$lastname = $name;
}
return $lastname;
}
#---SEPARATOR---#
#REQ:preview_user_list
#REQ:create_blank_profile_file
sub add_user_list {
my ($username, $group) = @_;
$delim = "\t" if $FORM{"delimiter"} eq "tab";
$delim = "," if $FORM{"delimiter"} eq "comma";
$delim = ";" if $FORM{"delimiter"} eq "semi";
$maxx = 0; $maxy = 0;
$ctr1 = 0; $ctr2 = 0;
foreach $key (keys(%FORM)) {
if ($key =~ m|x(\d+)y(\d+)|) {
$maxx = $1 if $1 > $maxx;
$maxy = $2 if $2 > $maxy;
}
}
for ($ctr1 = 1; $ctr1 <= $maxx; $ctr1 += 1) {
for ($ctr2 = 1; $ctr2 <= $maxy; $ctr2 += 1) {
$pos = "x$ctr1" . "y$ctr2";
$listin .= $FORM{$pos} . $delim;
}
$pos = "x" . ($ctr1+1) . "y1";
chop ($listin);
if ($FORM{$pos} eq "\\") {
last;
} else {
$listin .= "\n";
}
}
open (PASS, "$admin_dir/users.txt");
@pass = \n";
print "";
print scalar(@copied);
print " user";
print "s" if scalar(@copied) != 1;
print " successfully copied to \u$newgroup! \n";
if (scalar(@errors)) {
print scalar(@errors);
print " of the selected users could not be copied to the new group because a user\n";
print "with that username already exists. For each of the users below, select whether\n";
print "to skip copying the user or to overwrite the existing user. Any users that are\n";
print "not on this list have either been successfully copied to the new group. \n";
print " \n";
print "
\n";
}
print "\n";
if ($pro) {
$groups = join(",", @groups);
&userapp_1($username, $groups, 1);
}
print "\n";
exit(0);
}
#---SEPARATOR---#
#REQ:user_selfreg_config
sub user_mgr_2 {
my ($username, $group) = @_;
open (PASSWD, "$admin_dir/users.txt") || &error_message("File Error", "Cannot open user password file (users.txt)! (Code 070201)");
@passwd = Group Users $fs";
print "\u$line $fs$user_count \n";
print " You are not authorized to edit any groups!
\n";
print "User Manager: Edit \u$group\n";
print "
\n";
print "Users
\n";
print "\n";
print "Add a User
\n";
print "\n";
print "
\n";
print "Add a User List
\n";
print "\n";
print "
\n";
print "Copy All Users
\n";
print "\n";
if ($pro) {
&user_selfreg_config($username, $group);
}
print "
\n";
print "\n";
exit(0);
}
#---SEPARATOR---#
#REQ:create_blank_profile_file
sub add_user {
my ($username, $newuser, $pass1, $pass2, $group, $email, $full) = @_;
$newuser =~ tr/A-Z/a-z/; $pass1 =~ tr/A-Z/a-z/; $pass2 =~ tr/A-Z/a-z/;
$newuser =~ s/\s//g; $pass1 =~ s/\s//g; $pass2 =~ s/\s//g;
while ($newuser =~ m|(\W)|g) {
$o = ord($1); $m = $1;
&error_message("Add User Error", "Username is invalid (username may not contain the character $m).", 1, 1) if $o < 126;
}
while ($pass1 =~ m|(\W)|g) {
$o = ord($1); $m = $1;
&error_message("Add User Error", "Password is invalid (password may not contain the character $m).", 1, 1) if $o < 126;
}
&error_message("Add User Error", "The entered passwords do not match!", 1, 1) if $pass1 ne $pass2;
$usercount = length($newuser);
&error_message("Add User Error", "The username is invalid (username must be between 1 and 15 characters).", 1, 1) if ($usercount < 1 || $usercount > 15);
$passcount = length($pass1);
&error_message("Add User Error", "The entered passwords are invalid (password must be between 1 and 15 alphanumeric characters).", 1, 1) if ($passcount < 1 || $passcount > 15);
&lock("add_user", "$admin_dir/users.txt");
open(PASSWD,"$admin_dir/users.txt") || &error_message("Add User Error", "Cannot read password file (users.txt)! (Code 070401)", 1, 1);
@passwdline =
\n";
print "User Manager: Edit \u$group: Preview User List\n";
print "
\n";
print "\n
\n";
print "User Manager:\n";
print "Edit \u$oldgroup:\n";
print "Copy User$pls\n";
print "