Merge with HEAD at Groups_20020716_Sync4
git-svn-id: svn://10.0.0.236/branches/Groups_20020716_Branch@128233 18797224-902f-48f8-a5cc-f745e15eee43
This commit is contained in:
@@ -24,7 +24,6 @@
|
||||
# Module Initialization
|
||||
############################################################################
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
package Attachment;
|
||||
|
||||
@@ -21,7 +21,6 @@
|
||||
# Terry Weissman <terry@mozilla.org>
|
||||
# Chris Yeh <cyeh@bluemartini.com>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use DBI;
|
||||
@@ -183,40 +182,39 @@ sub initBug {
|
||||
}
|
||||
}
|
||||
|
||||
&::SendSQL("select attach_id, creation_ts, description
|
||||
from attachments
|
||||
where bug_id = $bug_id");
|
||||
my @attachments;
|
||||
while (&::MoreSQLData()) {
|
||||
my ($attachid, $date, $desc) = (&::FetchSQLData());
|
||||
if ($date =~ /^(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/) {
|
||||
$date = "$3/$4/$2 $5:$6";
|
||||
my %attach;
|
||||
$attach{'attachid'} = $attachid;
|
||||
$attach{'date'} = $date;
|
||||
$attach{'desc'} = $desc;
|
||||
push @attachments, \%attach;
|
||||
&::SendSQL("select attach_id, creation_ts, isprivate, description
|
||||
from attachments
|
||||
where bug_id = $bug_id");
|
||||
my @attachments;
|
||||
while (&::MoreSQLData()) {
|
||||
my ($attachid, $date, $isprivate, $desc) = (&::FetchSQLData());
|
||||
my %attach;
|
||||
$attach{'attachid'} = $attachid;
|
||||
$attach{'isprivate'} = $isprivate;
|
||||
$attach{'date'} = $date;
|
||||
$attach{'desc'} = $desc;
|
||||
push @attachments, \%attach;
|
||||
}
|
||||
if (@attachments) {
|
||||
$self->{'attachments'} = \@attachments;
|
||||
}
|
||||
}
|
||||
if (@attachments) {
|
||||
$self->{'attachments'} = \@attachments;
|
||||
}
|
||||
|
||||
&::SendSQL("select bug_id, who, bug_when, thetext
|
||||
&::SendSQL("select bug_id, who, bug_when, isprivate, thetext
|
||||
from longdescs
|
||||
where bug_id = $bug_id");
|
||||
my @longdescs;
|
||||
while (&::MoreSQLData()) {
|
||||
my ($bug_id, $who, $bug_when, $thetext) = (&::FetchSQLData());
|
||||
my %longdesc;
|
||||
$longdesc{'who'} = $who;
|
||||
$longdesc{'bug_when'} = $bug_when;
|
||||
$longdesc{'thetext'} = $thetext;
|
||||
push @longdescs, \%longdesc;
|
||||
}
|
||||
if (@longdescs) {
|
||||
$self->{'longdescs'} = \@longdescs;
|
||||
}
|
||||
my @longdescs;
|
||||
while (&::MoreSQLData()) {
|
||||
my ($bug_id, $who, $bug_when, $isprivate, $thetext) = (&::FetchSQLData());
|
||||
my %longdesc;
|
||||
$longdesc{'who'} = $who;
|
||||
$longdesc{'bug_when'} = $bug_when;
|
||||
$longdesc{'isprivate'} = $isprivate;
|
||||
$longdesc{'thetext'} = $thetext;
|
||||
push @longdescs, \%longdesc;
|
||||
}
|
||||
if (@longdescs) {
|
||||
$self->{'longdescs'} = \@longdescs;
|
||||
}
|
||||
|
||||
my @depends = EmitDependList("blocked", "dependson", $bug_id);
|
||||
if (@depends) {
|
||||
@@ -267,34 +265,40 @@ sub emitXML {
|
||||
}
|
||||
}
|
||||
|
||||
if (defined $self->{'longdescs'}) {
|
||||
for (my $i=0 ; $i < @{$self->{'longdescs'}} ; $i++) {
|
||||
$xml .= " <long_desc>\n";
|
||||
$xml .= " <who>" . &::DBID_to_name($self->{'longdescs'}[$i]->{'who'})
|
||||
. "</who>\n";
|
||||
$xml .= " <bug_when>" . $self->{'longdescs'}[$i]->{'bug_when'}
|
||||
. "</bug_when>\n";
|
||||
$xml .= " <thetext>" . QuoteXMLChars($self->{'longdescs'}[$i]->{'thetext'})
|
||||
. "</thetext>\n";
|
||||
$xml .= " </long_desc>\n";
|
||||
if (defined $self->{'longdescs'}) {
|
||||
for (my $i=0 ; $i < @{$self->{'longdescs'}} ; $i++) {
|
||||
next if ($self->{'longdescs'}[$i]->{'isprivate'}
|
||||
&& &::Param("insidergroup")
|
||||
&& !&::UserInGroup(&::Param("insidergroup")));
|
||||
$xml .= " <long_desc>\n";
|
||||
$xml .= " <who>" . &::DBID_to_name($self->{'longdescs'}[$i]->{'who'})
|
||||
. "</who>\n";
|
||||
$xml .= " <bug_when>" . $self->{'longdescs'}[$i]->{'bug_when'}
|
||||
. "</bug_when>\n";
|
||||
$xml .= " <thetext>" . QuoteXMLChars($self->{'longdescs'}[$i]->{'thetext'})
|
||||
. "</thetext>\n";
|
||||
$xml .= " </long_desc>\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if (defined $self->{'attachments'}) {
|
||||
for (my $i=0 ; $i < @{$self->{'attachments'}} ; $i++) {
|
||||
$xml .= " <attachment>\n";
|
||||
$xml .= " <attachid>" . $self->{'attachments'}[$i]->{'attachid'}
|
||||
. "</attachid>\n";
|
||||
$xml .= " <date>" . $self->{'attachments'}[$i]->{'date'} . "</date>\n";
|
||||
$xml .= " <desc>" . QuoteXMLChars($self->{'attachments'}[$i]->{'desc'}) . "</desc>\n";
|
||||
# $xml .= " <type>" . $self->{'attachments'}[$i]->{'type'} . "</type>\n";
|
||||
# $xml .= " <data>" . $self->{'attachments'}[$i]->{'data'} . "</data>\n";
|
||||
$xml .= " </attachment>\n";
|
||||
if (defined $self->{'attachments'}) {
|
||||
for (my $i=0 ; $i < @{$self->{'attachments'}} ; $i++) {
|
||||
next if ($self->{'attachments'}[$i]->{'isprivate'}
|
||||
&& &::Param("insidergroup")
|
||||
&& !&::UserInGroup(&::Param("insidergroup")));
|
||||
$xml .= " <attachment>\n";
|
||||
$xml .= " <attachid>" . $self->{'attachments'}[$i]->{'attachid'}
|
||||
. "</attachid>\n";
|
||||
$xml .= " <date>" . $self->{'attachments'}[$i]->{'date'} . "</date>\n";
|
||||
$xml .= " <desc>" . QuoteXMLChars($self->{'attachments'}[$i]->{'desc'}) . "</desc>\n";
|
||||
# $xml .= " <type>" . $self->{'attachments'}[$i]->{'type'} . "</type>\n";
|
||||
# $xml .= " <data>" . $self->{'attachments'}[$i]->{'data'} . "</data>\n";
|
||||
$xml .= " </attachment>\n";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
$xml .= "</bug>\n";
|
||||
return $xml;
|
||||
$xml .= "</bug>\n";
|
||||
return $xml;
|
||||
}
|
||||
|
||||
sub EmitDependList {
|
||||
|
||||
@@ -25,7 +25,6 @@
|
||||
# Myk Melez <myk@mozilla.org>
|
||||
# Michael Schindler <michael@compressconsult.com>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
require "globals.pl";
|
||||
@@ -38,6 +37,7 @@ package Bugzilla::Search;
|
||||
use Bugzilla::Util;
|
||||
|
||||
use Date::Format;
|
||||
use Date::Parse;
|
||||
|
||||
# Create a new Search
|
||||
sub new {
|
||||
@@ -314,7 +314,7 @@ sub init {
|
||||
"^long_?desc," => sub {
|
||||
my $table = "longdescs_$chartid";
|
||||
push(@supptables, "longdescs $table");
|
||||
if (Param("insidergroup") && !UserInGroup(Param("insidergroup"))) {
|
||||
if (&::Param("insidergroup") && !&::UserInGroup(&::Param("insidergroup"))) {
|
||||
push(@wherepart, "$table.isprivate < 1") ;
|
||||
}
|
||||
push(@wherepart, "$table.bug_id = bugs.bug_id");
|
||||
|
||||
@@ -19,7 +19,7 @@
|
||||
#
|
||||
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
||||
# Dan Mosedale <dmose@mozilla.org>
|
||||
# Jake <jake@acutex.net>
|
||||
# Jacob Steenhagen <jake@bugzilla.org>
|
||||
# Bradley Baetz <bbaetz@student.usyd.edu.au>
|
||||
# Christopher Aillon <christopher@aillon.com>
|
||||
|
||||
@@ -69,7 +69,6 @@ use base qw(Exporter);
|
||||
trim);
|
||||
|
||||
use strict;
|
||||
use diagnostics;
|
||||
|
||||
=head1 FUNCTIONS
|
||||
|
||||
|
||||
@@ -27,7 +27,6 @@
|
||||
|
||||
# Contains some global routines used throughout the CGI scripts of Bugzilla.
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib ".";
|
||||
|
||||
|
||||
@@ -29,7 +29,6 @@
|
||||
# might involve turning this into a virtual base class, and having
|
||||
# UserSet and KeywordSet types that inherit from it.
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
# Everything that uses RelationSet should already have globals.pl loaded
|
||||
|
||||
@@ -24,7 +24,6 @@
|
||||
################################################################################
|
||||
|
||||
# Make it harder for us to do dangerous things in Perl.
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
# Bundle the functions in this file together into the "Token" package.
|
||||
|
||||
@@ -26,7 +26,6 @@
|
||||
################################################################################
|
||||
|
||||
# Make it harder for us to do dangerous things in Perl.
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -21,7 +21,6 @@
|
||||
# Dave Miller <justdave@syndicomm.com>
|
||||
# Vaskin Kissoyan <vkissoyan@yahoo.com>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use RelationSet;
|
||||
|
||||
@@ -29,7 +29,6 @@
|
||||
################################################################################
|
||||
|
||||
# Make it harder for us to do dangerous things in Perl.
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -23,7 +23,7 @@
|
||||
# Dan Mosedale <dmose@mozilla.org>
|
||||
# Dave Miller <justdave@syndicomm.com>
|
||||
# Zach Lipton <zach@zachlipton.com>
|
||||
# Jacob Steenhagen <jake@acutex.net>
|
||||
# Jacob Steenhagen <jake@bugzilla.org>
|
||||
# Bradley Baetz <bbaetz@student.usyd.edu.au>
|
||||
#
|
||||
#
|
||||
@@ -94,7 +94,6 @@
|
||||
# Global definitions
|
||||
###########################################################################
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
# 12/17/00 justdave@syndicomm.com - removed declarations of the localconfig
|
||||
@@ -2628,7 +2627,7 @@ AddField('attachments', 'isprivate', 'tinyint not null default 0');
|
||||
# record when email notifications were last sent about this bug. Also,
|
||||
# added a user pref whether a user wants to use the brand new experimental
|
||||
# stuff.
|
||||
# 2001-04-29 jake@acutex.net - The newemailtech field is no longer needed
|
||||
# 2001-04-29 jake@bugzilla.org - The newemailtech field is no longer needed
|
||||
# http://bugzilla.mozilla.org/show_bugs.cgi?id=71552
|
||||
|
||||
if (!GetFieldDef('bugs', 'lastdiffed')) {
|
||||
@@ -2951,7 +2950,7 @@ AddField('groups', 'isactive', 'tinyint not null default 1');
|
||||
#
|
||||
AddField('attachments', 'isobsolete', 'tinyint not null default 0');
|
||||
|
||||
# 2001-04-29 jake@acutex.net - Remove oldemailtech
|
||||
# 2001-04-29 jake@bugzilla.org - Remove oldemailtech
|
||||
# http://bugzilla.mozilla.org/show_bugs.cgi?id=71552
|
||||
if (-d 'shadow') {
|
||||
print "Removing shadow directory...\n";
|
||||
@@ -3012,7 +3011,7 @@ if (!defined GetIndexDef('longdescs','who')) {
|
||||
# truncates re http://bugzilla.mozilla.org/show_bug.cgi?id=9352
|
||||
ChangeFieldType('bugs', 'version','varchar(64) not null');
|
||||
|
||||
# 2001-07-20 jake@acutex.net - Change bugs_activity to only record changes
|
||||
# 2001-07-20 jake@bugzilla.org - Change bugs_activity to only record changes
|
||||
# http://bugzilla.mozilla.org/show_bug.cgi?id=55161
|
||||
if (GetFieldDef('bugs_activity', 'oldvalue')) {
|
||||
AddField("bugs_activity", "removed", "tinytext");
|
||||
@@ -3086,7 +3085,7 @@ if (GetFieldDef('bugs_activity', 'oldvalue')) {
|
||||
DropField("bugs_activity", "newvalue");
|
||||
}
|
||||
|
||||
# 2001-07-24 jake@acutex.net - disabledtext was being handled inconsitantly
|
||||
# 2001-07-24 jake@bugzilla.org - disabledtext was being handled inconsitantly
|
||||
# http://bugzilla.mozilla.org/show_bug.cgi?id=90933
|
||||
ChangeFieldType("profiles", "disabledtext", "mediumtext not null");
|
||||
|
||||
@@ -3335,7 +3334,7 @@ if (GetFieldDef("namedqueries", "watchfordiffs")) {
|
||||
DropField("namedqueries", "watchfordiffs");
|
||||
}
|
||||
|
||||
# 2002-08-12 jake@acutex.net/bbaetz@student.usyd.edu.au - bug 43600
|
||||
# 2002-08-12 jake@bugzilla.org/bbaetz@student.usyd.edu.au - bug 43600
|
||||
# Use integer IDs for products and components.
|
||||
if (GetFieldDef("products", "product")) {
|
||||
print "Updating database to use product IDs.\n";
|
||||
|
||||
@@ -21,7 +21,6 @@
|
||||
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
||||
# Gervase Markham <gerv@gerv.net>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -26,7 +26,6 @@
|
||||
|
||||
|
||||
use AnyDBM_File;
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use vars @::legal_product;
|
||||
|
||||
|
||||
@@ -29,7 +29,6 @@ push @INC, "../."; # this script now lives in contrib
|
||||
|
||||
require "globals.pl";
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
my $EMAIL_TRANSFORM_NONE = "email_transform_none";
|
||||
|
||||
@@ -37,7 +37,7 @@
|
||||
#
|
||||
# You need to work with bug_email.pl the MIME::Parser installed.
|
||||
#
|
||||
# $Id: bug_email.pl,v 1.9.16.3 2002-08-26 01:17:22 bugreport%peshkin.net Exp $
|
||||
# $Id: bug_email.pl,v 1.9.16.4 2002-08-27 04:50:18 bugreport%peshkin.net Exp $
|
||||
###############################################################
|
||||
|
||||
# 02/12/2000 (SML)
|
||||
@@ -66,7 +66,6 @@
|
||||
# - integrate some setup in the checksetup.pl script
|
||||
# - gpg signatures for security
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use MIME::Parser;
|
||||
|
||||
|
||||
@@ -28,7 +28,6 @@
|
||||
# 1. better way to get the body text (I don't know what dump_entity() is
|
||||
# actually doing
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use MIME::Parser;
|
||||
|
||||
|
||||
@@ -18,6 +18,7 @@
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s): Dawn Endico <endico@mozilla.org>
|
||||
# Jacob Steenhagen <jake@bugzilla.org>
|
||||
|
||||
|
||||
# Keep a record of all cvs updates made from a given directory.
|
||||
@@ -26,11 +27,16 @@
|
||||
# and run the cvs command with the date that you want to back
|
||||
# out to. (Probably the second to last entry).
|
||||
|
||||
# Because this script lives in contrib, you may want to
|
||||
# ln -s contrib/cvs-update.sh cvs-update
|
||||
# from your bugzilla install directory so you can run
|
||||
# the script easily from there (./cvs-update)
|
||||
|
||||
#DATE=`date +%e/%m/%Y\ %k:%M:%S\ %Z`
|
||||
DATE=`date`
|
||||
COMMAND="cvs update -d -P -D"
|
||||
echo $COMMAND \"$DATE\" >> cvs-update.log
|
||||
$COMMAND "$DATE"
|
||||
COMMAND="cvs -q update -dP"
|
||||
echo $COMMAND -D \"$DATE\" >> cvs-update.log
|
||||
$COMMAND -A
|
||||
|
||||
|
||||
# sample log file
|
||||
|
||||
@@ -23,7 +23,6 @@
|
||||
# mysqld-watcher.pl - a script that watches the running instance of
|
||||
# mysqld and kills off any long-running SELECTs against the shadow_db
|
||||
#
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
# some configurables:
|
||||
|
||||
@@ -24,7 +24,6 @@
|
||||
# Christopher Aillon <christopher@aillon.com>
|
||||
# Gervase Markham <gerv@gerv.net>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -21,7 +21,7 @@
|
||||
# Dawn Endico <endico@mozilla.org>
|
||||
# Dan Mosedale <dmose@mozilla.org>
|
||||
# Joe Robins <jmrobins@tgix.com>
|
||||
# Jake <jake@acutex.net>
|
||||
# Jacob Steenhagen <jake@bugzilla.org>
|
||||
# J. Paul Reed <preed@sigkill.com>
|
||||
#
|
||||
|
||||
@@ -33,7 +33,6 @@
|
||||
# Only adding new parameters is done here. Once the parameter exists, you
|
||||
# must use %baseurl%/editparams.cgi from the web to edit the settings.
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
# Shut up misguided -w warnings about "used only once". For some reason,
|
||||
|
||||
@@ -27,7 +27,6 @@ use vars qw(
|
||||
$userid
|
||||
);
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -21,7 +21,6 @@
|
||||
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
||||
# Contributor(s): Gervase Markham <gerv@gerv.net>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib ".";
|
||||
|
||||
|
||||
@@ -21,7 +21,6 @@
|
||||
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
||||
# J. Paul Reed <preed@sigkill.com>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -23,7 +23,6 @@
|
||||
# Generates mostfreq list from data collected by collectstats.pl.
|
||||
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use AnyDBM_File;
|
||||
|
||||
@@ -26,7 +26,6 @@
|
||||
################################################################################
|
||||
|
||||
# Make it harder for us to do dangerous things in Perl.
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib ".";
|
||||
|
||||
|
||||
@@ -25,7 +25,6 @@
|
||||
#
|
||||
# Holger Schurig <holgerschurig@nikocity.de>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib ".";
|
||||
|
||||
|
||||
@@ -19,12 +19,11 @@
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s): Dave Miller <justdave@syndicomm.com>
|
||||
# Jake Steenhagen <jake@acutexx.net>
|
||||
# Joel Peshkin <bugreport@peshkin.net>
|
||||
# Jacob Steenhagen <jake@bugzilla.org>
|
||||
|
||||
# Code derived from editowners.cgi and editusers.cgi
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib ".";
|
||||
|
||||
|
||||
@@ -20,7 +20,6 @@
|
||||
#
|
||||
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib ".";
|
||||
|
||||
|
||||
@@ -13,7 +13,6 @@
|
||||
#
|
||||
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib ".";
|
||||
|
||||
|
||||
@@ -22,7 +22,6 @@
|
||||
# J. Paul Reed <preed@sigkill.com>
|
||||
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib ".";
|
||||
|
||||
|
||||
@@ -27,7 +27,6 @@
|
||||
#
|
||||
# Holger Schurig <holgerschurig@nikocity.de>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib ".";
|
||||
|
||||
|
||||
@@ -28,7 +28,6 @@
|
||||
#
|
||||
# Holger Schurig <holgerschurig@nikocity.de>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib ".";
|
||||
|
||||
|
||||
@@ -26,7 +26,6 @@
|
||||
#
|
||||
# Holger Schurig <holgerschurig@nikocity.de>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib ".";
|
||||
|
||||
|
||||
@@ -32,7 +32,6 @@
|
||||
#
|
||||
##############################################################################
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -19,14 +19,13 @@
|
||||
#
|
||||
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
||||
# Dan Mosedale <dmose@mozilla.org>
|
||||
# Jake <jake@acutex.net>
|
||||
# Jacob Steenhagen <jake@bugzilla.org>
|
||||
# Bradley Baetz <bbaetz@cs.mcgill.ca>
|
||||
# Christopher Aillon <christopher@aillon.com>
|
||||
# Joel Peshkin <bugreport@peshkin.net>
|
||||
|
||||
# Contains some global variables and routines used throughout bugzilla.
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use Bugzilla::Util;
|
||||
|
||||
@@ -25,7 +25,6 @@
|
||||
# a new bug into bugzilla. Everything before the beginning <?xml line
|
||||
# is removed so you can pipe in email messages.
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
#####################################################################
|
||||
|
||||
@@ -18,7 +18,7 @@
|
||||
# Copyright (C) 1998 Netscape Communications Corporation. All
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s): Jacob Steenhagen <jake@acutex.net>
|
||||
# Contributor(s): Jacob Steenhagen <jake@bugzilla.org>
|
||||
#
|
||||
|
||||
# Suppress silly "used only once" warnings
|
||||
@@ -30,7 +30,6 @@ use vars qw{ %COOKIE };
|
||||
###############################################################################
|
||||
|
||||
# Make it harder for us to do dangerous things in Perl.
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
# Include the Bugzilla CGI and general utility library.
|
||||
|
||||
@@ -21,7 +21,6 @@
|
||||
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
||||
# Gervase Markham <gerv@gerv.net>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib qw(.);
|
||||
|
||||
|
||||
@@ -21,7 +21,6 @@
|
||||
# Contributor(s): Dawn Endico <endico@mozilla.org>
|
||||
# Terry Weissman <terry@mozilla.org>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -28,7 +28,6 @@
|
||||
# either case), numbers 0-9, the underscore "_" and the hyphen "-".
|
||||
###############################################################################
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib ".";
|
||||
|
||||
@@ -23,7 +23,6 @@
|
||||
# Joe Robins <jmrobins@tgix.com>
|
||||
# Gervase Markham <gerv@gerv.net>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib qw(.);
|
||||
|
||||
|
||||
@@ -24,7 +24,6 @@
|
||||
# Christopher Aillon <christopher@aillon.com>
|
||||
# Myk Melez <myk@mozilla.org>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
my $UserInEditGroupSet = -1;
|
||||
@@ -429,22 +428,47 @@ sub ChangeStatus {
|
||||
my ($str) = (@_);
|
||||
if ($str ne $::dontchange) {
|
||||
DoComma();
|
||||
# Ugly, but functional. We don't want to change Status if we are
|
||||
# reasigning non-open bugs via the mass change form.
|
||||
if ( ($::FORM{knob} eq 'reassign' || $::FORM{knob} eq 'reassignbycomponent') &&
|
||||
! defined $::FORM{id} && $str eq 'NEW' ) {
|
||||
# If we got to here, we're dealing with a reassign from the mass
|
||||
# change page. We don't know (and can't easily figure out) if this
|
||||
# bug is open or closed. If it's closed, we don't want to change
|
||||
# its status to NEW. We have to put some logic into the SQL itself
|
||||
# to handle that.
|
||||
if ($::FORM{knob} eq 'reopen') {
|
||||
# When reopening, we need to check whether the bug was ever
|
||||
# confirmed or not
|
||||
$::query .= "bug_status = IF(everconfirmed = 1, " .
|
||||
SqlQuote($str) . ", " .
|
||||
SqlQuote($::unconfirmedstate) . ")";
|
||||
} elsif (IsOpenedState($str)) {
|
||||
# Note that we cannot combine this with the above branch - here we
|
||||
# need to check if bugs.bug_status is open, (since we don't want to
|
||||
# reopen closed bugs when reassigning), while above the whole point
|
||||
# is to reopen a closed bug.
|
||||
# Currently, the UI doesn't permit a user to reassign a closed bug
|
||||
# from the single bug page (only during a mass change), but they
|
||||
# could still hack the submit, so don't restrict this extended
|
||||
# check to the mass change page for safety/sanity/consistency
|
||||
# purposes.
|
||||
|
||||
# The logic for this block is:
|
||||
# If the new state is open:
|
||||
# If the old state was open
|
||||
# If the bug was confirmed
|
||||
# - move it to the new state
|
||||
# Else
|
||||
# - Set the state to unconfirmed
|
||||
# Else
|
||||
# - leave it as it was
|
||||
|
||||
# This is valid only because 'reopen' is the only thing which moves
|
||||
# from closed to open, and its handled above
|
||||
# This also relies on the fact that confirming and accepting have
|
||||
# already called DoConfirm before this is called
|
||||
|
||||
my @open_state = map(SqlQuote($_), OpenStates());
|
||||
my $open_state = join(", ", @open_state);
|
||||
$::query .= "bug_status = IF(bug_status IN($open_state), '$str', bug_status)";
|
||||
} elsif (IsOpenedState($str)) {
|
||||
$::query .= "bug_status = IF(everconfirmed = 1, '$str', '$::unconfirmedstate')";
|
||||
$::query .= "bug_status = IF(bug_status IN($open_state), " .
|
||||
"IF(everconfirmed = 1, " .
|
||||
SqlQuote($str) . ", " .
|
||||
SqlQuote($::unconfirmedstate) . " ), " .
|
||||
"bug_status)";
|
||||
} else {
|
||||
$::query .= "bug_status = '$str'";
|
||||
$::query .= "bug_status = " . SqlQuote($str);
|
||||
}
|
||||
$::FORM{'bug_status'} = $str; # Used later for call to
|
||||
# CheckCanChangeField to make sure this
|
||||
|
||||
@@ -25,7 +25,6 @@
|
||||
# Jacob Steenhagen <jake@actex.net>
|
||||
# Matthew Tuck <matty@chariot.net.au>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib ".";
|
||||
|
||||
|
||||
@@ -23,7 +23,6 @@
|
||||
# Matthias Radestock <matthias@sorted.org>
|
||||
# Gervase Markham <gerv@gerv.net>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib ".";
|
||||
|
||||
|
||||
@@ -24,7 +24,6 @@
|
||||
|
||||
use vars %::FORM;
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -22,7 +22,6 @@
|
||||
# Gervase Markham <gerv@gerv.net>
|
||||
# David Fallon <davef@tetsubo.com>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use vars qw(
|
||||
|
||||
@@ -21,7 +21,6 @@
|
||||
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
||||
# Gervase Markham <gerv@gerv.net>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use vars %::COOKIE;
|
||||
|
||||
@@ -38,7 +38,6 @@
|
||||
# Myk Melez <myk@mozilla.org):
|
||||
# Implemented form field validation and reorganized code.
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -21,7 +21,6 @@
|
||||
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
||||
# Matthew Tuck <matty@chariot.net.au>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -22,7 +22,6 @@
|
||||
# Myk Melez <myk@mozilla.org>
|
||||
# Gervase Markham <gerv@gerv.net>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -20,7 +20,6 @@
|
||||
#
|
||||
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -19,9 +19,8 @@
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
||||
# Jacob Steenhagen <jake@acutex.net>
|
||||
# Jacob Steenhagen <jake@bugzilla.org>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -21,7 +21,6 @@
|
||||
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
||||
# Gervase Markham <gerv@gerv.net>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -23,7 +23,6 @@
|
||||
# Christian Reis <kiko@async.com.br>
|
||||
# Myk Melez <myk@mozilla.org>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -13,10 +13,9 @@
|
||||
#
|
||||
# The Original Code is the Bugzilla Bug Tracking System.
|
||||
#
|
||||
# Contributor(s): Jacob Steenhagen <jake@acutex.net>
|
||||
# Contributor(s): Jacob Steenhagen <jake@bugzilla.org>
|
||||
|
||||
use strict;
|
||||
use diagnostics;
|
||||
|
||||
use lib ".";
|
||||
require "CGI.pl";
|
||||
|
||||
@@ -21,7 +21,6 @@
|
||||
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
||||
# David Gardiner <david.gardiner@unisa.edu.au>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
require "globals.pl";
|
||||
|
||||
@@ -18,7 +18,7 @@
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s): Zach Lipton <zach@zachlipton.com>
|
||||
# Jacob Steenhagen <jake@acutex.net>
|
||||
# Jacob Steenhagen <jake@bugzilla.org>
|
||||
# David D. Kilzer <ddkilzer@theracingworld.com>
|
||||
#
|
||||
# Alternatively, the contents of this file may be used under the
|
||||
|
||||
@@ -17,7 +17,7 @@
|
||||
# Copyright (C) 2001 Jacob Steenhagen. All
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s): Jacob Steenhagen <jake@acutex.net>
|
||||
# Contributor(s): Jacob Steenhagen <jake@bugzilla.org>
|
||||
# Zach Lipton <zach@zachlipton.com>
|
||||
# David D. Kilzer <ddkilzer@kilzer.net>
|
||||
#
|
||||
|
||||
@@ -17,7 +17,7 @@
|
||||
# Copyright (C) 2001 Jacob Steenhagen. All
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s): Jacob Steenhagen <jake@acutex.net>
|
||||
# Contributor(s): Jacob Steenhagen <jake@bugzilla.org>
|
||||
# David D. Kilzer <ddkilzer@kilzer.net>
|
||||
#
|
||||
|
||||
|
||||
@@ -17,13 +17,12 @@
|
||||
# Copyright (C) 2001 Jacob Steenhagen. All
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s): Jacob Steenhagen <jake@acutex.net>
|
||||
# Contributor(s): Jacob Steenhagen <jake@bugzilla.org>
|
||||
# David D. Kilzer <ddkilzer@kilzer.net>
|
||||
#
|
||||
|
||||
package Support::Templates;
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib 't';
|
||||
|
||||
@@ -18,7 +18,7 @@
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s): Terry Weissman <terry@mozilla.org>
|
||||
# Jacob Steenhagen <jake@acutex.net>
|
||||
# Jacob Steenhagen <jake@bugzilla.org>
|
||||
#%]
|
||||
|
||||
[%# INTERFACE:
|
||||
|
||||
@@ -17,7 +17,7 @@
|
||||
# Copyright (C) 1998 Netscape Communications Corporation. All
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s): Jacob Steenhagen <jake@acutex.net>
|
||||
# Contributor(s): Jacob Steenhagen <jake@bugzilla.org>
|
||||
# Scott Collins <scc@mozilla.org>
|
||||
# Christopher A. Aillon <christopher@aillon.com>
|
||||
#%]
|
||||
|
||||
@@ -25,7 +25,6 @@
|
||||
############################################################################
|
||||
|
||||
# Make it harder for us to do dangerous things in Perl.
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -20,7 +20,6 @@
|
||||
# Christopher Aillon <christopher@aillon.com>
|
||||
# Gervase Markham <gerv@gerv.net>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
@@ -23,7 +23,6 @@
|
||||
# Christopher Aillon <christopher@aillon.com>
|
||||
# Gervase Markham <gerv@gerv.net>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
use lib ".";
|
||||
|
||||
|
||||
@@ -26,7 +26,6 @@
|
||||
# assigned to them that has status NEW that has not been touched for
|
||||
# more than 7 days.
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
require "globals.pl";
|
||||
|
||||
@@ -22,7 +22,6 @@
|
||||
# Terry Weissman <terry@mozilla.org>
|
||||
# Gervase Markham <gerv@gerv.net>
|
||||
|
||||
use diagnostics;
|
||||
use strict;
|
||||
|
||||
use lib qw(.);
|
||||
|
||||
Reference in New Issue
Block a user