Mailing-List: contact dev-help@perl.apache.org; run by ezmlm
Precedence: bulk
Received-SPF: pass (herse.apache.org: local policy)
Message-ID: <45CAA19D.2050309@taperfriendlymusic.org>
Date: Wed, 07 Feb 2007 20:05:49 -0800
From: Fred Moyer <fred@taperfriendlymusic.org>
User-Agent: Thunderbird 1.5.0.9 (Macintosh/20061207)
MIME-Version: 1.0
To: "Philippe M. Chiasson" <gozer@ectoplasm.org>
CC: Geoffrey Young <geoff@modperlcookbook.org>,
 Frank Maas <frank.maas@cheiron-it.nl>,
  modperl@perl.apache.org, Perrin Harkins <perrin@elem.com>,
 dev@perl.apache.org
Subject: Re: MP 2.0.3 & Apache 2.2.3 -> auth tests fail
References: <20070113180259.GA61905@xs4all.nl> <45A93863.9040804@elem.com>
 <20070115220727.GA30037@xs4all.nl> <45ACDA8E.4050306@modperlcookbook.org>
 <45CA76DD.7030605@ectoplasm.org>
In-Reply-To: <45CA76DD.7030605@ectoplasm.org>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit

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: dev-unsubscribe@perl.apache.org
For additional commands, e-mail: dev-help@perl.apache.org