#!/usr/bonsaitools/bin/perl -w # -*- Mode: perl; indent-tabs-mode: nil -*- # # The contents of this file are subject to the Mozilla Public # License Version 1.1 (the "License"); you may not use this file # except in compliance with the License. You may obtain a copy of # the License at http://www.mozilla.org/MPL/ # # Software distributed under the License is distributed on an "AS # IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or # implied. See the License for the specific language governing # rights and limitations under the License. # # The Original Code is mozilla.org code. # # The Initial Developer of the Original Code is Holger # Schurig. Portions created by Holger Schurig are # Copyright (C) 1999 Holger Schurig. All # Rights Reserved. # # Contributor(s): Holger Schurig # # # Direct any questions on this source code to # # Holger Schurig use diagnostics; use strict; require "CGI.pl"; require "globals.pl"; # TestUser: just returns if the specified user does exists # CheckUser: same check, optionally emit an error text sub TestUser ($) { my $user = shift; # does the product exist? SendSQL("SELECT login_name FROM profiles WHERE login_name=" . SqlQuote($user)); return FetchOneColumn(); } sub CheckUser ($) { my $user = shift; # do we have a product? unless ($user) { print "Sorry, you haven't specified a user."; PutTrailer(); exit; } unless (TestUser $user) { print "Sorry, user '$user' does not exist."; PutTrailer(); exit; } } # # Displays the form to edit a user parameters # sub EmitFormElements ($$$$$) { my ($user, $password, $realname, $groupset, $emailnotification) = @_; print " Login name:\n"; print " \n"; print "\n"; print " Real name:\n"; print " \n"; print "\n"; print " Password:\n"; print " \n"; print "\n"; print " Email notification:\n"; print qq{\n"; SendSQL("SELECT bit,name,description,bit & $groupset != 0 FROM groups ORDER BY name"); while (MoreSQLData()) { my ($bit,$name,$description,$checked) = FetchSQLData(); print "\n"; print " ", ucfirst($name), ":\n"; $checked = ($checked) ? "CHECKED" : ""; print " $description\n"; } } # # Displays a text like "a.", "a or b.", "a, b or c.", "a, b, c or d." # sub PutTrailer (@) { my (@links) = ("Back to the index", @_); my $count = $#links; my $num = 0; print "

\n"; foreach (@links) { print $_; if ($num == $count) { print ".\n"; } elsif ($num == $count-1) { print " or "; } else { print ", "; } $num++; } PutFooter(); } # # Preliminary checks: # confirm_login(); print "Content-type: text/html\n\n"; unless (UserInGroup("editusers")) { PutHeader("Not allowed"); 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; } # # often used variables # my $user = trim($::FORM{user} || ''); my $action = trim($::FORM{action} || ''); my $localtrailer = "edit more users"; my $candelete = Param('allowuserdeletion'); # # action='' -> Ask for match string for users. # unless ($action) { PutHeader("Select match string"); print qq{

