xdm_syslog.c

Go to the documentation of this file.

/*----------------------------------------------------------------------------
 * Copyright (c) 2006, Novell, Inc.
 * All rights reserved.
 * 
 * Redistribution and use in source and binary forms, with or without 
 * modification, are permitted provided that the following conditions are 
 * met:
 * 
 *     * Redistributions of source code must retain the above copyright 
 *       notice, this list of conditions and the following disclaimer.
 *     * Redistributions in binary form must reproduce the above copyright 
 *       notice, this list of conditions and the following disclaimer in the 
 *       documentation and/or other materials provided with the distribution.
 *     * Neither the name of the Novell nor the names of its contributors 
 *       may be used to endorse or promote products derived from this 
 *       software without specific prior written permission.
 * 
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 
 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
 * TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR 
 * PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR 
 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, 
 * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 
 * PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 
 * LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 
 * NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 *--------------------------------------------------------------------------*/

#include <stddef.h>

#ifdef _WIN32
# define WIN32_LEAN_AND_MEAN
# include <windows.h>
# include <tchar.h>
# include <stdlib.h>
# include <string.h>
static HANDLE s_elhandle = 0;
# define XDMAPI __cdecl
# define XDMEXP __declspec(dllexport)
#else
# include <syslog.h>
# define XDMAPI
# define XDMEXP
#endif

static void (*s_fplogmsg)(int level, const char * msg, ... ) = 0;

#ifdef _WIN32

static void EnsureRegistryKeys(
      char * (*getcnfstr)(const char *, char *, size_t *))
{
   char msgpath[5 * MAX_PATH];
   wchar_t wmsgpath[MAX_PATH] = {0};
   wchar_t * keypath = _T("SYSTEM\\CurrentControlSet\\Services\\EventLog\\Application\\OpenXDAS");
   DWORD dwData, dwDisp;
   size_t msgpathsz;
   HKEY hk; 

/* HKEY_LOCAL_MACHINE
      SYSTEM
         CurrentControlSet
            Services
               EventLog
                  Application
                     OpenXDAS */

   // Create the event source as a subkey of the log. 
   if (RegCreateKeyEx(HKEY_LOCAL_MACHINE, keypath, 0, 0, 
         REG_OPTION_NON_VOLATILE, KEY_WRITE, 0, &hk, &dwDisp) != ERROR_SUCCESS)
   {
      (*s_fplogmsg)(0, "syslog: Unable to create registry keys.\n");
      return;
   }
   if (dwDisp == REG_OPENED_EXISTING_KEY)
   {
      // key already existed - no need to recreate everything.
      (*s_fplogmsg)(0, "syslog: Windows Event Service keys already in place.\n");
      RegCloseKey(hk);
      return;
   }

   (*s_fplogmsg)(0, "syslog: First run. Adding system event log registry keys.\n");

   // Get the syslog logger module's path name for use as the message file
   msgpathsz = sizeof(msgpath);
   if ((*getcnfstr)("xdasd.loggers", msgpath, &msgpathsz) != 0)
   {
      char * cp;
      if ((cp = strstr(msgpath, "xdm_syslog.dll")) != 0)
      {
         cp[14] = 0; // terminate string after module name
         if ((cp = strrchr(cp, ',')) == 0)
            cp = msgpath - 1;
         cp++; // increment to start of module full path
      }
      if (cp && *cp) // convert to wide character string for Windows
         mbstowcs(wmsgpath, msgpath, sizeof(wmsgpath)/sizeof(wchar_t));
   }
   if (!*wmsgpath)
   {
      wcscpy(wmsgpath, _T("C:\\Program Files\\OpenXDAS\\Loggers\\xdm_syslog.dll"));
      (*s_fplogmsg)(0, "syslog: Unable to determine module path. Assuming default.\n");
   }

   // Set message file name - messages are stored in xdm_syslog.dll
   if (RegSetValueEx(hk, _T("EventMessageFile"), 0, REG_EXPAND_SZ, 
         (LPBYTE)wmsgpath, (DWORD)(wcslen(wmsgpath) + 1) * sizeof(wchar_t)) != ERROR_SUCCESS)
      (*s_fplogmsg)(0, "syslog: Unable to set event message file name value.\n");
   else
   {
      // Set the supported event types - only INFORMATION right now. 
      dwData = EVENTLOG_AUDIT_SUCCESS | EVENTLOG_AUDIT_FAILURE;
      if (RegSetValueEx(hk, _T("TypesSupported"), 0, REG_DWORD, 
            (LPBYTE)&dwData, sizeof(DWORD)) != ERROR_SUCCESS)
         (*s_fplogmsg)(0, "syslog: Unable to set the supported types.\n"); 
   }
   RegCloseKey(hk); 
}
#endif

XDMEXP int XDMAPI xdm_append(const char ** msgflds)
{
#ifdef _WIN32
   // msgflds[9] is the outcome code in hexadecimal
   unsigned outcome = strtoul(msgflds[9], 0, 16);
   WORD type = (outcome & 0xFF)? EVENTLOG_AUDIT_FAILURE : EVENTLOG_AUDIT_SUCCESS;
   if (!ReportEventA(s_elhandle, type, 0, 0x40000001, 0, 1, 
         0, (char **)msgflds, 0))
      return -1;
#else
   syslog(LOG_INFO, "%.*s", msgflds[33] - msgflds[0] - 2, msgflds[0]);
#endif
   return 0;
}

XDMEXP int XDMAPI xdm_init(void (*logmsg)(int level, const char * msg, ... ),
      char * (*getcnfstr)(const char *, char *, size_t *))
{
   (void)getcnfstr;     /* no configuration data to be read */

   s_fplogmsg = logmsg; /* save logmsg function pointer */

#ifdef _WIN32
   EnsureRegistryKeys(getcnfstr);
   if ((s_elhandle = RegisterEventSource(0, _T("OpenXDAS"))) == 0)
      return -1;
#else
   openlog("xdas", 0, LOG_AUTHPRIV);
#endif
   return 0;
}

XDMEXP void XDMAPI xdm_exit(void)
{
#ifdef _WIN32
   DeregisterEventSource(s_elhandle);
#else
   closelog();
#endif
}