summaryrefslogtreecommitdiffstats
path: root/showvotes.cgi
diff options
context:
space:
mode:
Diffstat (limited to 'showvotes.cgi')
-rwxr-xr-xshowvotes.cgi120
1 files changed, 120 insertions, 0 deletions
diff --git a/showvotes.cgi b/showvotes.cgi
new file mode 100755
index 000000000..1d03ae191
--- /dev/null
+++ b/showvotes.cgi
@@ -0,0 +1,120 @@
+#!/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.0 (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 the Bugzilla Bug Tracking System.
+#
+# The Initial Developer of the Original Code is Netscape Communications
+# Corporation. Portions created by Netscape are Copyright (C) 1998
+# Netscape Communications Corporation. All Rights Reserved.
+#
+# Contributor(s): Terry Weissman <terry@mozilla.org>
+
+use diagnostics;
+use strict;
+
+require "CGI.pl";
+
+if (defined $::FORM{'voteon'} || (!defined $::FORM{'bug_id'} &&
+ !defined $::FORM{'user'})) {
+ confirm_login();
+ ConnectToDatabase();
+ $::FORM{'user'} = DBNameToIdAndCheck($::COOKIE{'Bugzilla_login'});
+}
+
+print "Content-type: text/html\n\n";
+
+if (defined $::FORM{'bug_id'}) {
+ my $id = $::FORM{'bug_id'};
+ my $linkedid = qq{<a href="show_bug.cgi?id=$id">$id</a>};
+ PutHeader("Show votes", "Show votes", "Bug $linkedid");
+ ConnectToDatabase();
+ SendSQL("select profiles.login_name, votes.who, votes.count from votes, profiles where votes.bug_id = " . SqlQuote($id) . " and profiles.userid = votes.who");
+ print "<table>\n";
+ print "<tr><th>Who</th><th>Number of votes</th></tr>\n";
+ my $sum = 0;
+ while (MoreSQLData()) {
+ my ($name, $userid, $count) = (FetchSQLData());
+ print qq{<tr><td><a href="showvotes.cgi?user=$userid">$name</a></td><td align=right>$count</td></tr>\n};
+ $sum += $count;
+ }
+ print "</table>";
+ print "<p>Total votes: $sum<p>\n";
+} elsif (defined $::FORM{'user'}) {
+ ConnectToDatabase();
+ quietly_check_login();
+ GetVersionTable();
+ my $who = $::FORM{'user'};
+ my $name = DBID_to_name($who);
+ PutHeader("Show votes", "Show votes", $name);
+ print qq{<form action="doeditvotes.cgi">\n};
+ print "<table><tr><td></td><th>Bug \#</th><th>Summary</th><th>Votes</th></tr>\n";
+ SendSQL("lock tables bugs read, votes write");
+ if (defined($::FORM{'voteon'})) {
+ # Oh, boy, what a hack. Make sure there is an entry for this bug
+ # in the vote table, just so that things display right.
+ # Yuck yuck yuck.###
+ SendSQL("select votes.count from votes where votes.bug_id = $::FORM{'voteon'} and votes.who = $who");
+ if (!MoreSQLData()) {
+ SendSQL("insert into votes (who, bug_id, count) values ($who, $::FORM{'voteon'}, 0)");
+ }
+ }
+ my $canedit = (defined $::COOKIE{'Bugzilla_login'} &&
+ $::COOKIE{'Bugzilla_login'} eq $name);
+ foreach my $product (sort(keys(%::prodmaxvotes))) {
+ if ($::prodmaxvotes{$product} <= 0) {
+ next;
+ }
+ my $qprod = value_quote($product);
+ SendSQL("select votes.bug_id, votes.count, bugs.short_desc, bugs.bug_status from votes, bugs where votes.who = $who and votes.bug_id = bugs.bug_id and bugs.product = " . SqlQuote($product) . "order by votes.bug_id");
+ my $sum = 0;
+ print "<tr><th>$product</th></tr>";
+ while (MoreSQLData()) {
+ my ($id, $count, $summary, $status) = (FetchSQLData());
+ my $opened = ($status eq "NEW" || $status eq "ASSIGNED" ||
+ $status eq "REOPENED");
+ my $strike = $opened ? "" : "<strike>";
+ my $endstrike = $opened ? "" : "</strike>";
+ $summary = html_quote($summary);
+ $sum += $count;
+ if ($canedit) {
+ $count = "<input name=$id value=$count size=5>";
+ }
+ print qq{
+<tr>
+<td></td>
+<td><a href="showvotes.cgi?bug_id=$id">$id</a></td>
+<td><a href="show_bug.cgi?id=$id">$strike$summary$endstrike</a></td>
+<td align=right>$count</td>
+</tr>
+};
+ }
+ my $plural = (($sum == 1) ? "" : "s");
+ print "<td colspan=3>$sum vote$plural used out of\n";
+ print "$::prodmaxvotes{$product} allowed.</td>\n";
+ }
+ print "</table>\n";
+ if ($canedit) {
+ print qq{<input type=submit value="Submit">\n};
+ print "<br>To change your votes, type in new numbers (using zero to\n";
+ print "mean no votes), and then click <b>Submit</b>.\n";
+ }
+ print "<input type=hidden name=who value=$who>";
+ print "</form>\n";
+ SendSQL("delete from votes where count <= 0");
+ SendSQL("unlock tables");
+}
+
+print qq{<a href="votehelp.html">Help! I don't understand this voting stuff</a>};
+
+navigation_header();
+