List users with login name matching:
}; PutTrailer(); exit; } # # action='list' -> Show nice list of matching users # if ($action eq 'list') { PutHeader("Select user"); my $query = "SELECT login_name,realname FROM profiles WHERE login_name "; if ($::FORM{'matchtype'} eq 'substr') { $query .= "like"; $::FORM{'matchstr'} = '%' . $::FORM{'matchstr'} . '%'; } elsif ($::FORM{'matchtype'} eq 'regexp') { $query .= "regexp"; } elsif ($::FORM{'matchtype'} eq 'notregexp') { $query .= "not regexp"; } else { die "Unknown match type"; } $query .= SqlQuote($::FORM{'matchstr'}) . " ORDER BY login_name"; SendSQL($query); my $count = 0; my $header = " "; if ($candelete) { $header .= "\n"; } $header .= "\n"; print $header; while ( MoreSQLData() ) { $count++; if ($count % 100 == 0) { print "
Edit user ... Real nameAction
$header"; } my ($user, $realname) = FetchSQLData(); $realname ||= "missing"; print "\n"; print " $user\n"; print " $realname\n"; if ($candelete) { print " Delete\n"; } print ""; } print "\n"; my $span = $candelete ? 3 : 2; print qq{ Add a new user }; print "\n"; print "$count users found.\n"; PutTrailer($localtrailer); exit; } # # action='add' -> present form for parameters for new user # # (next action will be 'new') # if ($action eq 'add') { PutHeader("Add user"); print "\n"; print "\n"; EmitFormElements('', '', '', 0, 'ExcludeSelfChanges'); print "
\n
\n"; print "\n"; print "\n"; print "
"; my $other = $localtrailer; $other =~ s/more/other/; PutTrailer($other); exit; } # # action='new' -> add user entered in the 'action=add' screen # if ($action eq 'new') { PutHeader("Adding new user"); # Cleanups and valididy checks my $realname = trim($::FORM{realname} || ''); my $password = trim($::FORM{password} || ''); unless ($user) { print "You must enter a name for the new user. Please press\n"; print "Back and try again.\n"; PutTrailer($localtrailer); exit; } unless ($user =~ /^[^\@]+\@[^\@]+$/) { print "The user name entered must be a valid e-mail address. Please press\n"; print "Back and try again.\n"; PutTrailer($localtrailer); exit; } if (TestUser($user)) { print "The user '$user' does already exist. Please press\n"; print "Back and try again.\n"; PutTrailer($localtrailer); exit; } if ($password !~ /^[a-zA-Z0-9-_]*$/ || length($password) < 3 || length($password) > 16) { print "The new user must have a password. The password must be between ", "3 and 16 characters long and must contain only numbers, letters, ", "hyphens and underlines. Press Back and try again.\n"; PutTrailer($localtrailer); exit; } my $bits = "0"; foreach (keys %::FORM) { next unless /^bit_/; #print "$_=$::FORM{$_}
\n"; $bits .= "+ $::FORM{$_}"; } # Add the new user SendSQL("INSERT INTO profiles ( " . "login_name, password, cryptpassword, realname, groupset" . " ) VALUES ( " . SqlQuote($user) . "," . SqlQuote($password) . "," . "encrypt(" . SqlQuote($password) . ")," . SqlQuote($realname) . "," . $bits . ")" ); #+++ send e-mail away print "OK, done.

\n"; PutTrailer($localtrailer, "add another user."); exit; } # # action='del' -> ask if user really wants to delete # # (next action would be 'delete') # if ($action eq 'del') { PutHeader("Delete user"); if (!$candelete) { print "Sorry, deleting users isn't allowed."; PutTrailer(); } CheckUser($user); # display some data about the user SendSQL("SELECT realname, groupset, emailnotification, login_name FROM profiles WHERE login_name=" . SqlQuote($user)); my ($realname, $groupset, $emailnotification) = FetchSQLData(); $realname ||= "missing"; print "\n"; print "\n"; print " \n"; print " \n"; print "\n"; print " \n"; print " \n"; print "\n"; print " \n"; print " \n"; print "\n"; print " \n"; print " \n"; print "\n"; print " \n"; print " \n"; # Check if the user is an initialowner my $nodelete = ''; SendSQL("SELECT program, value FROM components WHERE initialowner=" . SqlQuote($user)); $found = 0; while (MoreSQLData()) { if ($found) { print "
\n"; } else { print "\n"; print " \n"; print " \n" if $found; # Check if the user is an initialqacontact SendSQL("SELECT program, value FROM components WHERE initialqacontact=" . SqlQuote($user)); $found = 0; while (MoreSQLData()) { if ($found) { print "
\n"; } else { print "\n"; print " \n"; print " \n" if $found; print "
PartValue
Login name:$user
Real name:$realname
E-Mail notification:$emailnotification
Group set:"; SendSQL("SELECT bit, name FROM groups ORDER BY name"); my $found = 0; while ( MoreSQLData() ) { my ($bit,$name) = FetchSQLData(); if ($bit & $groupset) { print "
\n" if $found; print ucfirst $name; $found = 1; } } print "none" unless $found; print "
Initial owner:"; } my ($product, $component) = FetchSQLData(); print "$product: $component"; $found = 1; $nodelete = 'initial bug owner'; } print "
Initial QA contact:"; } my ($product, $component) = FetchSQLData(); print "$product: $component"; $found = 1; $nodelete = 'initial QA contact'; } print "
\n"; if ($nodelete) { print "

