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

Patch by Colin Ogilvie <colin.ogilvie@gmail.com>; r=mkanat; a=justdave

diff --git a/docs/makedocs.pl b/docs/makedocs.pl
index 871fb3370123423195369d2023d630521b06c8b1..1b83e5d7a659de55ad8536a5c5d0a047db9b8719 100644 (file)
--- a/docs/makedocs.pl
+++ b/docs/makedocs.pl
@@ -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;