+ /* Probably not possible */\r
+ if (! *envlen) return 0;\r
+\r
+ /* Previously initialised? */\r
+ if (*env) HeapFree(GetProcessHeap(), 0, *env);\r
+\r
+ *env = (TCHAR *) HeapAlloc(GetProcessHeap(), 0, *envlen);\r
+ if (! *env) {\r
+ *envlen = 0;\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, value, _T("set_environment()"), 0);\r
+ return 3;\r
+ }\r
+\r
+ /* Actually get the strings */\r
+ ret = RegQueryValueEx(key, value, 0, &type, (unsigned char *) *env, envlen);\r
+ if (ret != ERROR_SUCCESS) {\r
+ HeapFree(GetProcessHeap(), 0, *env);\r
+ *env = 0;\r
+ *envlen = 0;\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_QUERYVALUE_FAILED, value, error_string(GetLastError()), 0);\r
+ return 4;\r
+ }\r
+\r
+ return 0;\r
+}\r
+\r
+\r
+int get_string(HKEY key, TCHAR *value, TCHAR *data, unsigned long datalen, bool expand, bool sanitise, bool must_exist) {\r
+ TCHAR *buffer = (TCHAR *) HeapAlloc(GetProcessHeap(), 0, datalen);\r
+ if (! buffer) {\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, value, _T("get_string()"), 0);\r
+ return 1;\r
+ }\r
+\r
+ ZeroMemory(data, datalen);\r
+\r
+ unsigned long type = REG_EXPAND_SZ;\r
+ unsigned long buflen = datalen;\r
+\r
+ unsigned long ret = RegQueryValueEx(key, value, 0, &type, (unsigned char *) buffer, &buflen);\r
+ if (ret != ERROR_SUCCESS) {\r
+ unsigned long error = GetLastError();\r
+ HeapFree(GetProcessHeap(), 0, buffer);\r
+\r
+ if (ret == ERROR_FILE_NOT_FOUND) {\r
+ if (! must_exist) return 0;\r
+ }\r
+\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_QUERYVALUE_FAILED, value, error_string(error), 0);\r
+ return 2;\r
+ }\r
+\r
+ /* Paths aren't allowed to contain quotes. */\r
+ if (sanitise) PathUnquoteSpaces(buffer);\r
+\r
+ /* Do we want to expand the string? */\r
+ if (! expand) {\r
+ if (type == REG_EXPAND_SZ) type = REG_SZ;\r
+ }\r
+\r
+ /* Technically we shouldn't expand environment strings from REG_SZ values */\r
+ if (type != REG_EXPAND_SZ) {\r
+ memmove(data, buffer, buflen);\r
+ HeapFree(GetProcessHeap(), 0, buffer);\r
+ return 0;\r
+ }\r
+\r
+ ret = ExpandEnvironmentStrings((TCHAR *) buffer, data, datalen);\r
+ if (! ret || ret > datalen) {\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_EXPANDENVIRONMENTSTRINGS_FAILED, buffer, error_string(GetLastError()), 0);\r
+ HeapFree(GetProcessHeap(), 0, buffer);\r
+ return 3;\r
+ }\r
+\r
+ HeapFree(GetProcessHeap(), 0, buffer);\r
+ return 0;\r
+}\r
+\r
+int get_string(HKEY key, TCHAR *value, TCHAR *data, unsigned long datalen, bool sanitise) {\r
+ return get_string(key, value, data, datalen, false, sanitise, true);\r
+}\r
+\r
+int expand_parameter(HKEY key, TCHAR *value, TCHAR *data, unsigned long datalen, bool sanitise, bool must_exist) {\r
+ return get_string(key, value, data, datalen, true, sanitise, must_exist);\r
+}\r
+\r
+int expand_parameter(HKEY key, TCHAR *value, TCHAR *data, unsigned long datalen, bool sanitise) {\r
+ return expand_parameter(key, value, data, datalen, sanitise, true);\r
+}\r
+\r
+/*\r
+ Sets a string in the registry.\r
+ Returns: 0 if it was set.\r
+ 1 on error.\r
+*/\r
+int set_string(HKEY key, TCHAR *value, TCHAR *string, bool expand) {\r
+ unsigned long type = expand ? REG_EXPAND_SZ : REG_SZ;\r
+ if (RegSetValueEx(key, value, 0, type, (const unsigned char *) string, (unsigned long) (_tcslen(string) + 1) * sizeof(TCHAR)) == ERROR_SUCCESS) return 0;\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_SETVALUE_FAILED, value, error_string(GetLastError()), 0);\r
+ return 1;\r
+}\r
+\r
+int set_string(HKEY key, TCHAR *value, TCHAR *string) {\r
+ return set_string(key, value, string, false);\r
+ return 1;\r
+}\r
+\r
+int set_expand_string(HKEY key, TCHAR *value, TCHAR *string) {\r
+ return set_string(key, value, string, true);\r
+ return 1;\r
+}\r
+\r
+/*\r
+ Set an unsigned long in the registry.\r
+ Returns: 0 if it was set.\r
+ 1 on error.\r
+*/\r
+int set_number(HKEY key, TCHAR *value, unsigned long number) {\r
+ if (RegSetValueEx(key, value, 0, REG_DWORD, (const unsigned char *) &number, sizeof(number)) == ERROR_SUCCESS) return 0;\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_SETVALUE_FAILED, value, error_string(GetLastError()), 0);\r
+ return 1;\r
+}\r
+\r
+/*\r
+ Query an unsigned long from the registry.\r
+ Returns: 1 if a number was retrieved.\r
+ 0 if none was found and must_exist is false.\r
+ -1 if none was found and must_exist is true.\r
+ -2 otherwise.\r
+*/\r
+int get_number(HKEY key, TCHAR *value, unsigned long *number, bool must_exist) {\r
+ unsigned long type = REG_DWORD;\r
+ unsigned long number_len = sizeof(unsigned long);\r
+\r
+ int ret = RegQueryValueEx(key, value, 0, &type, (unsigned char *) number, &number_len);\r
+ if (ret == ERROR_SUCCESS) return 1;\r
+\r
+ if (ret == ERROR_FILE_NOT_FOUND) {\r
+ if (! must_exist) return 0;\r
+ }\r
+\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_QUERYVALUE_FAILED, value, error_string(GetLastError()), 0);\r
+ if (ret == ERROR_FILE_NOT_FOUND) return -1;\r
+\r
+ return -2;\r
+}\r
+\r
+int get_number(HKEY key, TCHAR *value, unsigned long *number) {\r
+ return get_number(key, value, number, true);\r
+}\r
+\r
+void override_milliseconds(TCHAR *service_name, HKEY key, TCHAR *value, unsigned long *buffer, unsigned long default_value, unsigned long event) {\r
+ unsigned long type = REG_DWORD;\r
+ unsigned long buflen = sizeof(unsigned long);\r
+ bool ok = false;\r
+ unsigned long ret = RegQueryValueEx(key, value, 0, &type, (unsigned char *) buffer, &buflen);\r
+ if (ret != ERROR_SUCCESS) {\r
+ if (ret != ERROR_FILE_NOT_FOUND) {\r
+ if (type != REG_DWORD) {\r
+ TCHAR milliseconds[16];\r
+ _sntprintf_s(milliseconds, _countof(milliseconds), _TRUNCATE, _T("%lu"), default_value);\r
+ log_event(EVENTLOG_WARNING_TYPE, event, service_name, value, milliseconds, 0);\r
+ }\r
+ else log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_QUERYVALUE_FAILED, value, error_string(GetLastError()), 0);\r
+ }\r
+ }\r
+ else ok = true;\r
+\r
+ if (! ok) *buffer = default_value;\r
+}\r
+\r
+HKEY open_registry(const TCHAR *service_name, const TCHAR *sub, REGSAM sam) {\r
+ /* Get registry */\r
+ TCHAR registry[KEY_LENGTH];\r
+ HKEY key;\r
+ int ret;\r
+\r
+ if (sub) ret = _sntprintf_s(registry, _countof(registry), _TRUNCATE, NSSM_REGISTRY _T("\\%s"), service_name, sub);\r
+ else ret = _sntprintf_s(registry, _countof(registry), _TRUNCATE, NSSM_REGISTRY, service_name);\r
+ if (ret < 0) {\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, _T("NSSM_REGISTRY"), _T("open_registry()"), 0);\r
+ return 0;\r
+ }\r
+\r
+ if (sam & KEY_WRITE) {\r
+ if (RegCreateKeyEx(HKEY_LOCAL_MACHINE, registry, 0, 0, REG_OPTION_NON_VOLATILE, sam, 0, &key, 0) != ERROR_SUCCESS) {\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OPENKEY_FAILED, registry, error_string(GetLastError()), 0);\r
+ return 0;\r
+ }\r
+ }\r
+ else {\r
+ if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, registry, 0, sam, &key) != ERROR_SUCCESS) {\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OPENKEY_FAILED, registry, error_string(GetLastError()), 0);\r
+ return 0;\r
+ }\r
+ }\r
+\r
+ return key;\r
+}\r
+\r
+HKEY open_registry(const TCHAR *service_name, REGSAM sam) {\r
+ return open_registry(service_name, 0, sam);\r
+}\r
+\r
+int get_parameters(nssm_service_t *service, STARTUPINFO *si) {\r
+ unsigned long ret;\r
+\r
+ /* Try to open the registry */\r
+ HKEY key = open_registry(service->name, KEY_READ);\r
+ if (! key) return 1;\r