You can't delete this user because '$user' is an $nodelete ", "for at least one product."; PutTrailer($localtrailer); exit; } print "

Confirmation

\n"; print "

Do you really want to delete this user?

\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "
"; PutTrailer($localtrailer); exit; } # # action='delete' -> really delete the user # if ($action eq 'delete') { PutHeader("Deleting user"); if (!$candelete) { print "Sorry, deleting users isn't allowed."; PutTrailer(); } CheckUser($user); SendSQL("SELECT userid FROM profiles WHERE login_name=" . SqlQuote($user)); my $userid = FetchOneColumn(); SendSQL("DELETE FROM profiles WHERE login_name=" . SqlQuote($user)); SendSQL("DELETE FROM logincookies WHERE userid=" . $userid); print "User deleted.
\n"; PutTrailer($localtrailer); exit; } # # action='edit' -> present the user edit from # # (next action would be 'update') # if ($action eq 'edit') { PutHeader("Edit user"); CheckUser($user); # get data of user SendSQL("SELECT password, realname, groupset, emailnotification FROM profiles WHERE login_name=" . SqlQuote($user)); my ($password, $realname, $groupset, $emailnotification) = FetchSQLData(); print "
\n"; print "\n"; EmitFormElements($user, $password, $realname, $groupset, $emailnotification); print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
"; my $x = $localtrailer; $x =~ s/more/other/; PutTrailer($x); exit; } # # action='update' -> update the user # if ($action eq 'update') { PutHeader("Update User"); my $userold = trim($::FORM{userold} || ''); my $realname = trim($::FORM{realname} || ''); my $realnameold = trim($::FORM{realnameold} || ''); my $password = trim($::FORM{password} || ''); my $passwordold = trim($::FORM{passwordold} || ''); my $emailnotification = trim($::FORM{emailnotification} || ''); my $emailnotificationold = trim($::FORM{emailnotificationold} || ''); my $groupsetold = trim($::FORM{groupsetold} || ''); my $groupset = "0"; foreach (keys %::FORM) { next unless /^bit_/; #print "$_=$::FORM{$_}
\n"; $groupset .= "+ $::FORM{$_}"; } CheckUser($userold); # Note that the order of this tests is important. If you change # them, be sure to test for WHERE='$product' or WHERE='$productold' if ($groupset != $groupsetold) { SendSQL("UPDATE profiles SET groupset=" . $groupset . " WHERE login_name=" . SqlQuote($userold)); print "Updated permissions.\n"; } if ($emailnotification ne $emailnotificationold) { SendSQL("UPDATE profiles SET emailnotification=" . SqlQuote($emailnotification) . " WHERE login_name=" . SqlQuote($userold)); print "Updated email notification.
\n"; } if ($password ne $passwordold) { my $q = SqlQuote($password); SendSQL("UPDATE profiles SET password= $q, cryptpassword = ENCRYPT($q) WHERE login_name=" . SqlQuote($userold)); print "Updated password.
\n"; } if ($realname ne $realnameold) { SendSQL("UPDATE profiles SET realname=" . SqlQuote($realname) . " WHERE login_name=" . SqlQuote($userold)); print "Updated real name.
\n"; } if ($user ne $userold) { unless ($user) { print "Sorry, I can't delete the user's name."; PutTrailer($localtrailer); exit; } if (TestUser($user)) { print "Sorry, user name '$user' is already in use."; PutTrailer($localtrailer); exit; } SendSQL("UPDATE profiles SET login_name=" . SqlQuote($user) . " WHERE login_name=" . SqlQuote($userold)); print "Updated user's name.
\n"; } PutTrailer($localtrailer); exit; } # # No valid action found # PutHeader("Error"); print "I don't have a clue what you want.
\n"; foreach ( sort keys %::FORM) { print "$_: $::FORM{$_}
\n"; }