Bug 346350: Update makedocs.pl for the mod_perl version details

Patch by Colin Ogilvie <colin.ogilvie@gmail.com>; r=mkanat; a=justdave
parent ddddaf2b
......@@ -29,7 +29,7 @@ use strict;
use File::Basename;
use lib("..");
use Bugzilla::Install::Requirements qw (REQUIRED_MODULES OPTIONAL_MODULES);
use Bugzilla::Install::Requirements qw (REQUIRED_MODULES OPTIONAL_MODULES MOD_PERL_MODULES);
use Bugzilla::Constants qw (DB_MODULE);
chdir dirname($0);
......@@ -39,6 +39,7 @@ chdir dirname($0);
my $modules = REQUIRED_MODULES;
my $opt_modules = OPTIONAL_MODULES;
my $mod_perl_modules = MOD_PERL_MODULES;
open(ENTITIES, '>', 'xml/bugzilla.ent') or die('Could not open xml/bugzilla.ent: ' . $!);
print ENTITIES '<?xml version="1.0"?>' ."\n\n";
......@@ -53,6 +54,19 @@ foreach my $module (@$modules, @$opt_modules)
my $version = $module->{'version'} eq 0 ? 'any' : $module->{'version'};
print ENTITIES '<!ENTITY min-' . $name . '-ver "'.$version.'">' . "\n";
}
print ENTITIES "\n <!-- mod_perl Versions --> \n";
foreach my $module (@$mod_perl_modules)
{
my $name = $module->{'name'};
$name =~ s/::/-/g;
$name = lc($name);
#This needs to be a string comparison, due to the modules having
#version numbers like 0.9.4
my $version = $module->{'version'} eq 0 ? 'any' : $module->{'version'};
print ENTITIES '<!ENTITY min-mp-' . $name . '-ver "'.$version.'">' . "\n";
}
print ENTITIES "\n <!-- Database Versions --> \n";
my $db_modules = DB_MODULE;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment