summaryrefslogtreecommitdiffstats
path: root/describecomponents.cgi
diff options
context:
space:
mode:
authorterry%netscape.com <>1999-02-05 02:13:51 +0100
committerterry%netscape.com <>1999-02-05 02:13:51 +0100
commit28ace6f018eb70180f4766e8f924efdc004f62cd (patch)
treea7ba8207122ef03a6afe1172a473ac9bccf8f5aa /describecomponents.cgi
parent1f785439a2789a31d0c2e828283171026849b6ab (diff)
downloadbugzilla-28ace6f018eb70180f4766e8f924efdc004f62cd.tar.gz
bugzilla-28ace6f018eb70180f4766e8f924efdc004f62cd.tar.xz
Added a page which describes all the components in a product.
Diffstat (limited to 'describecomponents.cgi')
-rwxr-xr-xdescribecomponents.cgi96
1 files changed, 96 insertions, 0 deletions
diff --git a/describecomponents.cgi b/describecomponents.cgi
new file mode 100755
index 000000000..bce7577d2
--- /dev/null
+++ b/describecomponents.cgi
@@ -0,0 +1,96 @@
+#!/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 vars %::FORM;
+
+use diagnostics;
+use strict;
+
+require "CGI.pl";
+
+ConnectToDatabase();
+GetVersionTable();
+
+print "Content-type: text/html\n\n";
+
+my $product = $::FORM{'product'};
+if (!defined $product || lsearch(\@::legal_product, $product) < 0) {
+
+ PutHeader("Bugzilla component description");
+ print "
+<FORM>
+Please specify the product whose components you want described.
+<P>
+Product: <SELECT NAME=product>
+";
+ print make_options(\@::legal_product);
+ print "
+</SELECT>
+<P>
+<INPUT TYPE=\"submit\" VALUE=\"Submit\">
+</FORM>
+";
+ exit;
+}
+
+
+PutHeader("Bugzilla component description", "Bugzilla component description",
+ $product);
+
+print "
+<TABLE>
+<tr>
+<th align=left>Component</th>
+<th align=left>Default owner</th>
+";
+
+my $useqacontact = Param("useqacontact");
+
+my $cols = 2;
+if ($useqacontact) {
+ print "<th align=left>Default qa contact</th>";
+ $cols++;
+}
+
+my $colbut1 = $cols - 1;
+
+print "</tr>";
+
+SendSQL("select value, initialowner, initialqacontact, description from components where program = " . SqlQuote($product));
+
+while (MoreSQLData()) {
+ my @row = FetchSQLData();
+ my ($component, $initialowner, $initialqacontact, $description) = (@row);
+
+ print qq|
+<tr><td colspan=$cols><hr></td></tr>
+<tr><td rowspan=2>$component</td>
+<td><a href="mailto:$initialowner">$initialowner</a></td>
+|;
+ if ($useqacontact) {
+ print qq|
+<td><a href="mailto:$initialqacontact">$initialqacontact</a></td>
+|;
+ }
+ print "</tr><tr><td colspan=$colbut1>$description</td></tr>\n";
+}
+
+print "<tr><td colspan=$cols><hr></td></tr></table>\n";