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 <colin.ogilvie@gmail.com>; r=mkanat; a=justdave

---
 docs/makedocs.pl | 16 +++++++++++++++-
 1 file changed, 15 insertions(+), 1 deletion(-)

(limited to 'docs/makedocs.pl')

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;
-- 
cgit v1.2.3-24-g4f1b