summaryrefslogtreecommitdiffstats
path: root/showowners.cgi
blob: b0926e4735f62f216811060a280f7aa5c8c38cfc (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
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.