diff options
| -rw-r--r-- | docs/makedocs.pl | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/docs/makedocs.pl b/docs/makedocs.pl index 871fb3370..1b83e5d7a 100644 --- 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; |