#include "w32time.h"
#include <debug.h>
#include <strsafe.h>

Include dependency graph for w32time.c:

Functions
int	InitService (VOID)

BOOL	SystemSetTime (LPSYSTEMTIME lpSystemTime)

static DWORD	UpdateSystemTime (ULONG ulTime)

static DWORD	GetIntervalSetting (VOID)

DWORD	SetTime (VOID)

VOID WINAPI	ControlHandler (DWORD request)

VOID WINAPI	W32TmServiceMain (DWORD argc, LPWSTR *argv)

BOOL WINAPI	DllMain (HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)

DWORD WINAPI	W32TimeSyncNow (LPCWSTR cmdline, UINT blocking, UINT flags)

Variables
SERVICE_STATUS	ServiceStatus

SERVICE_STATUS_HANDLE	hStatus

HANDLE	hStopEvent = NULL

static WCHAR	ServiceName [] = L"W32Time"

Function Documentation

◆ ControlHandler()

VOID WINAPI ControlHandler ( DWORD request )

Definition at line 214 of file w32time.c.

{
    switch (request)
    {
        case SERVICE_CONTROL_STOP:
        case SERVICE_CONTROL_SHUTDOWN:
            DPRINT("Stopping W32Time Service\n");
 
            ServiceStatus.dwWin32ExitCode = 0;
            ServiceStatus.dwCurrentState  = SERVICE_STOP_PENDING;
            SetServiceStatus(hStatus, &ServiceStatus);
 
            if (hStopEvent)
                SetEvent(hStopEvent);
            return;
 
        default:
            break;
    }
}

Referenced by W32TmServiceMain().

◆ DllMain()

BOOL WINAPI DllMain	(	HINSTANCE	hinstDLL,
		DWORD	fdwReason,
		LPVOID	lpvReserved
	)

Definition at line 341 of file w32time.c.

{
    switch (fdwReason)
    {
        case DLL_PROCESS_ATTACH:
            DisableThreadLibraryCalls(hinstDLL);
            break;
 
        case DLL_PROCESS_DETACH:
            break;
    }
 
    return TRUE;
}

◆ GetIntervalSetting()

static DWORD GetIntervalSetting ( VOID )

static

Definition at line 125 of file w32time.c.

{
    HKEY hKey;
    DWORD dwData;
    DWORD dwSize = sizeof(dwData);
    LONG lRet;
 
    dwData = 0;
    lRet = RegOpenKeyExW(HKEY_LOCAL_MACHINE,
                         L"SYSTEM\\CurrentControlSet\\Services\\W32Time\\TimeProviders\\NtpClient",
                         0,
                         KEY_QUERY_VALUE,
                         &hKey);
    if (lRet == ERROR_SUCCESS)
    {
        /*
         * This key holds the update interval in seconds.
         * It is useful for testing to set it to a value of 10 (Decimal).
         * This will cause the clock to try and update every 10 seconds.
         * So you can change the time and expect it to be set back correctly in 10-20 seconds.
         */
        lRet = RegQueryValueExW(hKey,
                                L"SpecialPollInterval",
                                NULL,
                                NULL,
                                (LPBYTE)&dwData,
                                &dwSize);
        RegCloseKey(hKey);
    }
 
    if (lRet != ERROR_SUCCESS || dwData < 120)
        return W32TIME_POLL_INTERVAL;
    else
        return dwData;
}

Referenced by W32TmServiceMain().

◆ InitService()

int InitService ( VOID )

◆ SetTime()

DWORD SetTime ( VOID )

Definition at line 163 of file w32time.c.

