Unreviewed. Fix individual benchmark description urls to go to in-depth.html instead...
[WebKit-https.git] / Websites / bugs.webkit.org / query.cgi
1 #!/usr/bin/perl -T
2 # This Source Code Form is subject to the terms of the Mozilla Public
3 # License, v. 2.0. If a copy of the MPL was not distributed with this
4 # file, You can obtain one at http://mozilla.org/MPL/2.0/.
5 #
6 # This Source Code Form is "Incompatible With Secondary Licenses", as
7 # defined by the Mozilla Public License, v. 2.0.
8
9 use 5.10.1;
10 use strict;
11 use warnings;
12
13 use lib qw(. lib);
14
15 use Bugzilla;
16 use Bugzilla::Bug;
17 use Bugzilla::Constants;
18 use Bugzilla::Search;
19 use Bugzilla::Search::Saved;
20 use Bugzilla::User;
21 use Bugzilla::Util;
22 use Bugzilla::Error;
23 use Bugzilla::Product;
24 use Bugzilla::Version;
25 use Bugzilla::Keyword;
26 use Bugzilla::Field;
27 use Bugzilla::Token;
28
29 ###############
30 # Subroutines #
31 ###############
32
33 sub get_product_values {
34     my ($products, $field, $vars) = @_;
35     my @all_values = map { @{ $_->$field } } @$products;
36
37     my (@unique, %duplicates, %duplicate_count, %seen);
38     foreach my $value (@all_values) {
39         my $lc_name = lc($value->name);
40         if ($seen{$lc_name}) {
41             $duplicate_count{$seen{$lc_name}->id}++;
42             $duplicates{$value->id} = $seen{$lc_name};
43             next;
44         }
45         push(@unique, $value);
46         $seen{$lc_name} = $value;
47     }
48
49     $field =~ s/s$//;
50     if ($field eq 'version') {
51         @unique = sort { vers_cmp(lc($a->name), lc($b->name)) } @unique;
52     }
53     else {
54         @unique = sort { lc($a->name) cmp lc($b->name) } @unique;
55     }
56
57     $field = 'target_milestone' if $field eq 'milestone';
58     $vars->{duplicates}->{$field} = \%duplicates;
59     $vars->{duplicate_count}->{$field} = \%duplicate_count;
60     # "component" is a reserved word in Template Toolkit.
61     $field = 'component_' if $field eq 'component';
62     $vars->{$field} = \@unique;
63 }
64
65 ###############
66 # Main Script #
67 ###############
68
69 my $cgi = Bugzilla->cgi;
70 my $dbh = Bugzilla->dbh;
71 my $template = Bugzilla->template;
72 my $vars = {};
73 my $buffer = $cgi->query_string();
74
75 my $user = Bugzilla->login();
76 my $userid = $user->id;
77
78 if ($cgi->param('nukedefaultquery')) {
79     if ($userid) {
80         my $token = $cgi->param('token');
81         check_hash_token($token, ['nukedefaultquery']);
82         my $named_queries = Bugzilla::Search::Saved->match(
83             { userid => $userid, name => DEFAULT_QUERY_NAME });
84         if (@$named_queries) {
85             $named_queries->[0]->remove_from_db();
86         }
87     }
88     $buffer = "";
89 }
90
91 # We are done with changes committed to the DB.
92 $dbh = Bugzilla->switch_to_shadow_db;
93
94 my $userdefaultquery;
95 if ($userid) {
96     $userdefaultquery = $dbh->selectrow_array(
97         "SELECT query FROM namedqueries " .
98          "WHERE userid = ? AND name = ?", 
99          undef, ($userid, DEFAULT_QUERY_NAME));
100 }
101
102 local our %default;
103
104 # We pass the defaults as a hash of references to arrays. For those
105 # Items which are single-valued, the template should only reference [0]
106 # and ignore any multiple values.
107 sub PrefillForm {
108     my ($buf) = @_;
109     my $cgi = Bugzilla->cgi;
110     $buf = new Bugzilla::CGI($buf);
111     my $foundone = 0;
112
113     # If there are old-style boolean charts in the URL (from an old saved
114     # search or from an old link on the web somewhere) then convert them
115     # to the new "custom search" format so that the form is populated
116     # properly.
117     my $any_boolean_charts = grep { /^field-?\d+/ } $buf->param();
118     if ($any_boolean_charts) {
119         my $search = new Bugzilla::Search(params => scalar $buf->Vars);
120         $search->boolean_charts_to_custom_search($buf);
121     }
122
123     # Query parameters that don't represent form fields on this page.
124     my @skip = qw(format query_format list_id columnlist);
125
126     # Iterate over the URL parameters
127     foreach my $name ($buf->param()) {
128         next if grep { $_ eq $name } @skip;
129         $foundone = 1;
130         my @values = $buf->param($name);
131         
132         # If the name is a single letter followed by numbers, it's part
133         # of Custom Search. We store these as an array of hashes.
134         if ($name =~ /^([[:lower:]])(\d+)$/) {
135             $default{'custom_search'}->[$2]->{$1} = $values[0];
136         }
137         # If the name ends in a number (which it does for the fields which
138         # are part of the email searching), we use the array
139         # positions to show the defaults for that number field.
140         elsif ($name =~ /^(\w+)(\d)$/) {
141             $default{$1}->[$2] = $values[0];
142         }
143         else {
144             push (@{ $default{$name} }, @values);
145         }
146     }
147
148     return $foundone;
149 }
150
151 if (!PrefillForm($buffer)) {
152     # Ah-hah, there was no form stuff specified.  Do it again with the
153     # default query.
154     if ($userdefaultquery) {
155         PrefillForm($userdefaultquery);
156     } else {
157         PrefillForm(Bugzilla->params->{"defaultquery"});
158     }
159 }
160
161 # if using groups for entry, then we don't want people to see products they 
162 # don't have access to. Remove them from the list.
163 my @selectable_products = sort {lc($a->name) cmp lc($b->name)} 
164                                @{$user->get_selectable_products};
165 Bugzilla::Product::preload(\@selectable_products);
166 $vars->{'product'} = \@selectable_products;
167
168 # Create the component, version and milestone lists.
169 foreach my $field (qw(components versions milestones)) {
170     get_product_values(\@selectable_products, $field, $vars);
171 }
172
173 # Create data structures representing each classification
174 if (Bugzilla->params->{'useclassification'}) {
175     $vars->{'classification'} = $user->get_selectable_classifications;
176 }
177
178 my @chfields;
179
180 push @chfields, "[Bug creation]";
181
182 # This is what happens when you have variables whose definition depends
183 # on the DB schema, and then the underlying schema changes...
184 foreach my $val (editable_bug_fields()) {
185     if ($val eq 'classification_id') {
186         $val = 'classification';
187     } elsif ($val eq 'product_id') {
188         $val = 'product';
189     } elsif ($val eq 'component_id') {
190         $val = 'component';
191     }
192     push @chfields, $val;
193 }
194
195 if ($user->is_timetracker) {
196     push @chfields, "work_time";
197 } else {
198     foreach my $tt_field (TIMETRACKING_FIELDS) {
199         @chfields = grep($_ ne $tt_field, @chfields);
200     }
201 }
202 @chfields = (sort(@chfields));
203 $vars->{'chfield'} = \@chfields;
204 $vars->{'bug_status'} = Bugzilla::Field->new({name => 'bug_status'})->legal_values;
205 $vars->{'rep_platform'} = Bugzilla::Field->new({name => 'rep_platform'})->legal_values;
206 $vars->{'op_sys'} = Bugzilla::Field->new({name => 'op_sys'})->legal_values;
207 $vars->{'priority'} = Bugzilla::Field->new({name => 'priority'})->legal_values;
208 $vars->{'bug_severity'} = Bugzilla::Field->new({name => 'bug_severity'})->legal_values;
209 $vars->{'resolution'} = Bugzilla::Field->new({name => 'resolution'})->legal_values;
210
211 # Boolean charts
212 my @fields = @{ Bugzilla->fields({ obsolete => 0 }) };
213
214 my %exclude_fields = ();
215
216 # If we're not in the time-tracking group, exclude time-tracking fields.
217 if (!$user->is_timetracker) {
218     foreach my $tt_field (TIMETRACKING_FIELDS) {
219         $exclude_fields{$tt_field} = 1;
220     }
221 }
222
223 # Exclude fields turned off by params
224 my %param_controlled_fields = ('useqacontact'        => 'qa_contact',
225                                'usetargetmilestone'  => 'target_milestone',
226                                'useclassification'   => 'classification',
227                                'usestatuswhiteboard' => 'status_whiteboard');
228
229 while (my ($param, $field) = each %param_controlled_fields) {
230     $exclude_fields{$field} = 1 unless Bugzilla->params->{$param};
231 }
232
233 @fields = grep(!$exclude_fields{$_->name}, @fields);
234
235 @fields = sort {lc($a->description) cmp lc($b->description)} @fields;
236 unshift(@fields, { name => "noop", description => "---" });
237 $vars->{'fields'} = \@fields;
238
239 # Named queries
240 if ($userid) {
241      $vars->{'namedqueries'} = $dbh->selectcol_arrayref(
242            "SELECT name FROM namedqueries " .
243             "WHERE userid = ? AND name != ? " .
244          "ORDER BY name",
245          undef, ($userid, DEFAULT_QUERY_NAME));
246 }
247
248 # Sort order
249 my $deforder;
250 my @orders = ('Bug Number', 'Importance', 'Assignee', 'Last Changed');
251
252 if ($cgi->cookie('LASTORDER')) {
253     $deforder = "Reuse same sort as last time";
254     unshift(@orders, $deforder);
255 }
256
257 if ($cgi->param('order')) { $deforder = $cgi->param('order') }
258
259 $vars->{'userdefaultquery'} = $userdefaultquery;
260 $vars->{'orders'} = \@orders;
261 $default{'order'} = [$deforder || 'Importance'];
262
263 if (($cgi->param('query_format') || $cgi->param('format') || "")
264     eq "create-series") {
265     require Bugzilla::Chart;
266     $vars->{'category'} = Bugzilla::Chart::getVisibleSeries();
267 }
268
269 $vars->{'known_name'} = $cgi->param('known_name');
270 $vars->{'columnlist'} = $cgi->param('columnlist');
271
272
273 # Add in the defaults.
274 $vars->{'default'} = \%default;
275
276 $vars->{'format'} = $cgi->param('format');
277 $vars->{'query_format'} = $cgi->param('query_format');
278
279 # Set default page to "specific" if none provided
280 if (!($cgi->param('query_format') || $cgi->param('format'))) {
281     if (defined $cgi->cookie('DEFAULTFORMAT')) {
282         $vars->{'format'} = $cgi->cookie('DEFAULTFORMAT');
283     } else {
284         $vars->{'format'} = 'specific';
285     }
286 }
287
288 # Set cookie to current format as default, but only if the format
289 # one that we should remember.
290 if (defined($vars->{'format'}) && IsValidQueryType($vars->{'format'})) {
291     $cgi->send_cookie(-name => 'DEFAULTFORMAT',
292                       -value => $vars->{'format'},
293                       -expires => "Fri, 01-Jan-2038 00:00:00 GMT");
294 }
295
296 # Generate and return the UI (HTML page) from the appropriate template.
297 # If we submit back to ourselves (for e.g. boolean charts), we need to
298 # preserve format information; hence query_format taking priority over
299 # format.
300 my $format = $template->get_format("search/search", 
301                                    $vars->{'query_format'} || $vars->{'format'}, 
302                                    scalar $cgi->param('ctype'));
303
304 print $cgi->header($format->{'ctype'});
305
306 $template->process($format->{'template'}, $vars)
307   || ThrowTemplateError($template->error());