# A. Karl Kornel <karl@kornel.name>
use strict;
-use lib ".";
# This module represents a chart.
#
# That means that if you modify these paths, they must be absolute paths.
return {
'libpath' => $libpath,
+ 'ext_libpath' => "$libpath/lib",
# If you put the libraries in a different location than the CGIs,
# make sure this still points to the CGIs.
'cgi_path' => $libpath,
my $webdotdir = bz_locations()->{'webdotdir'};
my $templatedir = bz_locations()->{'templatedir'};
my $libdir = bz_locations()->{'libpath'};
+ my $extlib = bz_locations()->{'ext_libpath'};
my $skinsdir = bz_locations()->{'skinsdir'};
my $ws_group = Bugzilla->localconfig->{'webservergroup'};
dirs => $ws_dir_readable },
"$libdir/Bugzilla" => { files => $ws_readable,
dirs => $ws_dir_readable },
+ $extlib => { files => $ws_readable,
+ dirs => $ws_dir_readable },
$templatedir => { files => $ws_readable,
dirs => $ws_dir_readable },
images => { files => $ws_readable,
contents => $ht_default_deny },
"$libdir/Bugzilla/.htaccess" => { perms => $ws_readable,
contents => $ht_default_deny },
+ "$extlib/.htaccess" => { perms => $ws_readable,
+ contents => $ht_default_deny },
"$templatedir/.htaccess" => { perms => $ws_readable,
contents => $ht_default_deny },
# Lance Larsh <lance.larsh@oracle.com>
use strict;
-use lib ".";
# This module implements a series - a set of data to be plotted on a chart.
#
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Make it harder for us to do dangerous things in Perl.
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Make it harder for us to do dangerous things in Perl.
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Offer subscription when you get a "series already exists" error?
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
use Safe;
BEGIN { chdir dirname($0); }
-use lib ".";
+use lib qw(. lib);
use Bugzilla::Constants;
use Bugzilla::Install::Requirements;
use Bugzilla::Install::Util qw(install_string get_version_and_os);
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
use strict;
use IO::Handle;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Make it harder for us to do dangerous things in Perl.
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
=cut
use strict;
+use lib qw(lib);
use Getopt::Long;
use Pod::Usage;
use File::Basename qw(dirname);
# Contributor(s): Max Kanat-Alexander <mkanat@bugzilla.org>
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::DB;
use Bugzilla::Util;
=cut
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Contributor(s): Max Kanat-Alexander <mkanat@bugzilla.org>
use strict;
-# Allow the script to be run from contrib or as contrib/recode.pl
-use lib '..';
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
#
# Nick Barnes, Ravenbrook Limited, 2004-04-01.
#
-# $Id: sendbugmail.pl,v 1.7 2006/07/03 21:42:47 mkanat%bugzilla.org Exp $
+# $Id: sendbugmail.pl,v 1.8 2007/10/19 06:46:17 mkanat%bugzilla.org Exp $
#
# Bugzilla email script for Bugzilla 2.17.4 and later. Invoke this to send
# bugmail for a bug which has been changed directly in the database.
#
# Usage: perl -T contrib/sendbugmail.pl bug_id user_email
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Util;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Net::LDAP;
use Bugzilla;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Frédéric Buclin <LpSolit@gmail.com>
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Contributor(s): Gervase Markham <gerv@gerv.net>
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Error;
chdir dirname($0);
}
-use lib qw(.. lib);
+use lib qw(.. ../lib lib);
# We only compile our POD if Pod::Simple is installed. We do the checks
# this way so that if there's a compile error in Pod::Simple::HTML::Bugzilla,
<!-- <!DOCTYPE chapter PUBLIC "-//OASIS//DTD DocBook XML V4.1.2//EN"> -->
-<!-- $Id: installation.xml,v 1.146 2007/10/16 09:56:07 justdave%bugzilla.org Exp $ -->
+<!-- $Id: installation.xml,v 1.147 2007/10/19 06:46:18 mkanat%bugzilla.org Exp $ -->
<chapter id="installing-bugzilla">
<title>Installing Bugzilla</title>
</warning>
<programlisting>
- PerlSwitches -I/var/www/html/bugzilla -w -T
+ PerlSwitches -I/var/www/html/bugzilla -I/var/www/html/bugzilla/lib -w -T
PerlConfigRequire /var/www/html/bugzilla/mod_perl.pl
</programlisting>
</step>
use AnyDBM_File;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Direct any questions on this source code to mozilla.org
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Akamai Technologies <bugzilla-dev@akamai.com>
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Contributor(s): Frédéric Buclin <LpSolit@gmail.com>
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Make it harder for us to do dangerous things in Perl.
use strict;
-use lib ".";
+use lib qw(. lib);
# Use Bugzilla's flag modules for handling flag types.
use Bugzilla;
# Frédéric Buclin <LpSolit@gmail.com>
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Contributor(s): Terry Weissman <terry@mozilla.org>
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
#
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Frédéric Buclin <LpSolit@gmail.com>
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Holger Schurig <holgerschurig@nikocity.de>
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
#
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Gavin Shelley <bugzilla@chimpychompy.org>
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# with some cleanup.
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Util;
# Holger Schurig <holgerschurig@nikocity.de>
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
chdir(File::Basename::dirname($0));
}
+use lib qw(. lib);
+
use Data::Dumper;
use Email::Address;
use Email::Reply qw(reply);
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
#
#####################################################################
-# figure out which path this script lives in. Set the current path to
-# this and add it to @INC so this will work when run as part of mail
-# alias by the mailer daemon
-# since "use lib" is run at compile time, we need to enclose the
-# $::path declaration in a BEGIN block so that it is executed before
-# the rest of the file is compiled.
+use File::Basename qw(dirname);
+# MTAs may call this script from any directory, but it should always
+# run from this one so that it can find its modules.
BEGIN {
- $::path = $0;
- $::path =~ m#(.*)/[^/]+#;
- $::path = $1;
- $::path ||= '.'; # $0 is empty at compile time. This line will
- # have no effect on this script at runtime.
+ require File::Basename;
+ my $dir = $0; $dir =~ /(.*)/; $dir = $1; # trick taint
+ chdir(File::Basename::dirname($dir));
}
-chdir $::path;
-use lib ($::path);
+use lib qw(. lib);
# Data dumber is used for debugging, I got tired of copying it back in
# and then removing it.
#use Data::Dumper;
use strict;
# Include the Bugzilla CGI and general utility library.
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
--- /dev/null
+This directory contains the Perl modules that Bugzilla requires to run.
+
+If you would rather have Bugzilla use the Perl modules installed on your
+system, you can delete everything in this directory.
# Gervase Markham <gerv@gerv.net>
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
my $cgi = Bugzilla->cgi;
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Error;
# Marc Schumann <wurblzap@gmail.com>
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Attachment;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Max Kanat-Alexander <mkanat@bugzilla.org>
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Bug;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# A. Karl Kornel <karl@kornel.name>
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Mailer;
# <rdean@cambianetworks.com>
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Make it harder for us to do dangerous things in Perl.
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Util;
# Make it harder for us to do dangerous things in Perl.
use diagnostics;
use strict;
+use lib qw(lib);
use Test::Harness qw(&runtests $verbose);
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Contributor(s): Frédéric Buclin <LpSolit@gmail.com>
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Error;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Error;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Util;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use File::Temp;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Error;
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Error;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Date::Parse; # strptime
# issues as possible.
use strict;
-use lib ".";
+use lib qw(. lib);
BEGIN {
my $envpath = $ENV{'PATH'};
# Make it harder for us to do dangerous things in Perl.
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# Frédéric Buclin <LpSolit@gmail.com>
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
use strict;
-use lib ".";
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
# touched for more than the number of days specified in the whinedays param.
use strict;
-use lib '.';
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Mailer;
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
my $cgi = Bugzilla->cgi;
# Contributor(s): Marc Schumann <wurblzap@gmail.com>
use strict;
-use lib qw(.);
+use lib qw(. lib);
use Bugzilla;
use Bugzilla::Constants;
projects / thirdparty / bugzilla.git / commitdiff
