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:
bugreport%peshkin.net
2002-08-27 04:50:26 +00:00
parent ea4a70757a
commit e48b3f3cd6
67 changed files with 128 additions and 152 deletions

View File

@@ -24,7 +24,6 @@
# Module Initialization
############################################################################
use diagnostics;
use strict;
package Attachment;

View File

@@ -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 {

View File

@@ -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");

View File

@@ -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

View File

@@ -27,7 +27,6 @@
# Contains some global routines used throughout the CGI scripts of Bugzilla.
use diagnostics;
use strict;
use lib ".";

View File

@@ -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

View File

@@ -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.

View File

@@ -26,7 +26,6 @@
################################################################################
# Make it harder for us to do dangerous things in Perl.
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -21,7 +21,6 @@
# Dave Miller <justdave@syndicomm.com>
# Vaskin Kissoyan <vkissoyan@yahoo.com>
use diagnostics;
use strict;
use RelationSet;

View File

@@ -29,7 +29,6 @@
################################################################################
# Make it harder for us to do dangerous things in Perl.
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -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";

View File

@@ -21,7 +21,6 @@
# Contributor(s): Terry Weissman <terry@mozilla.org>
# Gervase Markham <gerv@gerv.net>
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -26,7 +26,6 @@
use AnyDBM_File;
use diagnostics;
use strict;
use vars @::legal_product;

View File

@@ -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";

View File

@@ -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;

View File

@@ -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;

View File

@@ -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

View 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:

View File

@@ -24,7 +24,6 @@
# Christopher Aillon <christopher@aillon.com>
# Gervase Markham <gerv@gerv.net>
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -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,

View File

@@ -27,7 +27,6 @@ use vars qw(
$userid
);
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -21,7 +21,6 @@
# Contributor(s): Terry Weissman <terry@mozilla.org>
# Contributor(s): Gervase Markham <gerv@gerv.net>
use diagnostics;
use strict;
use lib ".";

View File

@@ -21,7 +21,6 @@
# Contributor(s): Terry Weissman <terry@mozilla.org>
# J. Paul Reed <preed@sigkill.com>
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -23,7 +23,6 @@
# Generates mostfreq list from data collected by collectstats.pl.
use diagnostics;
use strict;
use AnyDBM_File;

View File

@@ -26,7 +26,6 @@
################################################################################
# Make it harder for us to do dangerous things in Perl.
use diagnostics;
use strict;
use lib ".";

View File

@@ -25,7 +25,6 @@
#
# Holger Schurig <holgerschurig@nikocity.de>
use diagnostics;
use strict;
use lib ".";

View File

@@ -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 ".";

View File

@@ -20,7 +20,6 @@
#
# Contributor(s): Terry Weissman <terry@mozilla.org>
use diagnostics;
use strict;
use lib ".";

View File

@@ -13,7 +13,6 @@
#
use diagnostics;
use strict;
use lib ".";

View File

@@ -22,7 +22,6 @@
# J. Paul Reed <preed@sigkill.com>
use diagnostics;
use strict;
use lib ".";

View File

@@ -27,7 +27,6 @@
#
# Holger Schurig <holgerschurig@nikocity.de>
use diagnostics;
use strict;
use lib ".";

View File

@@ -28,7 +28,6 @@
#
# Holger Schurig <holgerschurig@nikocity.de>
use diagnostics;
use strict;
use lib ".";

View File

@@ -26,7 +26,6 @@
#
# Holger Schurig <holgerschurig@nikocity.de>
use diagnostics;
use strict;
use lib ".";

View File

@@ -32,7 +32,6 @@
#
##############################################################################
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -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;

View File

@@ -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;
#####################################################################

View File

@@ -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.

View File

@@ -21,7 +21,6 @@
# Contributor(s): Terry Weissman <terry@mozilla.org>
# Gervase Markham <gerv@gerv.net>
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -21,7 +21,6 @@
# Contributor(s): Dawn Endico <endico@mozilla.org>
# Terry Weissman <terry@mozilla.org>
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -28,7 +28,6 @@
# either case), numbers 0-9, the underscore "_" and the hyphen "-".
###############################################################################
use diagnostics;
use strict;
use lib ".";

View File

@@ -23,7 +23,6 @@
# Joe Robins <jmrobins@tgix.com>
# Gervase Markham <gerv@gerv.net>
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -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

View File

@@ -25,7 +25,6 @@
# Jacob Steenhagen <jake@actex.net>
# Matthew Tuck <matty@chariot.net.au>
use diagnostics;
use strict;
use lib ".";

View File

@@ -23,7 +23,6 @@
# Matthias Radestock <matthias@sorted.org>
# Gervase Markham <gerv@gerv.net>
use diagnostics;
use strict;
use lib ".";

View File

@@ -24,7 +24,6 @@
use vars %::FORM;
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -22,7 +22,6 @@
# Gervase Markham <gerv@gerv.net>
# David Fallon <davef@tetsubo.com>
use diagnostics;
use strict;
use vars qw(

View File

@@ -21,7 +21,6 @@
# Contributor(s): Terry Weissman <terry@mozilla.org>
# Gervase Markham <gerv@gerv.net>
use diagnostics;
use strict;
use vars %::COOKIE;

View File

@@ -38,7 +38,6 @@
# Myk Melez <myk@mozilla.org):
# Implemented form field validation and reorganized code.
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -21,7 +21,6 @@
# Contributor(s): Terry Weissman <terry@mozilla.org>
# Matthew Tuck <matty@chariot.net.au>
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -22,7 +22,6 @@
# Myk Melez <myk@mozilla.org>
# Gervase Markham <gerv@gerv.net>
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -20,7 +20,6 @@
#
# Contributor(s): Terry Weissman <terry@mozilla.org>
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -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(.);

View File

@@ -21,7 +21,6 @@
# Contributor(s): Terry Weissman <terry@mozilla.org>
# Gervase Markham <gerv@gerv.net>
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -23,7 +23,6 @@
# Christian Reis <kiko@async.com.br>
# Myk Melez <myk@mozilla.org>
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -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";

View File

@@ -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";

View File

@@ -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

View File

@@ -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>
#

View File

@@ -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>
#

View File

@@ -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';

View File

@@ -18,7 +18,7 @@
# Rights Reserved.
#
# Contributor(s): Terry Weissman <terry@mozilla.org>
# Jacob Steenhagen <jake@acutex.net>
# Jacob Steenhagen <jake@bugzilla.org>
#%]
[%# INTERFACE:

View File

@@ -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>
#%]

View File

@@ -25,7 +25,6 @@
############################################################################
# Make it harder for us to do dangerous things in Perl.
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -20,7 +20,6 @@
# Christopher Aillon <christopher@aillon.com>
# Gervase Markham <gerv@gerv.net>
use diagnostics;
use strict;
use lib qw(.);

View File

@@ -23,7 +23,6 @@
# Christopher Aillon <christopher@aillon.com>
# Gervase Markham <gerv@gerv.net>
use diagnostics;
use strict;
use lib ".";

View File

@@ -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";

View File

@@ -22,7 +22,6 @@
# Terry Weissman <terry@mozilla.org>
# Gervase Markham <gerv@gerv.net>
use diagnostics;
use strict;
use lib qw(.);