#!/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 # Terry Weissman # Dawn Endico # Joe Robins # # Direct any questions on this source code to # # Holger Schurig use diagnostics; use strict; require "CGI.pl"; require "globals.pl"; # Shut up misguided -w warnings about "used only once". "use vars" just # doesn't work for me. sub sillyness { my $zz; $zz = $::unconfirmedstate; } # TestProduct: just returns if the specified product does exists # CheckProduct: same check, optionally emit an error text sub TestProduct ($) { my $prod = shift; # does the product exist? SendSQL("SELECT product FROM products WHERE product=" . SqlQuote($prod)); return FetchOneColumn(); } sub CheckProduct ($) { my $prod = shift; # do we have a product? unless ($prod) { print "Sorry, you haven't specified a product."; PutTrailer(); exit; } unless (TestProduct $prod) { print "Sorry, product '$prod' does not exist."; PutTrailer(); exit; } } # # Displays the form to edit a products parameters # sub EmitFormElements ($$$$$$$$) { my ($product, $description, $milestoneurl, $userregexp, $disallownew, $votesperuser, $maxvotesperbug, $votestoconfirm) = @_; $product = value_quote($product); $description = value_quote($description); print " Product:\n"; print " \n"; print "\n"; print " Description:\n"; print " \n"; if (Param('usetargetmilestone')) { $milestoneurl = value_quote($milestoneurl); print "\n"; print " Milestone URL:\n"; print " \n"; } # Added -JMR, 2/16/00 if (Param("usebuggroups")) { $userregexp = value_quote($userregexp); print "\n"; print " User Regexp for Bug Group:\n"; print " \n"; } print "\n"; print " Closed for bug entry:\n"; my $closed = $disallownew ? "CHECKED" : ""; print " \n"; print "\n"; print " Maximum votes per person:\n"; print " \n"; print "\n"; print " Maximum votes a person can put on a single bug:\n"; print " \n"; print "\n"; print " Number of votes a bug in this product needs to automatically get out of the UNCONFIRMED state:\n"; print " \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 query page", @_); 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("editcomponents")) { PutHeader("Not allowed"); print "Sorry, you aren't a member of the 'editcomponents' group.\n"; print "And so, you aren't allowed to add, modify or delete products.\n"; PutTrailer(); exit; } # # often used variables # my $product = trim($::FORM{product} || ''); my $action = trim($::FORM{action} || ''); my $localtrailer = "edit more products"; # # action='' -> Show nice list of products # unless ($action) { PutHeader("Select product"); SendSQL("SELECT products.product,description,disallownew, votesperuser,maxvotesperbug,votestoconfirm,COUNT(bug_id) FROM products LEFT JOIN bugs ON products.product=bugs.product GROUP BY products.product ORDER BY products.product"); print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print ""; while ( MoreSQLData() ) { my ($product, $description, $disallownew, $votesperuser, $maxvotesperbug, $votestoconfirm, $bugs) = FetchSQLData(); $description ||= "missing"; $disallownew = $disallownew ? 'closed' : 'open'; $bugs ||= 'none'; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print ""; } print "\n"; print " \n"; print " \n"; print "
Edit product ...DescriptionStatusVotes
per
user
Max
Votes
per
bug
Votes
to
confirm
BugsAction
$product$description$disallownew$votesperuser$maxvotesperbug$votestoconfirm$bugsDelete
Add a new productAdd
\n"; PutTrailer(); exit; } # # action='add' -> present form for parameters for new product # # (next action will be 'new') # if ($action eq 'add') { PutHeader("Add product"); #print "This page lets you add a new product to bugzilla.\n"; print "

