Geoffrey Young <[EMAIL PROTECTED]> wrote:
>hi all...
>
>       I've hunted around and can't find a method that retrieves the
>LogLevel directive setting.  Is there one?  If not, is there a record
>somewhere that can make this available, maybe through Apache::Server?

Looks like it is in the C API - but don't see a documented reference
to it in the Perl API.

The following might get you started (in src/modules/perl/Server.xs):

 int
 loglevel(server)
     Apache::Server      server
 
     CODE:
     RETVAL = server->loglevel;
 
     OUTPUT:
     RETVAL

I couldn't find any mention of loglevel in the .xs files in such a way
that Perl code would have access to it.  I've also never coded with XS,
so the above is based on the pattern established in Server.xs.
------------------------------------+-----------------------------------------
James Smith - [EMAIL PROTECTED] | http://www.jamesmith.com/
            [EMAIL PROTECTED] | http://sourcegarden.org/
              [EMAIL PROTECTED]      | http://cis.tamu.edu/systems/opensystems/
------------------------------------+------------------------------------------

Reply via email to