diff options
| -rwxr-xr-x | showowners.cgi | 145 |
1 files changed, 145 insertions, 0 deletions
diff --git a/showowners.cgi b/showowners.cgi new file mode 100755 index 000000000..dee819bee --- /dev/null +++ b/showowners.cgi @@ -0,0 +1,145 @@ +#!/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): Bryce Nesbitt <bryce@nextbus.com> +# +# This program lists all BugZilla users, and lists what modules they +# either own or are default QA for. It is very slow on large databases. + +use diagnostics; +use strict; + +require "CGI.pl"; +require "globals.pl"; + +# Fetch, one row at a time, the product and module. +# Build the contents of the table cell listing each unique +# product just once, with all the modules. +sub FetchAndFormat { + my $result = ""; + my $temp = ""; + my @row = ""; + + while (@row = FetchSQLData()) { + if( $temp ne $row[0] ) { + $result .= " " . $row[0] . ": "; + } else { + $result .= ", "; + } + $temp = $row[0]; + $result .= "<I>" . $row[1] . "</I>"; + } + return( $result ); +} + + +# Start the resulting web page +print "Content-type: text/html\n\n"; +print "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\"> +<html><head><title>BugZilla module owners list</title></head>\n"; + +ConnectToDatabase(); +GetVersionTable(); + +# Collect all BugZilla user names +SendSQL("select login_name,userid from profiles order by login_name"); +my @list; +my @row; +while (@row = FetchSQLData()) { + push @list, $row[0]; +} + +print "<P>The following is a list of BugZilla users who are the default owner +for at least one module. BugZilla will only assign or Cc: a bug to the exact +name stored in the database. Click on a name to see bugs assigned to that person:</P>\n"; +print "<table border=1>\n"; +print "<tr><td><B>Login name</B></td>\n"; +print "<td><B>Default owner for</B></td><td><B>Default QA for</B></td>\n"; + +# If a user is a initialowner or initialqacontact, list their modules +my $person; +my $nospamperson; +my $firstcell; +my $secondcell; +my @nocell; +foreach $person (@list) { + + my $qperson = SqlQuote($person); + + SendSQL("select program,value from components\ + where initialowner = $qperson order by program,value;"); + $firstcell = FetchAndFormat(); + + SendSQL("select program,value from components\ + where initialqacontact = $qperson order by program,value;"); + $secondcell = FetchAndFormat(); + + $_ = $person; # Anti-spam + s/@/ @/; # Mangle + $nospamperson = $_; # Email + + if( $firstcell || $secondcell ) { + print "<tr>"; + + print "<td>\n"; + print "<a href=\"buglist.cgi?bug_status=NEW&bug_status=ASSIGNED&bug_status=REOPENED&email1=${person}&emailtype1=substring&emailassigned_to1=1&cmdtype=doit&newqueryname=&order=%22Importance%22&form_name=query\">${nospamperson}</a>\n"; + print "</td>\n"; + + print "<td>"; + print $firstcell; + print "</td>\n"; + + print "<td>"; + print $secondcell; + print "</td>\n"; + + print "</tr>\n"; + } else { + push @nocell, $person; + } +} + +print "<tr>"; +print "<td colspan=3>"; +print "Other valid logins: "; +foreach $person (@nocell) { + $_ = $person; # Anti-spam + s/@/ @/; # Mangle + $nospamperson = $_; # Email + + print "<a href=\"buglist.cgi?bug_status=NEW&bug_status=ASSIGNED&bug_status=REOPENED&email1=${person}&emailtype1=substring&emailassigned_to1=1&cmdtype=doit&newqueryname=&order=%22Importance%22&form_name=query\">${nospamperson}</a>\n"; + print ", "; +} +print "</td>"; +print "</tr>\n"; + +print "</table>\n"; + +# Enhancement ideas +# o Use just one table cell for each person. The table gets unbalanced for installs +# where just a few QA people handle lots of modules +# o Optimize for large systems. Terry notes: +# The problem is that you go query the components table 10,000 times, +# twice for each of the 5,000 logins that we have. Yow! +# +# It would be better to generate your initial list of logins by selecting +# for distinct initialqacontact and initialowner values from the +# components database. Then when you generate the list of "other +# logins", you can query for the whole list of logins and subtract out +# things that were in the components database. |