+ if (type != REG_MULTI_SZ) {\r
+ *env = 0;\r
+ *envlen = 0;\r
+ log_event(EVENTLOG_WARNING_TYPE, NSSM_EVENT_INVALID_ENVIRONMENT_STRING_TYPE, value, service_name, 0);\r
+ return 2;\r
+ }\r
+\r
+ /* 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("get_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
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_QUERYVALUE_FAILED, value, error_string(GetLastError()), 0);\r
+ HeapFree(GetProcessHeap(), 0, *env);\r
+ *env = 0;\r
+ *envlen = 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
+/* Replace NULL with CRLF. Leave NULL NULL as the end marker. */\r
+int format_double_null(TCHAR *dn, unsigned long dnlen, TCHAR **formatted, unsigned long *newlen) {\r
+ unsigned long i, j;\r
+ *newlen = dnlen;\r
+\r
+ if (! *newlen) {\r
+ *formatted = 0;\r
+ return 0;\r
+ }\r
+\r
+ for (i = 0; i < dnlen; i++) if (! dn[i] && dn[i + 1]) ++*newlen;\r
+\r
+ *formatted = (TCHAR *) HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, *newlen * sizeof(TCHAR));\r
+ if (! *formatted) {\r
+ *newlen = 0;\r
+ return 1;\r
+ }\r
+\r
+ for (i = 0, j = 0; i < dnlen; i++) {\r
+ (*formatted)[j] = dn[i];\r
+ if (! dn[i]) {\r
+ if (dn[i + 1]) {\r
+ (*formatted)[j] = _T('\r');\r
+ (*formatted)[++j] = _T('\n');\r
+ }\r
+ }\r
+ j++;\r
+ }\r
+\r
+ return 0;\r
+}\r
+\r
+/* Strip CR and replace LF with NULL. */\r
+int unformat_double_null(TCHAR *dn, unsigned long dnlen, TCHAR **unformatted, unsigned long *newlen) {\r
+ unsigned long i, j;\r
+ *newlen = 0;\r
+\r
+ if (! dnlen) {\r
+ *unformatted = 0;\r
+ return 0;\r
+ }\r
+\r
+ for (i = 0; i < dnlen; i++) if (dn[i] != _T('\r')) ++*newlen;\r
+\r
+ /* Skip blank lines. */\r
+ for (i = 0; i < dnlen; i++) {\r
+ if (dn[i] == _T('\r') && dn[i + 1] == _T('\n')) {\r
+ /* This is the last CRLF. */\r
+ if (i >= dnlen - 2) break;\r
+\r
+ /*\r
+ Strip at the start of the block or if the next characters are\r
+ CRLF too.\r
+ */\r
+ if (! i || (dn[i + 2] == _T('\r') && dn[i + 3] == _T('\n'))) {\r
+ for (j = i + 2; j < dnlen; j++) dn[j - 2] = dn[j];\r
+ dn[dnlen--] = _T('\0');\r
+ dn[dnlen--] = _T('\0');\r
+ i--;\r
+ --*newlen;\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Must end with two NULLs. */\r
+ *newlen += 2;\r
+\r
+ *unformatted = (TCHAR *) HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, *newlen * sizeof(TCHAR));\r
+ if (! *unformatted) return 1;\r
+\r
+ for (i = 0, j = 0; i < dnlen; i++) {\r
+ if (dn[i] == _T('\r')) continue;\r
+ if (dn[i] == _T('\n')) (*unformatted)[j] = _T('\0');\r
+ else (*unformatted)[j] = dn[i];\r
+ j++;\r
+ }\r
+\r
+ return 0;\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