Skip to content

bugzilla
bugzilla
Commit ac6a300a authored by bryce-mozilla%nextbus.com's avatar bryce-mozilla%nextbus.com
Browse files
Options

Not really having time to really finish this, I'll put it up for others to work with.

This is a login-centric view of the database. It is very slow for systems ith large numbers of logins.
parent 3a6e1807
Hide whitespace changes
Inline Side-by-side
Showing with 145 additions and 0 deletions
showowners.cgi 0 → 100755
View file @ ac6a300a
#!/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.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment