From ec147c3f721ff20d6fa61fea42627b9acb7b0ea3 Mon Sep 17 00:00:00 2001 From: "mozilla%colinogilvie.co.uk" <> Date: Sun, 30 Jul 2006 18:35:03 +0000 Subject: Bug 346350: Update makedocs.pl for the mod_perl version details Patch by Colin Ogilvie ; r=mkanat; a=justdave --- docs/makedocs.pl | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) (limited to 'docs') 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 '' ."\n\n"; @@ -53,6 +54,19 @@ foreach my $module (@$modules, @$opt_modules) my $version = $module->{'version'} eq 0 ? 'any' : $module->{'version'}; print ENTITIES '' . "\n"; } + +print ENTITIES "\n \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 '' . "\n"; +} + print ENTITIES "\n \n"; my $db_modules = DB_MODULE; -- cgit v1.2.3-24-g4f1b