\n"; print "\n"; EmitFormElements('', '', '', '', 0, 0, 10000, 0); print "\n"; print " \n"; print " \n"; print "
Version:
\n
\n"; print "\n"; print "\n"; print "
"; my $other = $localtrailer; $other =~ s/more/other/; PutTrailer($other); exit; } # # action='new' -> add product entered in the 'action=add' screen # if ($action eq 'new') { PutHeader("Adding new product"); # Cleanups and validity checks unless ($product) { print "You must enter a name for the new product. Please press\n"; print "Back and try again.\n"; PutTrailer($localtrailer); exit; } if (TestProduct($product)) { print "The product '$product' already exists. Please press\n"; print "Back and try again.\n"; PutTrailer($localtrailer); exit; } my $version = trim($::FORM{version} || ''); if ($version eq '') { print "You must enter a version for product '$product'. Please press\n"; print "Back and try again.\n"; PutTrailer($localtrailer); exit; } my $description = trim($::FORM{description} || ''); my $milestoneurl = trim($::FORM{milestoneurl} || ''); my $userregexp = trim($::FORM{userregexp} || ''); my $disallownew = 0; $disallownew = 1 if $::FORM{disallownew}; my $votesperuser = $::FORM{votesperuser}; $votesperuser ||= 0; my $maxvotesperbug = $::FORM{maxvotesperbug}; $maxvotesperbug = 10000 if !defined $maxvotesperbug; my $votestoconfirm = $::FORM{votestoconfirm}; $votestoconfirm ||= 0; # Add the new product. SendSQL("INSERT INTO products ( " . "product, description, milestoneurl, disallownew, votesperuser, " . "maxvotesperbug, votestoconfirm" . " ) VALUES ( " . SqlQuote($product) . "," . SqlQuote($description) . "," . SqlQuote($milestoneurl) . "," . $disallownew . "," . "$votesperuser, $maxvotesperbug, $votestoconfirm)"); SendSQL("INSERT INTO versions ( " . "value, program" . " ) VALUES ( " . SqlQuote($version) . "," . SqlQuote($product) . ")" ); # If we're using bug groups, then we need to create a group for this # product as well. -JMR, 2/16/00 if(Param("usebuggroups")) { # First we need to figure out the bit for this group. We'll simply # use the next highest bit available. We'll use a minimum bit of 256, # to leave room for a few more Bugzilla operation groups at the bottom. SendSQL("SELECT MAX(bit) FROM groups"); my $bit = FetchOneColumn(); if($bit < 256) { $bit = 256; } else { $bit = $bit * 2; } # Next we insert into the groups table SendSQL("INSERT INTO groups " . "(bit, name, description, isbuggroup, userregexp) " . "VALUES (" . $bit . ", " . SqlQuote($product) . ", " . SqlQuote($product . " Bugs Access") . ", " . "1, " . SqlQuote($userregexp) . ")"); # And last, we need to add any existing users that match the regexp # to the group. # There may be a better way to do this in MySql, but I need to compare # the login_names to this regexp, and the only way I can think of to # do that is to get the list of login_names, and then update them # one by one if they match. Furthermore, I need to do it with two # separate loops, since opening a new SQL statement to do the update # seems to clobber the previous one. SendSQL("SELECT login_name FROM profiles"); my @login_list = (); my $this_login; while($this_login = FetchOneColumn()) { push @login_list, $this_login; } foreach $this_login (@login_list) { if($this_login =~ /$userregexp/) { SendSQL("UPDATE profiles " . "SET groupset = groupset | " . $bit . " " . "WHERE login_name = " . SqlQuote($this_login)); } } } # Make versioncache flush unlink "data/versioncache"; print "OK, done.

