thanks guys - I'm a novice to xs, but I'll give it a whirl (good learning)
and let you know how it goes...
--Geoff
> -----Original Message-----
> From: Eric Cholet [mailto:[EMAIL PROTECTED]]
> Sent: Tuesday, March 28, 2000 8:35 AM
> To: 'Geoffrey Young'
> Cc: '[EMAIL PROTECTED]'
> Subject: RE: retrieving LogLevel?
>
>
> > 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?
>
> It's not there currently but could easily be. Try this patch:
>
> Index: Server.xs
> ===================================================================
> RCS file: /home/cvs/modperl/src/modules/perl/Server.xs,v
> retrieving revision 1.6
> diff -b -u -r1.6 Server.xs
> --- Server.xs 1999/08/20 08:34:43 1.6
> +++ Server.xs 2000/03/28 13:33:34
> @@ -113,6 +113,18 @@
>
> # char *error_fname;
> # FILE *error_log;
> +# int loglevel;
> +
> +int
> +loglevel(server)
> + Apache::Server server
> +
> + CODE:
> + RETVAL = server->loglevel;
> +
> + OUTPUT:
> + RETVAL
> +
>
> # /* Module-specific configuration for server, and defaults... */
>
>
> To be complete I'd also patch Constants.xs to import the relevant
> LOGLEVEL_XXX constants.
>
> Let me know if this works,
>
> --
> Eric
>
