Author: wrowe
Date: Tue May 10 16:36:57 2005
New Revision: 169535

URL: http://svn.apache.org/viewcvs?rev=169535&view=rev
Log:

  Win32-enable, unix threaded-enable the mod_log_forensic module.

  * adds a get_forensic_id() function, differing between win32,
    threaded, and non-threaded platforms (threaded and win32
    platforms get instead an pid:tid:time:seq identifier.)

  * stop the module config abuse, and simply use r->notes (this
    requires the 169534 svn patch already applied.)

Modified:
    httpd/httpd/branches/1.3.x/src/modules/standard/mod_log_forensic.c

Modified: httpd/httpd/branches/1.3.x/src/modules/standard/mod_log_forensic.c
URL: http://svn.apache.org/viewcvs/httpd/httpd/branches/1.3.x/src/modules/standard/mod_log_forensic.c?rev=169535&r1=169534&r2=169535&view=diff
==============================================================================
--- httpd/httpd/branches/1.3.x/src/modules/standard/mod_log_forensic.c (original)
+++ httpd/httpd/branches/1.3.x/src/modules/standard/mod_log_forensic.c Tue May 10 16:36:57 2005
@@ -29,6 +29,7 @@
 #include "http_config.h"
 #include "http_log.h"
 #include <assert.h>
+#include "multithread.h"
 
 #ifdef NETWARE
 #include "test_char.h"
@@ -40,13 +41,62 @@
 
 module MODULE_VAR_EXPORT log_forensic_module;
 
+#ifdef WIN32
+
+static DWORD tls_index;
+
+BOOL WINAPI DllMain (HINSTANCE dllhandle, DWORD reason, LPVOID reserved)
+{
+    switch (reason) {
+    case DLL_PROCESS_ATTACH:
+	tls_index = TlsAlloc();
+    case DLL_THREAD_ATTACH: /* intentional no break */
+	TlsSetValue(tls_index, 0);
+	break;
+    }
+    return TRUE;
+}
+
+const char * get_forensic_id(pool *p)
+{
+    /* The 'error' default for Get undefined is 0 - a nice number
+     * for this purpose.  The cast might look evil, but the evil
+     * empire had switched this API out from underneath developers,
+     * and the DWORD flavor will truncate nicely for our purposes.
+     */
+    DWORD next_id = (DWORD)TlsGetValue(tls_index);
+    TlsSetValue(tls_index, (void*)(next_id + 1));
+
+    return ap_psprintf(p, "%x:%x:%lx:%x", GetCurrentProcessId(), 
+                                          GetCurrentThreadId(), 
+                                          time(NULL), next_id);
+}
+
+#else /* !WIN32 */
+
+/* Even when not MULTITHREAD, this will return a single structure, since
+ * APACHE_TLS should be defined as empty on single-threaded platforms.
+ */
+const char * get_forensic_id(pool *p)
+{
+    static APACHE_TLS next_id = 0;
+
+    /* we make the assumption that we can't go through all the PIDs in
+       under 1 second */
+#ifdef MULTITHREAD
+    return ap_psprintf(p, "%x:%lx:%x", getpid(), time(NULL), next_id++);
+#else
+    return ap_psprintf(p, "%x:%x:%lx:%x", getpid(), gettid(), time(NULL), next_id++);
+#endif
+}
+
+#endif /* !WIN32 */
+
 typedef struct fcfg {
     char *logname;
     int fd;
 } fcfg;
 
-static int next_id;
-
 static void *make_forensic_log_scfg(pool *p, server_rec *s)
 {
     fcfg *cfg = ap_pcalloc(p, sizeof *cfg);
@@ -91,8 +141,7 @@
         char *fname = ap_server_root_relative(p, cfg->logname);
 
         if ((cfg->fd = ap_popenf_ex(p, fname, O_WRONLY | O_APPEND | O_CREAT,
-                                    S_IRUSR | S_IWUSR | S_IRGRP | S_IROTH, 1))
-            < 0) {
+                                    0644, 1)) < 0) {
             ap_log_error(APLOG_MARK, APLOG_ERR, s,
                          "could not open forensic log file %s.", fname);
             exit(1);
@@ -170,16 +219,10 @@
     return 1;
 }
 
-/* this structure only exists to allow typesafety */
-typedef struct {
-    const char *id;
-} rcfg;
-
 static int log_before(request_rec *r)
 {
     fcfg *cfg = ap_get_module_config(r->server->module_config,
                                      &log_forensic_module);
-    static rcfg rcfg;
     const char *id;
     hlog h;
 
@@ -187,13 +230,8 @@
         return DECLINED;
 
     if (!(id = ap_table_get(r->subprocess_env, "UNIQUE_ID"))) {
-        /* we make the assumption that we can't go through all the PIDs in
-           under 1 second */
-        id = ap_psprintf(r->pool, "%lx:%lx:%x", (long)getpid(), time(NULL),
-                         next_id++);
+        id = get_forensic_id(r->pool);
     }
-    rcfg.id = id;
-    ap_set_module_config(r->request_config, &log_forensic_module, &rcfg);
 
     h.p = r->pool;
     h.count = 0;