> 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