\n"; PutTrailer($localtrailer, "add components to this new product."); exit; } # # action='del' -> ask if user really wants to delete # # (next action would be 'delete') # if ($action eq 'del') { PutHeader("Delete product"); CheckProduct($product); # display some data about the product SendSQL("SELECT description, milestoneurl, disallownew FROM products WHERE product=" . SqlQuote($product)); my ($description, $milestoneurl, $disallownew) = FetchSQLData(); $description ||= "description missing"; $disallownew = $disallownew ? 'closed' : 'open'; print "\n"; print "\n"; print " \n"; print " \n"; print "\n"; print " \n"; print " \n"; print "\n"; print " \n"; print " \n"; if (Param('usetargetmilestone')) { print "\n"; print " \n"; print " \n"; } # Added -JMR, 2/16/00 if(Param('usebuggroups')) { # Get the regexp for this product. SendSQL("SELECT userregexp FROM groups WHERE name=" . SqlQuote($product)); my $userregexp = FetchOneColumn(); if(!defined $userregexp) { $userregexp = "undefined"; } elsif ($userregexp eq "") { $userregexp = "blank"; } print "\n"; print " \n"; print " \n"; } print "\n"; print " \n"; print " \n"; print "\n"; print " \n"; print " \n\n"; print " \n"; print " \n\n"; print " \n"; print " \n\n"; print " \n"; print " \n
PartValue
Product:$product
Description:$description
Milestone URL:$milestoneurl
User Regexp for Bug Group:$userregexp
Closed for bugs:$disallownew
Components:"; SendSQL("SELECT value,description FROM components WHERE program=" . SqlQuote($product)); if (MoreSQLData()) { print ""; while ( MoreSQLData() ) { my ($component, $description) = FetchSQLData(); $description ||= "description missing"; print ""; print "\n"; } print "
$component:$description
\n"; } else { print "missing"; } print "
Versions:"; SendSQL("SELECT value FROM versions WHERE program=" . SqlQuote($product) . " ORDER BY value"); if (MoreSQLData()) { my $br = 0; while ( MoreSQLData() ) { my ($version) = FetchSQLData(); print "
" if $br; print $version; $br = 1; } } else { print "missing"; } # # Adding listing for associated target milestones - matthew@zeroknowledge.com # if (Param('usetargetmilestone')) { print "
Edit milestones:"; SendSQL("SELECT value FROM milestones WHERE product=" . SqlQuote($product) . " ORDER BY sortkey,value"); if(MoreSQLData()) { my $br = 0; while ( MoreSQLData() ) { my ($milestone) = FetchSQLData(); print "
" if $br; print $milestone; $br = 1; } } else { print "missing"; } } print "
Bugs:"; SendSQL("SELECT count(bug_id),product FROM bugs GROUP BY product HAVING product=" . SqlQuote($product)); my $bugs = FetchOneColumn(); print $bugs || 'none'; print "
"; print "

Confirmation

\n"; if ($bugs) { if (!Param("allowbugdeletion")) { print "Sorry, there are $bugs bugs outstanding for this product. You must reassign those bugs to another product before you can delete this one."; PutTrailer($localtrailer); exit; } print "
\n", "There are bugs entered for this product! When you delete this ", "product, all stored bugs will be deleted, too. ", "You could not even see a bug history anymore!\n", "
\n"; } print "

Do you really want to delete this product?

\n"; print "

\n"; print "\n"; print "\n"; print "\n"; print "
"; PutTrailer($localtrailer); exit; } # # action='delete' -> really delete the product # if ($action eq 'delete') { PutHeader("Deleting product"); CheckProduct($product); # lock the tables before we start to change everything: SendSQL("LOCK TABLES attachments WRITE, bugs WRITE, bugs_activity WRITE, components WRITE, dependencies WRITE, versions WRITE, products WRITE, groups WRITE, profiles WRITE, milestones WRITE"); # According to MySQL doc I cannot do a DELETE x.* FROM x JOIN Y, # so I have to iterate over bugs and delete all the indivial entries # in bugs_activies and attachments. if (Param("allowbugdeletion")) { SendSQL("SELECT bug_id FROM bugs WHERE product=" . SqlQuote($product)); while (MoreSQLData()) { my $bugid = FetchOneColumn(); my $query = $::db->query("DELETE FROM attachments WHERE bug_id=$bugid") or die "$::db_errstr"; $query = $::db->query("DELETE FROM bugs_activity WHERE bug_id=$bugid") or die "$::db_errstr"; $query = $::db->query("DELETE FROM dependencies WHERE blocked=$bugid") or die "$::db_errstr"; } print "Attachments, bug activity and dependencies deleted.
\n"; # Deleting the rest is easier: SendSQL("DELETE FROM bugs WHERE product=" . SqlQuote($product)); print "Bugs deleted.
\n"; } SendSQL("DELETE FROM components WHERE program=" . SqlQuote($product)); print "Components deleted.
\n"; SendSQL("DELETE FROM versions WHERE program=" . SqlQuote($product)); print "Versions deleted.

