summaryrefslogtreecommitdiffstats
path: root/Bugzilla
diff options
context:
space:
mode:
Diffstat (limited to 'Bugzilla')
-rw-r--r--Bugzilla/Constants.pm3
-rw-r--r--Bugzilla/Install/Requirements.pm230
2 files changed, 226 insertions, 7 deletions
diff --git a/Bugzilla/Constants.pm b/Bugzilla/Constants.pm
index 8a57b343a..0bbbfa7d5 100644
--- a/Bugzilla/Constants.pm
+++ b/Bugzilla/Constants.pm
@@ -109,6 +109,7 @@ use File::Basename;
BUG_STATE_OPEN
DB_MODULE
+ ROOT_USER
);
@Bugzilla::Constants::EXPORT_OK = qw(contenttypes);
@@ -298,6 +299,8 @@ use constant DB_MODULE => {
name => 'PostgreSQL'},
};
+use constant ROOT_USER => $^O =~ /MSWin32/i ? 'Administrator' : 'root';
+
sub bz_locations {
# We know that Bugzilla/Constants.pm must be in %INC at this point.
# So the only question is, what's the name of the directory
diff --git a/Bugzilla/Install/Requirements.pm b/Bugzilla/Install/Requirements.pm
index f38af2a09..6d119044c 100644
--- a/Bugzilla/Install/Requirements.pm
+++ b/Bugzilla/Install/Requirements.pm
@@ -30,8 +30,12 @@ our @EXPORT = qw(
OPTIONAL_MODULES
MOD_PERL_MODULES
- vers_cmp
+ check_requirements
have_vers
+ vers_cmp
+);
+
+our @EXPORT_OK = qw(
install_command
);
@@ -173,14 +177,204 @@ use constant WIN32_MODULE_NAMES => {
'Template::Plugin::GD' => 'Template',
};
+sub check_requirements {
+ my ($output) = @_;
+
+ print "\nChecking perl modules...\n" if $output;
+ my $modules = REQUIRED_MODULES;
+ my $root = ROOT_USER;
+ my %missing;
+
+ foreach my $module (@{$modules}) {
+ unless (have_vers($module->{name}, $module->{version}, $output)) {
+ $missing{$module->{name}} = $module->{version};
+ }
+ }
+
+ print "\nYou need one of the following DBD modules installed, depending",
+ " on\nwhich database you are using with Bugzilla:\n" if $output;
+
+ my $have_one_dbd = 0;
+ my $db_modules = DB_MODULE;
+ foreach my $db (keys %$db_modules) {
+ if (have_vers($db_modules->{$db}->{dbd},
+ $db_modules->{$db}->{dbd_version}, $output))
+ {
+ $have_one_dbd = 1;
+ }
+ }
+
+ print "\nThe following Perl modules are optional:\n" if $output;
+ my $opt_modules = OPTIONAL_MODULES;
+ my %have_mod;
+ foreach my $module (@$opt_modules) {
+ $have_mod{$module->{name}} =
+ have_vers($module->{name}, $module->{version}, $output);
+ }
+
+ print "\nThe following modules are required for mod_perl support:\n"
+ if $output;
+ my $mp_modules = MOD_PERL_MODULES;
+ foreach my $module (@$mp_modules) {
+ $have_mod{$module->{name}} =
+ have_vers($module->{name}, $module->{version}, $output);
+ }
+
+ if ($output) {
+ print "\n";
+
+ if ($^O =~ /MSWin32/i) {
+ print "All the required modules are available at:\n",
+ " http://landfill.bugzilla.org/ppm/\n",
+ "You can add the repository with the following command:\n",
+ " ppm rep add bugzilla http://landfill.bugzilla.org/ppm/",
+ "\n\n";
+ }
+
+ # New/Old Charts
+ if ((!$have_mod{'GD'} || !$have_mod{'Chart::Base'})) {
+ print "If you you want to see graphical bug charts (plotting",
+ " historical data over \ntime), you should install libgd",
+ " and the following Perl modules (as $root):\n\n";
+ print " GD: " . install_command("GD") ."\n"
+ if !$have_mod{'GD'};
+ print " Chart: " . install_command("Chart::Base") . "\n"
+ if !$have_mod{'Chart::Base'};
+ print "\n";
+ }
+
+ # Bug Import/Export
+ if (!$have_mod{'XML::Twig'}) {
+ print "If you want to use the bug import/export feature to move",
+ " bugs to or from\nother bugzilla installations, you will",
+ " need to install the XML::Twig\nmodule by running",
+ " (as $root):\n\n",
+ " " . install_command("XML::Twig") . "\n\n";
+ }
+
+ # Automatic Updates
+ if (!$have_mod{'LWP::UserAgent'}) {
+ print "If you want to use the automatic update notification",
+ " feature you will\nneed to install the LWP::UserAgent",
+ " module by running (as $root):\n\n",
+ " " . install_command("LWP::UserAgent") . "\n\n";
+ }
+
+ # BMP to PNG
+ if (!$have_mod{'Image::Magick'}) {
+ print "If you want to convert BMP image attachments to PNG to",
+ " conserve\ndisk space, you will need to install the",
+ " ImageMagick application\nAvailable from",
+ " http://www.imagemagick.org, and the Image::Magick\n",
+ "Perl module by running (as $root):\n\n",
+ " " . install_command("Image::Magick") . "\n\n";
+ }
+
+ # Graphical Reports
+ if (!$have_mod{'GD'} || !$have_mod{'GD::Graph'}
+ || !$have_mod{'GD::Text::Align'}
+ || !$have_mod{'Template::Plugin::GD::Image'})
+ {
+ print "If you want to see graphical bug reports (bar, pie and",
+ " line charts of \ncurrent data), you should install libgd",
+ " and the following Perl modules:\n\n";
+ print " GD: " . install_command("GD") . "\n"
+ if !$have_mod{'GD'};
+ print " GD::Graph: " . install_command("GD::Graph") . "\n"
+ if !$have_mod{'GD::Graph'};
+ print " GD::Text::Align: " . install_command("GD::Text::Align")
+ . "\n" if !$have_mod{'GD::Text::Align'};
+ print " Template::Plugin::GD: "
+ . install_command('Template::Plugin::GD') . "\n"
+ if !$have_mod{'Template::Plugin::GD::Image'};
+ print "\n";
+ }
+
+ # Diff View
+ if (!$have_mod{'PatchReader'}) {
+ print "If you want to see pretty HTML views of patches, you",
+ " should install the \nPatchReader module by running",
+ " (as $root):\n\n",
+ " " . install_command("PatchReader") . "\n\n";
+ }
+
+ # LDAP
+ if (!$have_mod{'Net::LDAP'}) {
+ print "If you wish to use LDAP authentication, then you must",
+ " install Net::LDAP\nby running (as $root):\n\n",
+ " " . install_command('Net::LDAP') . "\n\n";
+ }
+
+ # mod_perl
+ if (!$have_mod{'mod_perl2'}) {
+ print "If you would like mod_perl support, you must install at",
+ " least the minimum\nrequired version of mod_perl. You",
+ " can download mod_perl from:\n",
+ " http://perl.apache.org/download/binaries.html\n",
+ "Make sure that you get the 2.0 version, not the 1.0",
+ " version.\n\n";
+ }
+
+ if (!$have_mod{'Apache::DBI'} || !$have_mod{'CGI'}) {
+ print "For mod_perl support, you must install the following",
+ " perl module(s):\n\n";
+ print " Apache::DBI: " . install_command('Apache::DBI') . "\n"
+ if !$have_mod{'Apache::DBI'};
+ print " CGI: " . install_command('CGI') . "\n"
+ if !$have_mod{'CGI'};
+ print "\n";
+ }
+ }
+
+ if (!$have_one_dbd) {
+ print "\n";
+ print "Bugzilla requires that at least one DBD module be",
+ " installed in order to\naccess a database. You can install",
+ " the correct one by running (as $root) the\ncommand listed",
+ " below for your database:\n\n";
+
+ foreach my $db (keys %$db_modules) {
+ print $db_modules->{$db}->{name} . ": "
+ . install_command($db_modules->{$db}->{dbd}) . "\n";
+ print " Minimum version required: "
+ . $db_modules->{$db}->{dbd_version} . "\n";
+ }
+ print "\n";
+ }
+
+ if (%missing) {
+ print "\n";
+ print "Bugzilla requires some Perl modules which are either",
+ " missing from your\nsystem, or the version on your system",
+ " is too old. They can be installed\nby running (as $root)",
+ " the following:\n";
+
+ foreach my $module (keys %missing) {
+ print " " . install_command("$module") . "\n";
+ if ($missing{$module} > 0) {
+ print " Minimum version required: $missing{$module}\n";
+ }
+ }
+ print "\n";
+ }
+
+ return {
+ pass => !scalar(keys %missing) && $have_one_dbd,
+ missing => \%missing,
+ optional => \%have_mod,
+ }
+
+}
+
+
# This was originally clipped from the libnet Makefile.PL, adapted here to
# use the below vers_cmp routine for accurate version checking.
sub have_vers {
- my ($pkg, $wanted, $silent) = @_;
+ my ($pkg, $wanted, $output) = @_;
my ($msg, $vnum, $vstr);
no strict 'refs';
printf("Checking for %15s %-9s ", $pkg, !$wanted?'(any)':"(v$wanted)")
- unless $silent;
+ if $output;
# Modules may change $SIG{__DIE__} and $SIG{__WARN__}, so localise them here
# so that later errors display 'normally'
@@ -212,7 +406,7 @@ sub have_vers {
}
my $vok = (vers_cmp($vnum,$wanted) > -1);
- print ((($vok) ? "ok: " : " "), "$vstr\n") unless $silent;
+ print ((($vok) ? "ok: " : " "), "$vstr\n") if $output;
return $vok ? 1 : 0;
}
@@ -303,6 +497,27 @@ represent the name of the module and the version that we require.
=over 4
+=item C<check_requirements($output)>
+
+ Description: This checks what optional or required perl modules
+ are installed, like C<checksetup.pl> does.
+
+ Params: C<$output> - C<true> if you want the function to print
+ out information about what it's doing,
+ and the versions of everything installed.
+ If you don't pass the minimum requirements,
+ the will always print out something,
+ regardless of this parameter.
+
+ Returns: A hashref containing three values:
+ C<pass> - Whether or not we have all the mandatory
+ requirements.
+ C<missing> - A hash showing which mandatory requirements
+ are missing. The key is the module name,
+ and the value is the version we require.
+ C<optional> - Which optional modules are installed and
+ up-to-date enough for Bugzilla.
+
=item C<vers_cmp($a, $b)>
Description: This is a comparison function, like you would use in
@@ -315,7 +530,7 @@ represent the name of the module and the version that we require.
Returns: -1 if $a is less than $b, 0 if they are equal, and
1 if $a is greater than $b.
-=item C<have_vers($pkg, $wanted, $silent)>
+=item C<have_vers($pkg, $wanted, $output)>
Description: Tells you whether or not you have the appropriate
version of the module requested. It also prints
@@ -326,8 +541,9 @@ represent the name of the module and the version that we require.
C<$wanted> - The version of the package you require.
Set this to 0 if you don't require any
particular version.
- C<$silent> - Set to true if you don't want this function
- to print out anything.
+ C<$output> - Set to true if you want this function to
+ print information to STDOUT about what it's
+ doing.
Returns: C<1> if you have the module installed and you have the
appropriate version. C<0> otherwise.