RE: retrieving LogLevel?

2000-03-28 Thread Geoffrey Young 

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
>

RE: retrieving LogLevel?

2000-03-28 Thread Eric Cholet 

> 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

Re: retrieving LogLevel?

2000-03-28 Thread James G Smith 

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/
+--