\n"; # deleting associated target milestones - matthew@zeroknowledge.com SendSQL("DELETE FROM milestones WHERE product=" . SqlQuote($product)); print "Milestones deleted.
\n"; SendSQL("DELETE FROM products WHERE product=" . SqlQuote($product)); print "Product '$product' deleted.
\n"; # Added -JMR, 2/16/00 if (Param("usebuggroups")) { # We need to get the bit of the group from the table, then update the # groupsets of members of that group and remove the group. SendSQL("SELECT bit, description FROM groups " . "WHERE name = " . SqlQuote($product)); my ($bit, $group_desc) = FetchSQLData(); # Make sure there is a group before we try to do any deleting... if($bit) { # I'm kludging a bit so that I don't break superuser access; # I'm merely checking to make sure that the groupset is not # the superuser groupset in doing this update... SendSQL("UPDATE profiles " . "SET groupset = groupset - $bit " . "WHERE (groupset & $bit) " . "AND (groupset != 9223372036854710271)"); print "Users dropped from group '$group_desc'.
\n"; SendSQL("DELETE FROM groups " . "WHERE bit = $bit"); print "Group '$group_desc' deleted.
\n"; } } SendSQL("UNLOCK TABLES"); unlink "data/versioncache"; PutTrailer($localtrailer); exit; } # # action='edit' -> present the edit products from # # (next action would be 'update') # if ($action eq 'edit') { PutHeader("Edit product"); CheckProduct($product); # get data of product SendSQL("SELECT description,milestoneurl,disallownew, votesperuser,maxvotesperbug,votestoconfirm FROM products WHERE product=" . SqlQuote($product)); my ($description, $milestoneurl, $disallownew, $votesperuser, $maxvotesperbug, $votestoconfirm) = FetchSQLData(); my $userregexp = ''; if(Param("usebuggroups")) { SendSQL("SELECT userregexp FROM groups WHERE name=" . SqlQuote($product)); $userregexp = FetchOneColumn(); } print "

