summaryrefslogtreecommitdiffstats
path: root/globals.pl
diff options
context:
space:
mode:
Diffstat (limited to 'globals.pl')
-rw-r--r--globals.pl29
1 files changed, 27 insertions, 2 deletions
diff --git a/globals.pl b/globals.pl
index 4f5b9a226..ccb0e8167 100644
--- a/globals.pl
+++ b/globals.pl
@@ -236,9 +236,9 @@ sub GenerateVersionTable {
my $dotargetmilestone = Param("usetargetmilestone");
my $mpart = $dotargetmilestone ? ", milestoneurl" : "";
- SendSQL("select product, description, disallownew$mpart from products");
+ SendSQL("select product, description, votesperuser, disallownew$mpart from products");
while (@line = FetchSQLData()) {
- my ($p, $d, $dis, $u) = (@line);
+ my ($p, $d, $votesperuser, $dis, $u) = (@line);
$::proddesc{$p} = $d;
if ($dis) {
# Special hack. Stomp on the description and make it "0" if we're
@@ -249,6 +249,7 @@ sub GenerateVersionTable {
if ($dotargetmilestone) {
$::milestoneurl{$p} = $u;
}
+ $::prodmaxvotes{$p} = $votesperuser;
}
@@ -300,6 +301,7 @@ sub GenerateVersionTable {
print FID GenerateCode('@::legal_' . $i);
}
print FID GenerateCode('%::proddesc');
+ print FID GenerateCode('%::prodmaxvotes');
if ($dotargetmilestone) {
my $last = Param("nummilestones");
@@ -515,6 +517,29 @@ sub UserInGroup {
}
+sub RemoveVotes {
+ my ($id, $reason) = (@_);
+ ConnectToDatabase();
+ SendSQL("select profiles.login_name from votes, profiles where votes.bug_id = $id and profiles.userid = votes.who");
+ my @list;
+ while (MoreSQLData()) {
+ push(@list, FetchOneColumn());
+ }
+ if (0 < @list) {
+ if (open(SENDMAIL, "|/usr/lib/sendmail -t")) {
+ my %substs;
+ $substs{"to"} = join(',', @list);
+ $substs{"bugid"} = $id;
+ $substs{"reason"} = $reason;
+ print SENDMAIL PerformSubsts(Param("voteremovedmail"), \%substs);
+ close SENDMAIL;
+ }
+ SendSQL("delete from votes where bug_id = $id");
+ }
+}
+
+
+
sub Param {
my ($value) = (@_);
if (defined $::param{$value}) {