+ if (type != REG_MULTI_SZ) {\r
+ log_event(EVENTLOG_WARNING_TYPE, NSSM_EVENT_INVALID_ENVIRONMENT_STRING_TYPE, value, service_name, 0);\r
+ *env = 0;\r
+ return 2;\r
+ }\r
+\r
+ /* Minimum usable environment would be A= NULL NULL. */\r
+ if (envsize < 4 * sizeof(TCHAR)) {\r
+ *env = 0;\r
+ return 3;\r
+ }\r
+\r
+ /* Previously initialised? */\r
+ if (*env) HeapFree(GetProcessHeap(), 0, *env);\r
+\r
+ *env = (TCHAR *) HeapAlloc(GetProcessHeap(), 0, envsize);\r
+ if (! *env) {\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, value, _T("get_environment()"), 0);\r
+ return 4;\r
+ }\r
+\r
+ /* Actually get the strings. */\r
+ ret = RegQueryValueEx(key, value, 0, &type, (unsigned char *) *env, &envsize);\r
+ if (ret != ERROR_SUCCESS) {\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_QUERYVALUE_FAILED, value, error_string(ret), 0);\r
+ HeapFree(GetProcessHeap(), 0, *env);\r
+ *env = 0;\r
+ return 5;\r
+ }\r
+\r
+ /* Value retrieved by RegQueryValueEx() is SIZE not COUNT. */\r
+ *envlen = (unsigned long) environment_length(*env);\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
+ 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(ret), 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
+}\r
+\r
+int set_expand_string(HKEY key, TCHAR *value, TCHAR *string) {\r
+ return set_string(key, value, string, true);\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(ret), 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 *formatted, unsigned long formattedlen, TCHAR **dn, unsigned long *newlen) {\r
+ unsigned long i, j;\r
+ *newlen = 0;\r
+\r
+ /* Don't count trailing NULLs. */\r
+ for (i = 0; i < formattedlen; i++) {\r
+ if (! formatted[i]) {\r
+ formattedlen = i;\r
+ break;\r
+ }\r
+ }\r
+\r
+ if (! formattedlen) {\r
+ *dn = 0;\r
+ return 0;\r
+ }\r
+\r
+ for (i = 0; i < formattedlen; i++) if (formatted[i] != _T('\r')) ++*newlen;\r
+\r
+ /* Skip blank lines. */\r
+ for (i = 0; i < formattedlen; i++) {\r
+ if (formatted[i] == _T('\r') && formatted[i + 1] == _T('\n')) {\r
+ /* This is the last CRLF. */\r
+ if (i >= formattedlen - 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 || (formatted[i + 2] == _T('\r') && formatted[i + 3] == _T('\n'))) {\r
+ for (j = i + 2; j < formattedlen; j++) formatted[j - 2] = formatted[j];\r
+ formatted[formattedlen--] = _T('\0');\r
+ formatted[formattedlen--] = _T('\0');\r
+ i--;\r
+ --*newlen;\r
+ }\r
+ }\r
+ }\r
+\r
+ /* Must end with two NULLs. */\r
+ *newlen += 2;\r
+\r
+ *dn = (TCHAR *) HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, *newlen * sizeof(TCHAR));\r
+ if (! *dn) return 1;\r
+\r
+ for (i = 0, j = 0; i < formattedlen; i++) {\r
+ if (formatted[i] == _T('\r')) continue;\r
+ if (formatted[i] == _T('\n')) (*dn)[j] = _T('\0');\r
+ else (*dn)[j] = formatted[i];\r
+ j++;\r
+ }\r
+\r
+ return 0;\r
+}\r
+\r
+/* Copy a block. */\r
+int copy_double_null(TCHAR *dn, unsigned long dnlen, TCHAR **newdn) {\r
+ if (! newdn) return 1;\r
+\r
+ *newdn = 0;\r
+ if (! dn) return 0;\r
+\r
+ *newdn = (TCHAR *) HeapAlloc(GetProcessHeap(), 0, dnlen * sizeof(TCHAR));\r
+ if (! *newdn) {\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, _T("dn"), _T("copy_double_null()"), 0);\r
+ return 2;\r
+ }\r
+\r
+ memmove(*newdn, dn, dnlen * sizeof(TCHAR));\r
+ return 0;\r
+}\r
+\r
+/*\r
+ Create a new block with all the strings of the first block plus a new string.\r
+ The new string may be specified as <key> <delimiter> <value> and the keylen\r
+ gives the offset into the string to compare against existing entries.\r
+ If the key is already present its value will be overwritten in place.\r
+ If the key is blank or empty the new block will still be allocated and have\r
+ non-zero length.\r
+*/\r
+int append_to_double_null(TCHAR *dn, unsigned long dnlen, TCHAR **newdn, unsigned long *newlen, TCHAR *append, size_t keylen, bool case_sensitive) {\r
+ if (! append || ! append[0]) return copy_double_null(dn, dnlen, newdn);\r
+ size_t appendlen = _tcslen(append);\r
+ int (*fn)(const TCHAR *, const TCHAR *, size_t) = (case_sensitive) ? _tcsncmp : _tcsnicmp;\r
+\r
+ /* Identify the key, if any, or treat the whole string as the key. */\r
+ TCHAR *key = 0;\r
+ if (! keylen || keylen > appendlen) keylen = appendlen;\r
+ key = (TCHAR *) HeapAlloc(GetProcessHeap(), 0, (keylen + 1) * sizeof(TCHAR));\r
+ if (! key) {\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, _T("key"), _T("append_to_double_null()"), 0);\r
+ return 1;\r
+ }\r
+ memmove(key, append, keylen * sizeof(TCHAR));\r
+ key[keylen] = _T('\0');\r
+\r
+ /* Find the length of the block not including any existing key. */\r
+ size_t len = 0;\r
+ TCHAR *s;\r
+ for (s = dn; *s; s++) {\r
+ if (fn(s, key, keylen)) len += _tcslen(s) + 1;\r
+ for ( ; *s; s++);\r
+ }\r
+\r
+ /* Account for new entry. */\r
+ len += _tcslen(append) + 1;\r
+\r
+ /* Account for trailing NULL. */\r
+ len++;\r
+\r
+ /* Allocate a new block. */\r
+ *newdn = (TCHAR *) HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, len * sizeof(TCHAR));\r
+ if (! *newdn) {\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, _T("newdn"), _T("append_to_double_null()"), 0);\r
+ HeapFree(GetProcessHeap(), 0, key);\r
+ return 2;\r
+ }\r
+\r
+ /* Copy existing entries.*/\r
+ *newlen = (unsigned long) len;\r
+ TCHAR *t = *newdn;\r
+ TCHAR *u;\r
+ bool replaced = false;\r
+ for (s = dn; *s; s++) {\r
+ if (fn(s, key, keylen)) u = s;\r
+ else {\r
+ u = append;\r
+ replaced = true;\r
+ }\r
+ len = _tcslen(u) + 1;\r
+ memmove(t, u, len * sizeof(TCHAR));\r
+ t += len;\r
+ for ( ; *s; s++);\r
+ }\r
+\r
+ /* Add the entry if it wasn't already replaced. The buffer was zeroed. */\r
+ if (! replaced) memmove(t, append, _tcslen(append) * sizeof(TCHAR));\r
+\r
+ HeapFree(GetProcessHeap(), 0, key);\r
+ return 0;\r
+}\r
+\r
+/*\r
+ Create a new block with all the string of the first block minus the given\r
+ string.\r
+ The keylen parameter gives the offset into the string to compare against\r
+ existing entries. If a substring of existing value matches the string to\r
+ the given length it will be removed.\r
+ If the last entry is removed the new block will still be allocated and\r
+ have non-zero length.\r
+*/\r
+int remove_from_double_null(TCHAR *dn, unsigned long dnlen, TCHAR **newdn, unsigned long *newlen, TCHAR *remove, size_t keylen, bool case_sensitive) {\r
+ if (! remove || !remove[0]) return copy_double_null(dn, dnlen, newdn);\r
+ size_t removelen = _tcslen(remove);\r
+ int (*fn)(const TCHAR *, const TCHAR *, size_t) = (case_sensitive) ? _tcsncmp : _tcsnicmp;\r
+\r
+ /* Identify the key, if any, or treat the whole string as the key. */\r
+ TCHAR *key = 0;\r
+ if (! keylen || keylen > removelen) keylen = removelen;\r
+ key = (TCHAR *) HeapAlloc(GetProcessHeap(), 0, (keylen + 1) * sizeof(TCHAR));\r
+ if (! key) {\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, _T("key"), _T("remove_from_double_null()"), 0);\r
+ return 1;\r
+ }\r
+ memmove(key, remove, keylen * sizeof(TCHAR));\r
+ key[keylen] = _T('\0');\r
+\r
+ /* Find the length of the block not including any existing key. */\r
+ size_t len = 0;\r
+ TCHAR *s;\r
+ for (s = dn; *s; s++) {\r
+ if (fn(s, key, keylen)) len += _tcslen(s) + 1;\r
+ for ( ; *s; s++);\r
+ }\r
+\r
+ /* Account for trailing NULL. */\r
+ if (++len < 2) len = 2;\r
+\r
+ /* Allocate a new block. */\r
+ *newdn = (TCHAR *) HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, len * sizeof(TCHAR));\r
+ if (! *newdn) {\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, _T("newdn"), _T("remove_from_double_null()"), 0);\r
+ HeapFree(GetProcessHeap(), 0, key);\r
+ return 2;\r
+ }\r
+\r
+ /* Copy existing entries.*/\r
+ *newlen = (unsigned long) len;\r
+ TCHAR *t = *newdn;\r
+ for (s = dn; *s; s++) {\r
+ if (fn(s, key, keylen)) {\r
+ len = _tcslen(s) + 1;\r
+ memmove(t, s, len * sizeof(TCHAR));\r
+ t += len;\r
+ }\r
+ for ( ; *s; s++);\r
+ }\r
+\r
+ HeapFree(GetProcessHeap(), 0, key);\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(ret), 0);\r
+ }\r
+ }\r
+ else ok = true;\r
+\r
+ if (! ok) *buffer = default_value;\r
+}\r
+\r
+HKEY open_service_registry(const TCHAR *service_name, REGSAM sam, bool must_exist) {\r
+ /* Get registry */\r
+ TCHAR registry[KEY_LENGTH];\r
+ if (service_registry_path(service_name, false, 0, registry, _countof(registry)) < 0) {\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, NSSM_REGISTRY, _T("open_service_registry()"), 0);\r
+ return 0;\r
+ }\r
+\r
+ return open_registry_key(registry, sam, must_exist);\r
+}\r
+\r
+long open_registry(const TCHAR *service_name, const TCHAR *sub, REGSAM sam, HKEY *key, bool must_exist) {\r
+ /* Get registry */\r
+ TCHAR registry[KEY_LENGTH];\r
+ if (service_registry_path(service_name, true, sub, registry, _countof(registry)) < 0) {\r
+ log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, NSSM_REGISTRY, _T("open_registry()"), 0);\r
+ return 0;\r
+ }\r
+\r
+ return open_registry_key(registry, sam, key, must_exist);\r
+}\r
+\r
+HKEY open_registry(const TCHAR *service_name, const TCHAR *sub, REGSAM sam, bool must_exist) {\r