\n"; print "\n"; EmitFormElements($product, $description, $milestoneurl, $userregexp, $disallownew, $votesperuser, $maxvotesperbug, $votestoconfirm); print "\n"; print " \n"; print " \n\n"; print " \n"; print " \n\n"; print " \n"; print " \n\n"; print " \n"; print " \n
Edit components:"; SendSQL("SELECT value,description FROM components WHERE program=" . SqlQuote($product)); if (MoreSQLData()) { print ""; while ( MoreSQLData() ) { my ($component, $description) = FetchSQLData(); $description ||= "description missing"; print ""; print "\n"; } print "
$component:$description
\n"; } else { print "missing"; } print "
Edit versions:"; SendSQL("SELECT value FROM versions WHERE program=" . SqlQuote($product) . " ORDER BY value"); if (MoreSQLData()) { my $br = 0; while ( MoreSQLData() ) { my ($version) = FetchSQLData(); print "
" if $br; print $version; $br = 1; } } else { print "missing"; } # # Adding listing for associated target milestones - matthew@zeroknowledge.com # if (Param('usetargetmilestone')) { print "
Edit milestones:"; SendSQL("SELECT value FROM milestones WHERE product=" . SqlQuote($product) . " ORDER BY sortkey,value"); if(MoreSQLData()) { my $br = 0; while ( MoreSQLData() ) { my ($milestone) = FetchSQLData(); print "
" if $br; print $milestone; $br = 1; } } else { print "missing"; } } print "
Bugs:"; SendSQL("SELECT count(bug_id),product FROM bugs GROUP BY product HAVING product=" . SqlQuote($product)); my $bugs = ''; $bugs = FetchOneColumn() if MoreSQLData(); print $bugs || 'none'; print "
\n"; print "\n"; print "\n"; print "\n"; if(Param("usebuggroups")) { 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 product # if ($action eq 'update') { PutHeader("Update product"); my $productold = trim($::FORM{productold} || ''); my $description = trim($::FORM{description} || ''); my $descriptionold = trim($::FORM{descriptionold} || ''); my $disallownew = trim($::FORM{disallownew} || ''); my $disallownewold = trim($::FORM{disallownewold} || ''); my $milestoneurl = trim($::FORM{milestoneurl} || ''); my $milestoneurlold = trim($::FORM{milestoneurlold} || ''); my $votesperuser = trim($::FORM{votesperuser} || 0); my $votesperuserold = trim($::FORM{votesperuserold} || ''); my $userregexp = trim($::FORM{userregexp} || ''); my $userregexpold = trim($::FORM{userregexpold} || ''); my $maxvotesperbug = trim($::FORM{maxvotesperbug} || 0); my $maxvotesperbugold = trim($::FORM{maxvotesperbugold} || ''); my $votestoconfirm = trim($::FORM{votestoconfirm} || 0); my $votestoconfirmold = trim($::FORM{votestoconfirmold} || ''); my $checkvotes = 0; CheckProduct($productold); if ($maxvotesperbug !~ /^\d+$/ || $maxvotesperbug <= 0) { print "Sorry, the max votes per bug must be a positive integer."; PutTrailer($localtrailer); exit; } # Note that the order of this tests is important. If you change # them, be sure to test for WHERE='$product' or WHERE='$productold' SendSQL("LOCK TABLES bugs WRITE, components WRITE, products WRITE, versions WRITE, groups WRITE, profiles WRITE, milestones WRITE"); if ($disallownew ne $disallownewold) { $disallownew ||= 0; SendSQL("UPDATE products SET disallownew=$disallownew WHERE product=" . SqlQuote($productold)); print "Updated bug submit status.
\n"; } if ($description ne $descriptionold) { unless ($description) { print "Sorry, I can't delete the description."; SendSQL("UNLOCK TABLES"); PutTrailer($localtrailer); exit; } SendSQL("UPDATE products SET description=" . SqlQuote($description) . " WHERE product=" . SqlQuote($productold)); print "Updated description.
\n"; } if (Param('usetargetmilestone') && $milestoneurl ne $milestoneurlold) { SendSQL("UPDATE products SET milestoneurl=" . SqlQuote($milestoneurl) . " WHERE product=" . SqlQuote($productold)); print "Updated mile stone URL.
\n"; } # Added -JMR, 2/16/00 if (Param("usebuggroups") && $userregexp ne $userregexpold) { # This will take a little bit of work here, since there may not be # an existing bug group for this product, and we will also have to # update users groupsets. # First we find out if there's an existing group for this product, and # get its bit if there is. SendSQL("SELECT bit " . "FROM groups " . "WHERE name = " . SqlQuote($productold)); my $bit = FetchOneColumn(); if($bit) { # Group exists, so we do an update statement. SendSQL("UPDATE groups " . "SET userregexp = " . SqlQuote($userregexp) . " " . "WHERE name = " . SqlQuote($productold)); print "Updated user regexp for bug group.
\n"; } else { # Group doesn't exist. Let's make it, the same way as we make a # group for a new product above. SendSQL("SELECT MAX(bit) FROM groups"); my $tmp_bit = FetchOneColumn(); if($tmp_bit < 256) { $bit = 256; } else { $bit = $tmp_bit * 2; } SendSQL("INSERT INTO groups " . "(bit, name, description, isbuggroup, userregexp) " . "values (" . $bit . ", " . SqlQuote($productold) . ", " . SqlQuote($productold . " Bugs Access") . ", " . "1, " . SqlQuote($userregexp) . ")"); print "Created bug group.
\n"; } # And now we have to update the profiles again to add any users who # match the new regexp to the group. I'll do this the same way as # when I create a new group above. Note that I'm not taking out # users who matched the old regexp and not the new one; that would # be insanely messy. Use the group administration page for that # instead. SendSQL("SELECT login_name FROM profiles"); my @login_list = (); my $this_login; while($this_login = FetchOneColumn()) { push @login_list, $this_login; } my $updated_profiles = 0; foreach $this_login (@login_list) { if($this_login =~ /$userregexp/) { SendSQL("UPDATE profiles " . "SET groupset = groupset | " . $bit . " " . "WHERE login_name = " . SqlQuote($this_login)); $updated_profiles = 1; } } if($updated_profiles) { print "Added users matching regexp to group.
\n"; } } if ($votesperuser ne $votesperuserold) { SendSQL("UPDATE products SET votesperuser=$votesperuser WHERE product=" . SqlQuote($productold)); print "Updated votes per user.
\n"; $checkvotes = 1; } if ($maxvotesperbug ne $maxvotesperbugold) { SendSQL("UPDATE products SET maxvotesperbug=$maxvotesperbug WHERE product=" . SqlQuote($productold)); print "Updated max votes per bug.
\n"; $checkvotes = 1; } if ($votestoconfirm ne $votestoconfirmold) { SendSQL("UPDATE products SET votestoconfirm=$votestoconfirm WHERE product=" . SqlQuote($productold)); print "Updated votes to confirm.
\n"; $checkvotes = 1; } my $qp = SqlQuote($product); my $qpold = SqlQuote($productold); if ($product ne $productold) { unless ($product) { print "Sorry, I can't delete the product name."; SendSQL("UNLOCK TABLES"); PutTrailer($localtrailer); exit; } if (TestProduct($product)) { print "Sorry, product name '$product' is already in use."; SendSQL("UNLOCK TABLES"); PutTrailer($localtrailer); exit; } SendSQL("UPDATE bugs SET product=$qp WHERE product=$qpold"); SendSQL("UPDATE components SET program=$qp WHERE program=$qpold"); SendSQL("UPDATE products SET product=$qp WHERE product=$qpold"); SendSQL("UPDATE versions SET program=$qp WHERE program=$qpold"); SendSQL("UPDATE milestones SET product=$qp WHERE product=$qpold"); # Need to do an update to groups as well. If there is a corresponding # bug group, whether usebuggroups is currently set or not, we want to # update it so it will match in the future. If there is no group, this # update statement will do nothing, so no harm done. -JMR, 3/8/00 SendSQL("UPDATE groups " . "SET name=$qp, " . "description=".SqlQuote($product." Bugs Access")." ". "WHERE name=$qpold"); print "Updated product name.
\n"; } unlink "data/versioncache"; SendSQL("UNLOCK TABLES"); if ($checkvotes) { print "Checking existing votes in this product for anybody who now has too many votes."; if ($maxvotesperbug < $votesperuser) { SendSQL("SELECT votes.who, votes.bug_id " . "FROM votes, bugs " . "WHERE bugs.bug_id = votes.bug_id " . " AND bugs.product = $qp " . " AND votes.count > $maxvotesperbug"); my @list; while (MoreSQLData()) { my ($who, $id) = (FetchSQLData()); push(@list, [$who, $id]); } foreach my $ref (@list) { my ($who, $id) = (@$ref); RemoveVotes($id, $who, "The rules for voting on this product has changed;\nyou had too many votes for a single bug."); my $name = DBID_to_name($who); print qq{
Removed votes for bug $id from $name\n}; } } SendSQL("SELECT votes.who, votes.count FROM votes, bugs " . "WHERE bugs.bug_id = votes.bug_id " . " AND bugs.product = $qp"); my %counts; while (MoreSQLData()) { my ($who, $count) = (FetchSQLData()); if (!defined $counts{$who}) { $counts{$who} = $count; } else { $counts{$who} += $count; } } foreach my $who (keys(%counts)) { if ($counts{$who} > $votesperuser) { SendSQL("SELECT votes.bug_id FROM votes, bugs " . "WHERE bugs.bug_id = votes.bug_id " . " AND bugs.product = $qp " . " AND votes.who = $who"); while (MoreSQLData()) { my $id = FetchSQLData(); RemoveVotes($id, $who, "The rules for voting on this product has changed; you had too many\ntotal votes, so all votes have been removed."); my $name = DBID_to_name($who); print qq{
Removed votes for bug $id from $name\n}; } } } SendSQL("SELECT bug_id FROM bugs " . "WHERE product = $qp " . " AND bug_status = '$::unconfirmedstate' " . " AND votes >= $votestoconfirm"); my @list; while (MoreSQLData()) { push(@list, FetchOneColumn()); } foreach my $id (@list) { SendSQL("SELECT who FROM votes WHERE bug_id = $id"); my $who = FetchOneColumn(); CheckIfVotedConfirmed($id, $who); } } 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"; }