зеркало из https://github.com/mozilla/pjs.git
413 строки
13 KiB
Perl
Executable File
413 строки
13 KiB
Perl
Executable File
#!/usr/bin/perl -wT
|
|
# -*- Mode: perl; indent-tabs-mode: nil -*-
|
|
#
|
|
# The contents of this file are subject to the Mozilla Public
|
|
# License Version 1.1 (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>
|
|
# David Gardiner <david.gardiner@unisa.edu.au>
|
|
# Matthias Radestock <matthias@sorted.org>
|
|
# Gervase Markham <gerv@gerv.net>
|
|
|
|
use strict;
|
|
use lib ".";
|
|
|
|
require "CGI.pl";
|
|
|
|
use Bugzilla::Constants;
|
|
|
|
use vars qw(
|
|
@CheckOptionValues
|
|
@legal_resolution
|
|
@legal_bug_status
|
|
@legal_components
|
|
@legal_keywords
|
|
@legal_opsys
|
|
@legal_platform
|
|
@legal_priority
|
|
@legal_product
|
|
@legal_severity
|
|
@legal_target_milestone
|
|
@legal_versions
|
|
@log_columns
|
|
%versions
|
|
%components
|
|
%FORM
|
|
$template
|
|
$vars
|
|
);
|
|
|
|
my $cgi = Bugzilla->cgi;
|
|
|
|
if (defined $::FORM{"GoAheadAndLogIn"}) {
|
|
# We got here from a login page, probably from relogin.cgi. We better
|
|
# make sure the password is legit.
|
|
Bugzilla->login(LOGIN_REQUIRED);
|
|
} else {
|
|
Bugzilla->login();
|
|
}
|
|
|
|
my $user = Bugzilla->user;
|
|
my $userid = $user ? $user->id : 0;
|
|
|
|
# Backwards compatibility hack -- if there are any of the old QUERY_*
|
|
# cookies around, and we are logged in, then move them into the database
|
|
# and nuke the cookie. This is required for Bugzilla 2.8 and earlier.
|
|
if ($user) {
|
|
my @oldquerycookies;
|
|
foreach my $i (keys %::COOKIE) {
|
|
if ($i =~ /^QUERY_(.*)$/) {
|
|
push(@oldquerycookies, [$1, $i, $::COOKIE{$i}]);
|
|
}
|
|
}
|
|
if (defined $::COOKIE{'DEFAULTQUERY'}) {
|
|
push(@oldquerycookies, [$::defaultqueryname, 'DEFAULTQUERY',
|
|
$::COOKIE{'DEFAULTQUERY'}]);
|
|
}
|
|
if (@oldquerycookies) {
|
|
foreach my $ref (@oldquerycookies) {
|
|
my ($name, $cookiename, $value) = (@$ref);
|
|
if ($value) {
|
|
my $qname = SqlQuote($name);
|
|
SendSQL("SELECT query FROM namedqueries " .
|
|
"WHERE userid = $userid AND name = $qname");
|
|
my $query = FetchOneColumn();
|
|
if (!$query) {
|
|
SendSQL("REPLACE INTO namedqueries " .
|
|
"(userid, name, query) VALUES " .
|
|
"($userid, $qname, " . SqlQuote($value) . ")");
|
|
}
|
|
}
|
|
$cgi->send_cookie(-name => $cookiename,
|
|
-expires => "Fri, 01-Jan-2038 00:00:00 GMT");
|
|
}
|
|
}
|
|
}
|
|
|
|
if ($::FORM{'nukedefaultquery'}) {
|
|
if ($user) {
|
|
SendSQL("DELETE FROM namedqueries " .
|
|
"WHERE userid = $userid AND name = '$::defaultqueryname'");
|
|
}
|
|
$::buffer = "";
|
|
}
|
|
|
|
my $userdefaultquery;
|
|
if ($user) {
|
|
SendSQL("SELECT query FROM namedqueries " .
|
|
"WHERE userid = $userid AND name = '$::defaultqueryname'");
|
|
$userdefaultquery = FetchOneColumn();
|
|
}
|
|
|
|
my %default;
|
|
|
|
# We pass the defaults as a hash of references to arrays. For those
|
|
# Items which are single-valued, the template should only reference [0]
|
|
# and ignore any multiple values.
|
|
sub PrefillForm {
|
|
my ($buf) = (@_);
|
|
my $foundone = 0;
|
|
|
|
# Nothing must be undef, otherwise the template complains.
|
|
foreach my $name ("bug_status", "resolution", "assigned_to",
|
|
"rep_platform", "priority", "bug_severity",
|
|
"product", "reporter", "op_sys",
|
|
"component", "version", "chfield", "chfieldfrom",
|
|
"chfieldto", "chfieldvalue", "target_milestone",
|
|
"email", "emailtype", "emailreporter",
|
|
"emailassigned_to", "emailcc", "emailqa_contact",
|
|
"emaillongdesc", "content",
|
|
"changedin", "votes", "short_desc", "short_desc_type",
|
|
"long_desc", "long_desc_type", "bug_file_loc",
|
|
"bug_file_loc_type", "status_whiteboard",
|
|
"status_whiteboard_type", "bug_id",
|
|
"bugidtype", "keywords", "keywords_type",
|
|
"x_axis_field", "y_axis_field", "z_axis_field",
|
|
"chart_format", "cumulate", "x_labels_vertical",
|
|
"category", "subcategory", "name", "newcategory",
|
|
"newsubcategory", "public", "frequency")
|
|
{
|
|
# This is a bit of a hack. The default, empty list has
|
|
# three entries to accommodate the needs of the email fields -
|
|
# we use each position to denote the relevant field. Array
|
|
# position 0 is unused for email fields because the form
|
|
# parameters historically started at 1.
|
|
$default{$name} = ["", "", ""];
|
|
}
|
|
|
|
|
|
# Iterate over the URL parameters
|
|
foreach my $item (split(/\&/, $buf)) {
|
|
my @el = split(/=/, $item);
|
|
my $name = $el[0];
|
|
my $value;
|
|
if ($#el > 0) {
|
|
$value = url_decode($el[1]);
|
|
} else {
|
|
$value = "";
|
|
}
|
|
|
|
# If the name ends in a number (which it does for the fields which
|
|
# are part of the email searching), we use the array
|
|
# positions to show the defaults for that number field.
|
|
if ($name =~ m/^(.+)(\d)$/ && defined($default{$1})) {
|
|
$foundone = 1;
|
|
$default{$1}->[$2] = $value;
|
|
}
|
|
# If there's no default yet, we replace the blank string.
|
|
elsif (defined($default{$name}) && $default{$name}->[0] eq "") {
|
|
$foundone = 1;
|
|
$default{$name} = [$value];
|
|
}
|
|
# If there's already a default, we push on the new value.
|
|
elsif (defined($default{$name})) {
|
|
push (@{$default{$name}}, $value);
|
|
}
|
|
}
|
|
return $foundone;
|
|
}
|
|
|
|
|
|
if (!PrefillForm($::buffer)) {
|
|
# Ah-hah, there was no form stuff specified. Do it again with the
|
|
# default query.
|
|
if ($userdefaultquery) {
|
|
PrefillForm($userdefaultquery);
|
|
} else {
|
|
PrefillForm(Param("defaultquery"));
|
|
}
|
|
}
|
|
|
|
if ($default{'chfieldto'}->[0] eq "") {
|
|
$default{'chfieldto'} = ["Now"];
|
|
}
|
|
|
|
GetVersionTable();
|
|
|
|
# if using groups for entry, then we don't want people to see products they
|
|
# don't have access to. Remove them from the list.
|
|
|
|
my @products = ();
|
|
my %component_set;
|
|
my %version_set;
|
|
my %milestone_set;
|
|
foreach my $p (GetSelectableProducts()) {
|
|
# We build up boolean hashes in the "-set" hashes for each of these things
|
|
# before making a list because there may be duplicates names across products.
|
|
push @products, $p;
|
|
if ($::components{$p}) {
|
|
foreach my $c (@{$::components{$p}}) {
|
|
$component_set{$c} = 1;
|
|
}
|
|
}
|
|
foreach my $v (@{$::versions{$p}}) {
|
|
$version_set{$v} = 1;
|
|
}
|
|
foreach my $m (@{$::target_milestone{$p}}) {
|
|
$milestone_set{$m} = 1;
|
|
}
|
|
}
|
|
|
|
# @products is now all the products we are ever concerned with, as a list
|
|
# %x_set is now a unique "list" of the relevant components/versions/tms
|
|
@products = sort { lc($a) cmp lc($b) } @products;
|
|
|
|
# Create the component, version and milestone lists.
|
|
my @components = ();
|
|
my @versions = ();
|
|
my @milestones = ();
|
|
foreach my $c (@::legal_components) {
|
|
if ($component_set{$c}) {
|
|
push @components, $c;
|
|
}
|
|
}
|
|
foreach my $v (@::legal_versions) {
|
|
if ($version_set{$v}) {
|
|
push @versions, $v;
|
|
}
|
|
}
|
|
foreach my $m (@::legal_target_milestone) {
|
|
if ($milestone_set{$m}) {
|
|
push @milestones, $m;
|
|
}
|
|
}
|
|
|
|
# Create data structures representing each product.
|
|
for (my $i = 0; $i < @products; ++$i) {
|
|
my $p = $products[$i];
|
|
|
|
# Bug 190611: band-aid to avoid crashing with no versions defined
|
|
if (!defined ($::components{$p})) {
|
|
$::components{$p} = [];
|
|
}
|
|
|
|
# Create hash to hold attributes for each product.
|
|
my %product = (
|
|
'name' => $p,
|
|
'components' => [ sort { lc($a) cmp lc($b) } @{$::components{$p}} ],
|
|
'versions' => [ sort { lc($a) cmp lc($b) } @{$::versions{$p}} ]
|
|
);
|
|
|
|
if (Param('usetargetmilestone')) {
|
|
# Sorting here is required for ordering multiple selections
|
|
# correctly; see bug 97736 for discussion on how to fix this
|
|
$product{'milestones'} =
|
|
[ sort { lc($a) cmp lc($b) } @{$::target_milestone{$p}} ];
|
|
}
|
|
|
|
# Assign hash back to product array.
|
|
$products[$i] = \%product;
|
|
}
|
|
|
|
$vars->{'product'} = \@products;
|
|
|
|
# We use 'component_' because 'component' is a Template Toolkit reserved word.
|
|
$vars->{'component_'} = \@components;
|
|
|
|
$vars->{'version'} = \@versions;
|
|
|
|
if (Param('usetargetmilestone')) {
|
|
$vars->{'target_milestone'} = \@milestones;
|
|
}
|
|
|
|
$vars->{'have_keywords'} = scalar(@::legal_keywords);
|
|
|
|
push @::legal_resolution, "---"; # Oy, what a hack.
|
|
shift @::legal_resolution;
|
|
# Another hack - this array contains "" for some reason. See bug 106589.
|
|
$vars->{'resolution'} = \@::legal_resolution;
|
|
|
|
my @chfields;
|
|
|
|
push @chfields, "[Bug creation]";
|
|
|
|
# This is what happens when you have variables whose definition depends
|
|
# on the DB schema, and then the underlying schema changes...
|
|
foreach my $val (@::log_columns) {
|
|
if ($val eq 'product_id') {
|
|
$val = 'product';
|
|
} elsif ($val eq 'component_id') {
|
|
$val = 'component';
|
|
}
|
|
push @chfields, $val;
|
|
}
|
|
|
|
if (UserInGroup(Param('timetrackinggroup'))) {
|
|
push @chfields, "work_time";
|
|
} else {
|
|
@chfields = grep($_ ne "estimated_time", @chfields);
|
|
@chfields = grep($_ ne "remaining_time", @chfields);
|
|
}
|
|
@chfields = (sort(@chfields));
|
|
$vars->{'chfield'} = \@chfields;
|
|
$vars->{'bug_status'} = \@::legal_bug_status;
|
|
$vars->{'rep_platform'} = \@::legal_platform;
|
|
$vars->{'op_sys'} = \@::legal_opsys;
|
|
$vars->{'priority'} = \@::legal_priority;
|
|
$vars->{'bug_severity'} = \@::legal_severity;
|
|
|
|
# Boolean charts
|
|
my @fields;
|
|
push(@fields, { name => "noop", description => "---" });
|
|
push(@fields, GetFieldDefs());
|
|
$vars->{'fields'} = \@fields;
|
|
|
|
# Creating new charts - if the cmd-add value is there, we define the field
|
|
# value so the code sees it and creates the chart. It will attempt to select
|
|
# "xyzzy" as the default, and fail. This is the correct behaviour.
|
|
foreach my $cmd (grep(/^cmd-/, keys(%::FORM))) {
|
|
if ($cmd =~ /^cmd-add(\d+)-(\d+)-(\d+)$/) {
|
|
$::FORM{"field$1-$2-$3"} = "xyzzy";
|
|
}
|
|
}
|
|
|
|
if (!exists $::FORM{'field0-0-0'}) {
|
|
$::FORM{'field0-0-0'} = "xyzzy";
|
|
}
|
|
|
|
# Create data structure of boolean chart info. It's an array of arrays of
|
|
# arrays - with the inner arrays having three members - field, type and
|
|
# value.
|
|
my @charts;
|
|
for (my $chart = 0; $::FORM{"field$chart-0-0"}; $chart++) {
|
|
my @rows;
|
|
for (my $row = 0; $::FORM{"field$chart-$row-0"}; $row++) {
|
|
my @cols;
|
|
for (my $col = 0; $::FORM{"field$chart-$row-$col"}; $col++) {
|
|
push(@cols, { field => $::FORM{"field$chart-$row-$col"},
|
|
type => $::FORM{"type$chart-$row-$col"},
|
|
value => $::FORM{"value$chart-$row-$col"} });
|
|
}
|
|
push(@rows, \@cols);
|
|
}
|
|
push(@charts, \@rows);
|
|
}
|
|
|
|
$default{'charts'} = \@charts;
|
|
|
|
# Named queries
|
|
if ($user) {
|
|
my @namedqueries;
|
|
SendSQL("SELECT name FROM namedqueries " .
|
|
"WHERE userid = $userid AND name != '$::defaultqueryname' " .
|
|
"ORDER BY name");
|
|
while (MoreSQLData()) {
|
|
push(@namedqueries, FetchOneColumn());
|
|
}
|
|
|
|
$vars->{'namedqueries'} = \@namedqueries;
|
|
}
|
|
|
|
# Sort order
|
|
my $deforder;
|
|
my @orders = ('Bug Number', 'Importance', 'Assignee', 'Last Changed');
|
|
|
|
if ($::COOKIE{'LASTORDER'}) {
|
|
$deforder = "Reuse same sort as last time";
|
|
unshift(@orders, $deforder);
|
|
}
|
|
|
|
if ($::FORM{'order'}) { $deforder = $::FORM{'order'} }
|
|
|
|
$vars->{'userdefaultquery'} = $userdefaultquery;
|
|
$vars->{'orders'} = \@orders;
|
|
$default{'querytype'} = $deforder || 'Importance';
|
|
|
|
if (($::FORM{'query_format'} || $::FORM{'format'} || "") eq "create-series") {
|
|
require Bugzilla::Chart;
|
|
$vars->{'category'} = Bugzilla::Chart::getVisibleSeries();
|
|
}
|
|
|
|
# Add in the defaults.
|
|
$vars->{'default'} = \%default;
|
|
|
|
$vars->{'format'} = $::FORM{'format'};
|
|
$vars->{'query_format'} = $::FORM{'query_format'};
|
|
|
|
# Generate and return the UI (HTML page) from the appropriate template.
|
|
# If we submit back to ourselves (for e.g. boolean charts), we need to
|
|
# preserve format information; hence query_format taking priority over
|
|
# format.
|
|
my $format = GetFormat("search/search",
|
|
$::FORM{'query_format'} || $::FORM{'format'},
|
|
$::FORM{'ctype'});
|
|
|
|
print $cgi->header($format->{'ctype'});
|
|
|
|
$template->process($format->{'template'}, $vars)
|
|
|| ThrowTemplateError($template->error());
|