/** BEGIN COPYRIGHT BLOCK
 * Copyright (C) 2001 Sun Microsystems, Inc. Used by permission.
 * Copyright (C) 2005 Red Hat, Inc.
 * All rights reserved.
 * END COPYRIGHT BLOCK **/

#ifdef _WIN32

#include <windows.h>
#include <stdio.h>
#include "ldap.h"
#include "regparms.h"
#include "nspr.h"
#include "plstr.h"

HANDLE hSlapdEventSource;
LPTSTR	pszServerName;

void ReportSlapdEvent(WORD wEventType, DWORD dwIdEvent, WORD wNumInsertStrings, 
						char *pszStrings)
{
	LPCTSTR	lpszStrings[64];
	BOOL bSuccess;

	if( hSlapdEventSource )
	{
		if( pszServerName )
			lpszStrings[0] = (LPCTSTR)pszServerName;

		if( pszStrings != NULL)
            lpszStrings[1] = (LPCTSTR)pszStrings;

		wNumInsertStrings++;

		/* Now report the event, which will add this event to the event log */
		bSuccess = ReportEvent(hSlapdEventSource,   /* event-log handle */
							wEventType,				/* event type       */
							0,                      /* category zero    */
							dwIdEvent,              /* event ID         */
							NULL,                   /* no user SID      */
							wNumInsertStrings,      /* number of substr */
							0,                      /* no binary data   */
							lpszStrings,            /* string array     */
							NULL);                  /* address of data  */
	}
	
} /* ReportSlapdEvent */

BOOL ReportSlapdStatusToSCMgr(
					SERVICE_STATUS *serviceStatus,
					SERVICE_STATUS_HANDLE serviceStatusHandle,
					HANDLE Event,
					DWORD dwCurrentState,
                    DWORD dwWin32ExitCode,
                    DWORD dwCheckPoint,
                    DWORD dwWaitHint)
{
    /*  Disable control requests until the service is started. */
    if (dwCurrentState == SERVICE_START_PENDING)
        serviceStatus->dwControlsAccepted = 0;
    else
        serviceStatus->dwControlsAccepted = SERVICE_ACCEPT_STOP |
            SERVICE_ACCEPT_PAUSE_CONTINUE;

    serviceStatus->dwCurrentState = dwCurrentState;
    serviceStatus->dwWin32ExitCode = dwWin32ExitCode;
    serviceStatus->dwCheckPoint = dwCheckPoint;

    serviceStatus->dwWaitHint = dwWaitHint;

    /* Report the status of the service to the service control manager. */
    return SetServiceStatus( serviceStatusHandle, serviceStatus);

}	/* ReportSlapdStatusToSCMgr */

// This is a routine that we use to check for multiple instances of a server with
// the same id. We cannot use a shared data section to keep count of instances since
// there will be multiple instances of the server running. MS recommends using a
// sync object to do this. Thus we attempt to create an object with same NAME 
// but different TYPE as the server "Done" event.We have a small race condition
// between the check and the creation of the "Done" event.

BOOL
MultipleInstances()
{
    HANDLE hServDoneSemaphore;
    DWORD result;
    CHAR ErrMsg[1024];
    char szDoneEvent[256];

	if( !pszServerName )
		return FALSE;

	PR_snprintf(szDoneEvent, sizeof(szDoneEvent), "NS_%s", pszServerName);

    hServDoneSemaphore = CreateSemaphore(
        NULL,   // security attributes    
        0,      // initial count for semaphore
        1,      // maximum count for semaphore
        szDoneEvent);

    if ( hServDoneSemaphore == NULL) {

        result = GetLastError();
        if (result == ERROR_INVALID_HANDLE) {

            PR_snprintf(ErrMsg, sizeof(ErrMsg), "Netscape Server %s is already"
            " running. Terminating this instance.", pszServerName);

            MessageBox(GetDesktopWindow(), ErrMsg,
                "SERVER ALREADY RUNNING", MB_ICONEXCLAMATION | MB_OK);
            return TRUE;

        } else {
            /* We aren't too interested in why the creation failed
             * if it is not because of another instance */

            return FALSE;
        }
    }  // hServDoneSemaphore == NULL

    CloseHandle(hServDoneSemaphore);
    return FALSE; 
}

BOOL SlapdIsAService()
{
	// May change in V2.0
	return FALSE;
}

BOOL SlapdGetServerNameFromCmdline(char *szServerName, char *szCmdLine, int dirname)
{
	BOOL bReturn = FALSE;
	char *szChar = NULL;
	char szCmdCopy[_MAX_PATH]; 

	if( szCmdLine )
	{
		memset(szCmdCopy, 0, _MAX_PATH );
		PL_strncpyz( szCmdCopy, szCmdLine , sizeof(szCmdCopy) );
	}
	else
		return(bReturn);

	// szCmdCopy should be something like 
	//		c:\navgold\server\slapd-kennedy\config\slapd.conf
	// unless dirname is TRUE in which case it should be
	//		c:\navgold\server\slapd-kennedy
	if(szChar = strrchr(szCmdCopy, '\\'))
	{
		*szChar = 0;
		if(dirname)
		{
			strcpy(szServerName, szChar+1);
			bReturn = TRUE;
		}
		else if(szChar = strrchr(szCmdCopy, '\\'))
		{
			// szCmdCopy should be c:\navgold\server\slapd-kennedy\config
			*szChar = 0;
			// szCmdCopy should be c:\navgold\server\slapd-kennedy
			if(szChar = strrchr(szCmdCopy, '\\'))
			{
				szChar++;
		   		// szChar should point to slapd-kennedy
				strcpy(szServerName, szChar);
				bReturn = TRUE;
			}
		}
	}
	else
	{
		// szCmdCopy should be something like slapd-kennedy
		strcpy(szServerName, szCmdCopy);
		bReturn = TRUE;
	}

	if(strlen(szServerName) == 0)
		bReturn = FALSE;

	return(bReturn);
}

#endif _WIN32