&verify_owner($FORM{'group'},$FORM{'username'}) || &error_message("Permissions Error", "You do not have permission to remove or edit users in this group!");
&ex("profile_editor_screen", "users", $edit, $FORM{'group'}, $FORM{"username"}, "$cgiurl3", "profile_user", 1) if !$pro;
&ex("profile_editor_screen_PRO", "users", $edit, $FORM{'group'}, $FORM{"username"}, "$cgiurl3", "profile_user", 1) if $pro;
exit(0);
}
}
if ($FORM{'action'} eq "profile_user") {
&check_passwd;
&verify_owner($FORM{'group'},$FORM{'username'}) || &error_message("Permissions Error", "You do not have permission to remove or edit users in this group!");
$act2 = $FORM{'action2'};
$group = $FORM{'group'};
$username = $FORM{'username_edit'};
open (USERS, "$admin_dir/users.txt"); @users = <USERS>; close (USERS);
@users = grep(/:$group\s*$/, @users);
($result) = grep(/^$username:/, @users);
$result = "USERS:$result";
@result = ($result);
if ($act2 eq "infosave") {
$email = $FORM{'profile_email'};
$full = $FORM{'profile_fullname'};
if ($email =~ m|^([\w\-\+\.]+)\@([\w\-\+\.]+)$|) {