Philippe M. Chiasson wrote:
Geoffrey Young wrote:
we did a similar workaround for something else, but I forget what it
was. svn history will know, however.
Or just have a look at this patch ;-)
Index: src/modules/perl/modperl_apache_compat.c
===================================================================
--- src/modules/perl/modperl_apache_compat.c (revision 504721)
+++ src/modules/perl/modperl_apache_compat.c (working copy)
> @@ -27,3 +27,45 @@
> * and don't forget to insert comments explaining exactly
> * which httpd release allows us to remove the compat code
> */
> +
> +/* pre-APACHE_2.2.4 */
> +#if ! AP_MODULE_MAGIC_AT_LEAST(20051115,4)
Mmmmm, mod_perl internals, yummy :) Here is a doc patch I
s/(version)/($1|description|banner)/ ^W^W wrote up for it.
Index: docs/api/Apache2/ServerUtil.pod
===================================================================
--- docs/api/Apache2/ServerUtil.pod (revision 500867)
+++ docs/api/Apache2/ServerUtil.pod (working copy)
@@ -27,9 +27,11 @@
@handlers = @{ $s->get_handlers('PerlChildExitHandler') || []};
# server build and version info:
- $when_built = Apache2::ServerUtil::get_server_built();
+ $when_built = Apache2::ServerUtil::get_server_built();
+ $description = Apache2::ServerUtil::get_server_description();
$version = Apache2::ServerUtil::get_server_version();
-
+ $banner = Apache2::ServerUtil::get_server_banner();
+
# ServerRoot value
$server_root = Apache2::ServerUtil::server_root();
@@ -384,6 +386,56 @@
+=head2 C<get_server_banner>
+
+Get the server banner
+
+ $banner = Apache2::ServerUtil::get_server_banner();
+
+=over 4
+
+=item ret: C<$banner> ( string )
+
+The server banner
+
+=item since: 2.0.4
+
+=back
+
+
+
+
+
+
+
+
+
+=head2 C<get_server_description>
+
+Get the server description
+
+ $description = Apache2::ServerUtil::get_server_description();
+
+=over 4
+
+=item ret: C<$description> ( string )
+
+The server description
+
+=item since: 2.0.4
+
+=back
+
+
+
+
+
+
+
+
+
+
+
=head2 C<group_id>
Get the group id corresponding to the C<Group> directive in
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]