{
    ULONG ulTime;
    LONG lRet;
    HKEY hKey;
    WCHAR szData[MAX_VALUE_NAME] = L"";
    DWORD cbName = sizeof(szData);
 
    DPRINT("Entered SetTime.\n");
 
    lRet = RegOpenKeyExW(HKEY_LOCAL_MACHINE,
                         L"SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\DateTime\\Servers",
                         0,
                         KEY_QUERY_VALUE,
                         &hKey);
    if (lRet != ERROR_SUCCESS)
    {
        return lRet;
    }
 
    lRet = RegQueryValueExW(hKey, NULL, NULL, NULL, (LPBYTE)szData, &cbName);
    if (lRet == ERROR_SUCCESS)
    {
        cbName = sizeof(szData);
        lRet = RegQueryValueExW(hKey, szData, NULL, NULL, (LPBYTE)szData, &cbName);
    }
 
    RegCloseKey(hKey);
 
    DPRINT("Time Server is '%S'.\n", szData);
 
    /* Is the given string empty? */
    if (cbName == 0 || szData[0] == '\0')
    {
        DPRINT("The time NTP server couldn't be found, the string is empty!\n");
        return ERROR_INVALID_DATA;
    }
 
    ulTime = GetServerTime(szData);
 
    if (ulTime != 0)
    {
        return UpdateSystemTime(ulTime);
    }
    else
        return ERROR_GEN_FAILURE;
}

Referenced by DECLARE_INTERFACE_(), W32TimeSyncNow(), and W32TmServiceMain().

◆ SystemSetTime()

BOOL SystemSetTime ( LPSYSTEMTIME lpSystemTime )

Definition at line 21 of file w32time.c.

{
    HANDLE hToken;
    DWORD PrevSize;
    TOKEN_PRIVILEGES priv, previouspriv;
    BOOL Ret = FALSE;
 
    /*
     * Enable the SeSystemtimePrivilege privilege
     */
 
    if (OpenProcessToken(GetCurrentProcess(),
                         TOKEN_ADJUST_PRIVILEGES | TOKEN_QUERY,
                         &hToken))
    {
        priv.PrivilegeCount = 1;
        priv.Privileges[0].Attributes = SE_PRIVILEGE_ENABLED;
 
        if (LookupPrivilegeValueW(NULL,
                                  SE_SYSTEMTIME_NAME,
                                  &priv.Privileges[0].Luid))
        {
            if (AdjustTokenPrivileges(hToken,
                                      FALSE,
                                      &priv,
                                      sizeof(previouspriv),
                                      &previouspriv,
                                      &PrevSize) &&
                GetLastError() == ERROR_SUCCESS)
            {
                /*
                 * We successfully enabled it, we're permitted to change the time.
                 */
                Ret = SetSystemTime(lpSystemTime);
 
                /*
                 * For the sake of security, restore the previous status again
                 */
                if (previouspriv.PrivilegeCount > 0)
                {
                    AdjustTokenPrivileges(hToken,
                                          FALSE,
                                          &previouspriv,
                                          0,
                                          NULL,
                                          0);
                }
            }
        }
        CloseHandle(hToken);
    }
 
    return Ret;
}

Referenced by UpdateSystemTime().

◆ UpdateSystemTime()

static DWORD UpdateSystemTime ( ULONG ulTime )

static

Definition at line 83 of file w32time.c.

{
    FILETIME ftNew;
    LARGE_INTEGER li;
    SYSTEMTIME stNew;
 
    /* Time at 1st Jan 1900 */
    stNew.wYear = 1900;
    stNew.wMonth = 1;
    stNew.wDay = 1;
    stNew.wHour = 0;
    stNew.wMinute = 0;
    stNew.wSecond = 0;
    stNew.wMilliseconds = 0;
 
    /* Convert to a file time */
    if (!SystemTimeToFileTime(&stNew, &ftNew))
    {
        return GetLastError();
    }
 
    /* Add on the time passed since 1st Jan 1900 */
    li = *(LARGE_INTEGER *)&ftNew;
    li.QuadPart += (LONGLONG)10000000 * ulTime;
    ftNew = * (FILETIME *)&li;
 
    /* Convert back to a system time */
    if (!FileTimeToSystemTime(&ftNew, &stNew))
    {
        return GetLastError();
    }
 
    if (!SystemSetTime(&stNew))
    {
        return GetLastError();
    }
 
    return ERROR_SUCCESS;
}

Referenced by SetTime().

◆ W32TimeSyncNow()

DWORD WINAPI W32TimeSyncNow	(	LPCWSTR	cmdline,
		UINT	blocking,
		UINT	flags
	)

Definition at line 360 of file w32time.c.

