From 608e17c03974ecd0c54b01dadad994507dc2b23d Mon Sep 17 00:00:00 2001
From: "terry%mozilla.org" <>
Date: Wed, 19 Jan 2000 02:33:28 +0000
Subject: Spruced up "editusers.cgi". Added an "editusers" group.
---
editusers.cgi | 128 +++++++++++++++++++++++++++++++++++++++++++---------------
1 file changed, 95 insertions(+), 33 deletions(-)
(limited to 'editusers.cgi')
diff --git a/editusers.cgi b/editusers.cgi
index 5b5d7e526..d4c3cfd16 100755
--- a/editusers.cgi
+++ b/editusers.cgi
@@ -73,9 +73,9 @@ sub CheckUser ($)
# Displays the form to edit a user parameters
#
-sub EmitFormElements ($$$$)
+sub EmitFormElements ($$$$$)
{
- my ($user, $password, $realname, $groupset) = @_;
+ my ($user, $password, $realname, $groupset, $emailnotification) = @_;
print "
Login name:
\n";
print "
\n";
@@ -88,16 +88,29 @@ sub EmitFormElements ($$$$)
print "
Password:
\n";
print "
\n";
+ print "
\n";
+ print "
Email notification:
\n";
+ print qq{
\n";
- SendSQL("SELECT bit,name,description
+ SendSQL("SELECT bit,name,description,bit & $groupset != 0
FROM groups
ORDER BY name");
while (MoreSQLData()) {
- my($bit,$name,$description) = FetchSQLData();
+ my ($bit,$name,$description,$checked) = FetchSQLData();
print "
\n";
- $bit = $bit+0; # this strange construct coverts a string to a number
print "
\n";
}
@@ -142,9 +155,9 @@ confirm_login();
print "Content-type: text/html\n\n";
-unless (UserInGroup("tweakparams")) {
+unless (UserInGroup("editusers")) {
PutHeader("Not allowed");
- print "Sorry, you aren't a member of the 'tweakparams' group.\n";
+ print "Sorry, you aren't a member of the 'editusers' group.\n";
print "And so, you aren't allowed to add, modify or delete users.\n";
PutTrailer();
exit;
@@ -158,25 +171,63 @@ unless (UserInGroup("tweakparams")) {
my $user = trim($::FORM{user} || '');
my $action = trim($::FORM{action} || '');
my $localtrailer = "edit more users";
+my $candelete = Param('allowuserdeletion');
#
-# action='' -> Show nice list of users
+# action='' -> Ask for match string for users.
#
unless ($action) {
+ PutHeader("Select match string");
+ print qq{
+