{
    DWORD result;
    result = SetTime();
    if (result)
    {
        DPRINT("W32TimeSyncNow failed and clock not set.\n");
    }
    else
    {
        DPRINT("W32TimeSyncNow succeeded and clock set.\n");
    }
    return result;
}

Referenced by UpdateThread().

◆ W32TmServiceMain()

VOID WINAPI W32TmServiceMain	(	DWORD	argc,
		LPWSTR *	argv
	)

Definition at line 238 of file w32time.c.

{
    LONG error;
    DWORD dwInterval;
    HKEY hKey;
    WCHAR szData[8];
    DWORD cbData;
    BOOL bNoSync;
 
    UNREFERENCED_PARAMETER(argc);
    UNREFERENCED_PARAMETER(argv);
 
    ServiceStatus.dwServiceType             = SERVICE_WIN32;
    ServiceStatus.dwCurrentState            = SERVICE_START_PENDING;
    ServiceStatus.dwControlsAccepted        = SERVICE_ACCEPT_STOP | SERVICE_ACCEPT_SHUTDOWN;
    ServiceStatus.dwWin32ExitCode           = 0;
    ServiceStatus.dwServiceSpecificExitCode = 0;
    ServiceStatus.dwCheckPoint              = 0;
    ServiceStatus.dwWaitHint                = 0;
 
    hStatus = RegisterServiceCtrlHandlerW(ServiceName,
                                          ControlHandler);
    if (!hStatus)
    {
        /* Registering Control Handler failed */
        return;
    }
 
    /* Create the stop event */
    hStopEvent = CreateEventW(NULL, FALSE, FALSE, NULL);
    if (hStopEvent == NULL)
    {
        ServiceStatus.dwCurrentState  = SERVICE_STOPPED;
        ServiceStatus.dwWin32ExitCode = GetLastError();
        ServiceStatus.dwControlsAccepted = 0;
        SetServiceStatus(hStatus, &ServiceStatus);
        return;
    }
 
    /* Get the interval */
    dwInterval = GetIntervalSetting();
 
    /* We report the running status to SCM. */
    ServiceStatus.dwCurrentState = SERVICE_RUNNING;
    SetServiceStatus(hStatus, &ServiceStatus);
 
    /* The service's worker loop */
    for (;;)
    {
        /* The default is NoSync */
        bNoSync = TRUE;
 
        /* TODO: Use RegNotifyChangeKeyValue() when implemented */
        if (RegOpenKeyExW(HKEY_LOCAL_MACHINE,
                          L"SYSTEM\\CurrentControlSet\\Services\\W32Time\\Parameters",
                          0,
                          KEY_QUERY_VALUE,
                          &hKey) == ERROR_SUCCESS)
        {
            cbData = sizeof(szData);
            RegQueryValueExW(hKey, L"Type", NULL, NULL, (LPBYTE)szData, &cbData);
            szData[ARRAYSIZE(szData) - 1] = UNICODE_NULL; /* Avoid buffer overrun */
            bNoSync = (_wcsicmp(szData, L"NoSync") == 0);
            RegCloseKey(hKey);
        }
 
        if (!bNoSync)
        {
            error = SetTime();
            if (error != ERROR_SUCCESS)
            {
                DPRINT("W32Time Service failed to set clock: 0x%08lX\n", error);
#if 0
                /*
                 * In general, we do not want to stop this service for a single
                 * Internet read failure but there may be other reasons for which
                 * we really might want to stop it. Therefore this code is left here.
                 */
                ServiceStatus.dwCurrentState  = SERVICE_STOPPED;
                ServiceStatus.dwWin32ExitCode = error;
                SetServiceStatus(hStatus, &ServiceStatus);
                return;
#endif
            }
        }
 
        if (WaitForSingleObject(hStopEvent, dwInterval * 1000) == WAIT_OBJECT_0)
        {
            CloseHandle(hStopEvent);
            hStopEvent = NULL;
 
            ServiceStatus.dwCurrentState  = SERVICE_STOPPED;
            ServiceStatus.dwWin32ExitCode = ERROR_SUCCESS;
            ServiceStatus.dwControlsAccepted = 0;
            SetServiceStatus(hStatus, &ServiceStatus);
            DPRINT("Stopped W32Time Service\n");
            return;
        }
    }
}