registry.cpp

   1 #include "nssm.h"\r
   2 \r
   3 extern const TCHAR *exit_action_strings[];\r
   4 \r
   5 int create_messages() {\r
   6   HKEY key;\r
   7 \r
   8   TCHAR registry[KEY_LENGTH];\r
   9   if (_sntprintf_s(registry, _countof(registry), _TRUNCATE, _T("SYSTEM\\CurrentControlSet\\Services\\EventLog\\Application\\%s"), NSSM) < 0) {\r
  10     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, _T("eventlog registry"), _T("create_messages()"), 0);\r
  11     return 1;\r
  12   }\r
  13 \r
  14   if (RegCreateKeyEx(HKEY_LOCAL_MACHINE, registry, 0, 0, REG_OPTION_NON_VOLATILE, KEY_WRITE, 0, &key, 0) != ERROR_SUCCESS) {\r
  15     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OPENKEY_FAILED, registry, error_string(GetLastError()), 0);\r
  16     return 2;\r
  17   }\r
  18 \r
  19   /* Get path of this program */\r
  20   TCHAR path[MAX_PATH];\r
  21   GetModuleFileName(0, path, _countof(path));\r
  22 \r
  23   /* Try to register the module but don't worry so much on failure */\r
  24   RegSetValueEx(key, _T("EventMessageFile"), 0, REG_SZ, (const unsigned char *) path, (unsigned long) (_tcslen(path) +  1) * sizeof(TCHAR));\r
  25   unsigned long types = EVENTLOG_INFORMATION_TYPE | EVENTLOG_WARNING_TYPE | EVENTLOG_ERROR_TYPE;\r
  26   RegSetValueEx(key, _T("TypesSupported"), 0, REG_DWORD, (const unsigned char *) &types, sizeof(types));\r
  27 \r
  28   return 0;\r
  29 }\r
  30 \r
  31 int create_parameters(nssm_service_t *service) {\r
  32   /* Get registry */\r
  33   TCHAR registry[KEY_LENGTH];\r
  34   if (_sntprintf_s(registry, _countof(registry), _TRUNCATE, NSSM_REGISTRY, service->name) < 0) {\r
  35     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, _T("NSSM_REGISTRY"), _T("create_parameters()"), 0);\r
  36     return 1;\r
  37   }\r
  38 \r
  39   /* Try to open the registry */\r
  40   HKEY key;\r
  41   if (RegCreateKeyEx(HKEY_LOCAL_MACHINE, registry, 0, 0, REG_OPTION_NON_VOLATILE, KEY_WRITE, 0, &key, 0) != ERROR_SUCCESS) {\r
  42     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OPENKEY_FAILED, registry, error_string(GetLastError()), 0);\r
  43     return 2;\r
  44   }\r
  45 \r
  46   /* Try to create the parameters */\r
  47   if (set_expand_string(key, NSSM_REG_EXE, service->exe)) {\r
  48     RegDeleteKey(HKEY_LOCAL_MACHINE, NSSM_REGISTRY);\r
  49     RegCloseKey(key);\r
  50     return 3;\r
  51   }\r
  52   if (set_expand_string(key, NSSM_REG_FLAGS, service->flags)) {\r
  53     RegDeleteKey(HKEY_LOCAL_MACHINE, NSSM_REGISTRY);\r
  54     RegCloseKey(key);\r
  55     return 4;\r
  56   }\r
  57   if (set_expand_string(key, NSSM_REG_DIR, service->dir)) {\r
  58     RegDeleteKey(HKEY_LOCAL_MACHINE, NSSM_REGISTRY);\r
  59     RegCloseKey(key);\r
  60     return 5;\r
  61   }\r
  62 \r
  63   /* Other non-default parameters. May fail. */\r
  64   unsigned long stop_method_skip = ~service->stop_method;\r
  65   if (stop_method_skip) set_number(key, NSSM_REG_STOP_METHOD_SKIP, stop_method_skip);\r
  66   if (service->default_exit_action < NSSM_NUM_EXIT_ACTIONS) create_exit_action(service->name, exit_action_strings[service->default_exit_action]);\r
  67   if (service->throttle_delay != NSSM_RESET_THROTTLE_RESTART) set_number(key, NSSM_REG_THROTTLE, service->throttle_delay);\r
  68   if (service->kill_console_delay != NSSM_KILL_CONSOLE_GRACE_PERIOD) set_number(key, NSSM_REG_KILL_CONSOLE_GRACE_PERIOD, service->kill_console_delay);\r
  69   if (service->kill_window_delay != NSSM_KILL_WINDOW_GRACE_PERIOD) set_number(key, NSSM_REG_KILL_WINDOW_GRACE_PERIOD, service->kill_window_delay);\r
  70   if (service->kill_threads_delay != NSSM_KILL_THREADS_GRACE_PERIOD) set_number(key, NSSM_REG_KILL_THREADS_GRACE_PERIOD, service->kill_threads_delay);\r
  71   if (service->stdin_path[0]) {\r
  72     set_expand_string(key, NSSM_REG_STDIN, service->stdin_path);\r
  73     if (service->stdin_sharing != NSSM_STDIN_SHARING) set_createfile_parameter(key, NSSM_REG_STDIN, NSSM_REG_STDIO_SHARING, service->stdin_sharing);\r
  74     if (service->stdin_disposition != NSSM_STDIN_DISPOSITION) set_createfile_parameter(key, NSSM_REG_STDIN, NSSM_REG_STDIO_DISPOSITION, service->stdin_disposition);\r
  75     if (service->stdin_flags != NSSM_STDIN_FLAGS) set_createfile_parameter(key, NSSM_REG_STDIN, NSSM_REG_STDIO_FLAGS, service->stdin_flags);\r
  76   }\r
  77   if (service->stdout_path[0]) {\r
  78     set_expand_string(key, NSSM_REG_STDOUT, service->stdout_path);\r
  79     if (service->stdout_sharing != NSSM_STDOUT_SHARING) set_createfile_parameter(key, NSSM_REG_STDOUT, NSSM_REG_STDIO_SHARING, service->stdout_sharing);\r
  80     if (service->stdout_disposition != NSSM_STDOUT_DISPOSITION) set_createfile_parameter(key, NSSM_REG_STDOUT, NSSM_REG_STDIO_DISPOSITION, service->stdout_disposition);\r
  81     if (service->stdout_flags != NSSM_STDOUT_FLAGS) set_createfile_parameter(key, NSSM_REG_STDOUT, NSSM_REG_STDIO_FLAGS, service->stdout_flags);\r
  82   }\r
  83   if (service->stderr_path[0]) {\r
  84     set_expand_string(key, NSSM_REG_STDERR, service->stderr_path);\r
  85     if (service->stderr_sharing != NSSM_STDERR_SHARING) set_createfile_parameter(key, NSSM_REG_STDERR, NSSM_REG_STDIO_SHARING, service->stderr_sharing);\r
  86     if (service->stderr_disposition != NSSM_STDERR_DISPOSITION) set_createfile_parameter(key, NSSM_REG_STDERR, NSSM_REG_STDIO_DISPOSITION, service->stderr_disposition);\r
  87     if (service->stderr_flags != NSSM_STDERR_FLAGS) set_createfile_parameter(key, NSSM_REG_STDERR, NSSM_REG_STDIO_FLAGS, service->stderr_flags);\r
  88   }\r
  89   if (service->rotate_files) set_number(key, NSSM_REG_ROTATE, 1);\r
  90   if (service->rotate_seconds) set_number(key, NSSM_REG_ROTATE_SECONDS, service->rotate_seconds);\r
  91   if (service->rotate_bytes_low) set_number(key, NSSM_REG_ROTATE_BYTES_LOW, service->rotate_bytes_low);\r
  92   if (service->rotate_bytes_high) set_number(key, NSSM_REG_ROTATE_BYTES_HIGH, service->rotate_bytes_high);\r
  93 \r
  94   /* Environment */\r
  95   if (service->env) {\r
  96     if (RegSetValueEx(key, NSSM_REG_ENV, 0, REG_MULTI_SZ, (const unsigned char *) service->env, (unsigned long) service->envlen * sizeof(TCHAR)) != ERROR_SUCCESS) {\r
  97       log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_SETVALUE_FAILED, NSSM_REG_ENV, error_string(GetLastError()), 0);\r
  98     }\r
  99   }\r
 100   if (service->env_extra) {\r
 101     if (RegSetValueEx(key, NSSM_REG_ENV_EXTRA, 0, REG_MULTI_SZ, (const unsigned char *) service->env_extra, (unsigned long) service->env_extralen * sizeof(TCHAR)) != ERROR_SUCCESS) {\r
 102       log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_SETVALUE_FAILED, NSSM_REG_ENV_EXTRA, error_string(GetLastError()), 0);\r
 103     }\r
 104   }\r
 105 \r
 106   /* Close registry. */\r
 107   RegCloseKey(key);\r
 108 \r
 109   return 0;\r
 110 }\r
 111 \r
 112 int create_exit_action(TCHAR *service_name, const TCHAR *action_string) {\r
 113   /* Get registry */\r
 114   TCHAR registry[KEY_LENGTH];\r
 115   if (_sntprintf_s(registry, _countof(registry), _TRUNCATE, NSSM_REGISTRY _T("\\%s"), service_name, NSSM_REG_EXIT) < 0) {\r
 116     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, _T("NSSM_REG_EXIT"), _T("create_exit_action()"), 0);\r
 117     return 1;\r
 118   }\r
 119 \r
 120   /* Try to open the registry */\r
 121   HKEY key;\r
 122   unsigned long disposition;\r
 123   if (RegCreateKeyEx(HKEY_LOCAL_MACHINE, registry, 0, 0, REG_OPTION_NON_VOLATILE, KEY_WRITE, 0, &key, &disposition) != ERROR_SUCCESS) {\r
 124     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OPENKEY_FAILED, registry, error_string(GetLastError()), 0);\r
 125     return 2;\r
 126   }\r
 127 \r
 128   /* Do nothing if the key already existed */\r
 129   if (disposition == REG_OPENED_EXISTING_KEY) {\r
 130     RegCloseKey(key);\r
 131     return 0;\r
 132   }\r
 133 \r
 134   /* Create the default value */\r
 135   if (RegSetValueEx(key, 0, 0, REG_SZ, (const unsigned char *) action_string, (unsigned long) (_tcslen(action_string) + 1) * sizeof(TCHAR)) != ERROR_SUCCESS) {\r
 136     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_SETVALUE_FAILED, NSSM_REG_EXIT, error_string(GetLastError()), 0);\r
 137     RegCloseKey(key);\r
 138     return 3;\r
 139   }\r
 140 \r
 141   /* Close registry */\r
 142   RegCloseKey(key);\r
 143 \r
 144   return 0;\r
 145 }\r
 146 \r
 147 int set_environment(TCHAR *service_name, HKEY key, TCHAR *value, TCHAR **env, unsigned long *envlen) {\r
 148   unsigned long type = REG_MULTI_SZ;\r
 149 \r
 150   /* Dummy test to find buffer size */\r
 151   unsigned long ret = RegQueryValueEx(key, value, 0, &type, NULL, envlen);\r
 152   if (ret != ERROR_SUCCESS) {\r
 153     *env = 0;\r
 154     *envlen = 0;\r
 155     /* The service probably doesn't have any environment configured */\r
 156     if (ret == ERROR_FILE_NOT_FOUND) return 0;\r
 157     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_QUERYVALUE_FAILED, value, error_string(GetLastError()), 0);\r
 158     return 1;\r
 159   }\r
 160 \r
 161   if (type != REG_MULTI_SZ) {\r
 162     *env = 0;\r
 163     *envlen = 0;\r
 164     log_event(EVENTLOG_WARNING_TYPE, NSSM_EVENT_INVALID_ENVIRONMENT_STRING_TYPE, value, service_name, 0);\r
 165     return 2;\r
 166   }\r
 167 \r
 168   /* Probably not possible */\r
 169   if (! *envlen) return 0;\r
 170 \r
 171   /* Previously initialised? */\r
 172   if (*env) HeapFree(GetProcessHeap(), 0, *env);\r
 173 \r
 174   *env = (TCHAR *) HeapAlloc(GetProcessHeap(), 0, *envlen);\r
 175   if (! *env) {\r
 176     *envlen = 0;\r
 177     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, value, _T("set_environment()"), 0);\r
 178     return 3;\r
 179   }\r
 180 \r
 181   /* Actually get the strings */\r
 182   ret = RegQueryValueEx(key, value, 0, &type, (unsigned char *) *env, envlen);\r
 183   if (ret != ERROR_SUCCESS) {\r
 184     HeapFree(GetProcessHeap(), 0, *env);\r
 185     *env = 0;\r
 186     *envlen = 0;\r
 187     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_QUERYVALUE_FAILED, value, error_string(GetLastError()), 0);\r
 188     return 4;\r
 189   }\r
 190 \r
 191   return 0;\r
 192 }\r
 193 \r
 194 int expand_parameter(HKEY key, TCHAR *value, TCHAR *data, unsigned long datalen, bool sanitise, bool must_exist) {\r
 195   TCHAR *buffer = (TCHAR *) HeapAlloc(GetProcessHeap(), 0, datalen);\r
 196   if (! buffer) {\r
 197     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, value, _T("expand_parameter()"), 0);\r
 198     return 1;\r
 199   }\r
 200 \r
 201   ZeroMemory(data, datalen);\r
 202 \r
 203   unsigned long type = REG_EXPAND_SZ;\r
 204   unsigned long buflen = datalen;\r
 205 \r
 206   unsigned long ret = RegQueryValueEx(key, value, 0, &type, (unsigned char *) buffer, &buflen);\r
 207   if (ret != ERROR_SUCCESS) {\r
 208     unsigned long error = GetLastError();\r
 209     HeapFree(GetProcessHeap(), 0, buffer);\r
 210 \r
 211     if (ret == ERROR_FILE_NOT_FOUND) {\r
 212       if (! must_exist) return 0;\r
 213     }\r
 214 \r
 215     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_QUERYVALUE_FAILED, value, error_string(error), 0);\r
 216     return 2;\r
 217   }\r
 218 \r
 219   /* Paths aren't allowed to contain quotes. */\r
 220   if (sanitise) PathUnquoteSpaces(buffer);\r
 221 \r
 222   /* Technically we shouldn't expand environment strings from REG_SZ values */\r
 223   if (type != REG_EXPAND_SZ) {\r
 224     memmove(data, buffer, buflen);\r
 225     HeapFree(GetProcessHeap(), 0, buffer);\r
 226     return 0;\r
 227   }\r
 228 \r
 229   ret = ExpandEnvironmentStrings((TCHAR *) buffer, data, datalen);\r
 230   if (! ret || ret > datalen) {\r
 231     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_EXPANDENVIRONMENTSTRINGS_FAILED, buffer, error_string(GetLastError()), 0);\r
 232     HeapFree(GetProcessHeap(), 0, buffer);\r
 233     return 3;\r
 234   }\r
 235 \r
 236   HeapFree(GetProcessHeap(), 0, buffer);\r
 237   return 0;\r
 238 }\r
 239 \r
 240 int expand_parameter(HKEY key, TCHAR *value, TCHAR *data, unsigned long datalen, bool sanitise) {\r
 241   return expand_parameter(key, value, data, datalen, sanitise, true);\r
 242 }\r
 243 \r
 244 /*\r
 245   Sets a string in the registry.\r
 246   Returns: 0 if it was set.\r
 247            1 on error.\r
 248 */\r
 249 int set_expand_string(HKEY key, TCHAR *value, TCHAR *string) {\r
 250   if (RegSetValueEx(key, value, 0, REG_EXPAND_SZ, (const unsigned char *) string, (unsigned long) (_tcslen(string) + 1) * sizeof(TCHAR)) == ERROR_SUCCESS) return 0;\r
 251   log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_SETVALUE_FAILED, value, error_string(GetLastError()), 0);\r
 252   return 1;\r
 253 }\r
 254 \r
 255 /*\r
 256   Set an unsigned long in the registry.\r
 257   Returns: 0 if it was set.\r
 258            1 on error.\r
 259 */\r
 260 int set_number(HKEY key, TCHAR *value, unsigned long number) {\r
 261   if (RegSetValueEx(key, value, 0, REG_DWORD, (const unsigned char *) &number, sizeof(number)) == ERROR_SUCCESS) return 0;\r
 262   log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_SETVALUE_FAILED, value, error_string(GetLastError()), 0);\r
 263   return 1;\r
 264 }\r
 265 \r
 266 /*\r
 267   Query an unsigned long from the registry.\r
 268   Returns:  1 if a number was retrieved.\r
 269             0 if none was found and must_exist is false.\r
 270            -1 if none was found and must_exist is true.\r
 271            -2 otherwise.\r
 272 */\r
 273 int get_number(HKEY key, TCHAR *value, unsigned long *number, bool must_exist) {\r
 274   unsigned long type = REG_DWORD;\r
 275   unsigned long number_len = sizeof(unsigned long);\r
 276 \r
 277   int ret = RegQueryValueEx(key, value, 0, &type, (unsigned char *) number, &number_len);\r
 278   if (ret == ERROR_SUCCESS) return 1;\r
 279 \r
 280   if (ret == ERROR_FILE_NOT_FOUND) {\r
 281     if (! must_exist) return 0;\r
 282   }\r
 283 \r
 284   log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_QUERYVALUE_FAILED, value, error_string(GetLastError()), 0);\r
 285   if (ret == ERROR_FILE_NOT_FOUND) return -1;\r
 286 \r
 287   return -2;\r
 288 }\r
 289 \r
 290 int get_number(HKEY key, TCHAR *value, unsigned long *number) {\r
 291   return get_number(key, value, number, true);\r
 292 }\r
 293 \r
 294 void override_milliseconds(TCHAR *service_name, HKEY key, TCHAR *value, unsigned long *buffer, unsigned long default_value, unsigned long event) {\r
 295   unsigned long type = REG_DWORD;\r
 296   unsigned long buflen = sizeof(unsigned long);\r
 297   bool ok = false;\r
 298   unsigned long ret = RegQueryValueEx(key, value, 0, &type, (unsigned char *) buffer, &buflen);\r
 299   if (ret != ERROR_SUCCESS) {\r
 300     if (ret != ERROR_FILE_NOT_FOUND) {\r
 301       if (type != REG_DWORD) {\r
 302         TCHAR milliseconds[16];\r
 303         _sntprintf_s(milliseconds, _countof(milliseconds), _TRUNCATE, _T("%lu"), default_value);\r
 304         log_event(EVENTLOG_WARNING_TYPE, event, service_name, value, milliseconds, 0);\r
 305       }\r
 306       else log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_QUERYVALUE_FAILED, value, error_string(GetLastError()), 0);\r
 307     }\r
 308   }\r
 309   else ok = true;\r
 310 \r
 311   if (! ok) *buffer = default_value;\r
 312 }\r
 313 \r
 314 int get_parameters(nssm_service_t *service, STARTUPINFO *si) {\r
 315   unsigned long ret;\r
 316 \r
 317   /* Get registry */\r
 318   TCHAR registry[KEY_LENGTH];\r
 319   if (_sntprintf_s(registry, _countof(registry), _TRUNCATE, NSSM_REGISTRY, service->name) < 0) {\r
 320     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, _T("NSSM_REGISTRY"), _T("get_parameters()"), 0);\r
 321     return 1;\r
 322   }\r
 323 \r
 324   /* Try to open the registry */\r
 325   HKEY key;\r
 326   if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, registry, 0, KEY_READ, &key) != ERROR_SUCCESS) {\r
 327     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OPENKEY_FAILED, registry, error_string(GetLastError()), 0);\r
 328     return 2;\r
 329   }\r
 330 \r
 331   /* Try to get executable file - MUST succeed */\r
 332   if (expand_parameter(key, NSSM_REG_EXE, service->exe, sizeof(service->exe), false)) {\r
 333     RegCloseKey(key);\r
 334     return 3;\r
 335   }\r
 336 \r
 337   /* Try to get flags - may fail and we don't care */\r
 338   if (expand_parameter(key, NSSM_REG_FLAGS, service->flags, sizeof(service->flags), false)) {\r
 339     log_event(EVENTLOG_WARNING_TYPE, NSSM_EVENT_NO_FLAGS, NSSM_REG_FLAGS, service->name, service->exe, 0);\r
 340     ZeroMemory(service->flags, sizeof(service->flags));\r
 341   }\r
 342 \r
 343   /* Try to get startup directory - may fail and we fall back to a default */\r
 344   if (expand_parameter(key, NSSM_REG_DIR, service->dir, sizeof(service->dir), true) || ! service->dir[0]) {\r
 345     _sntprintf_s(service->dir, _countof(service->dir), _TRUNCATE, _T("%s"), service->exe);\r
 346     strip_basename(service->dir);\r
 347     if (service->dir[0] == _T('\0')) {\r
 348       /* Help! */\r
 349       ret = GetWindowsDirectory(service->dir, sizeof(service->dir));\r
 350       if (! ret || ret > sizeof(service->dir)) {\r
 351         log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_NO_DIR_AND_NO_FALLBACK, NSSM_REG_DIR, service->name, 0);\r
 352         RegCloseKey(key);\r
 353         return 4;\r
 354       }\r
 355     }\r
 356     log_event(EVENTLOG_WARNING_TYPE, NSSM_EVENT_NO_DIR, NSSM_REG_DIR, service->name, service->dir, 0);\r
 357   }\r
 358 \r
 359   /* Try to get environment variables - may fail */\r
 360   set_environment(service->name, key, NSSM_REG_ENV, &service->env, &service->envlen);\r
 361   /* Environment variables to add to existing rather than replace - may fail. */\r
 362   set_environment(service->name, key, NSSM_REG_ENV_EXTRA, &service->env_extra, &service->env_extralen);\r
 363 \r
 364   if (si) {\r
 365     if (service->env_extra) {\r
 366       /* Append these to any other environment variables set. */\r
 367       if (service->env) {\r
 368         /* Append extra variables to configured variables. */\r
 369         unsigned long envlen = service->envlen + service->env_extralen - 1;\r
 370         TCHAR *env = (TCHAR *) HeapAlloc(GetProcessHeap(), 0, envlen);\r
 371         if (env) {\r
 372           memmove(env, service->env, service->envlen - sizeof(TCHAR));\r
 373           /* envlen is in bytes. */\r
 374           memmove(env + (service->envlen / sizeof(TCHAR)) - 1, service->env_extra, service->env_extralen);\r
 375 \r
 376           HeapFree(GetProcessHeap(), 0, service->env);\r
 377           service->env = env;\r
 378           service->envlen = envlen;\r
 379         }\r
 380         else log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, _T("environment"), _T("get_parameters()"), 0);\r
 381       }\r
 382       else {\r
 383         /* Append extra variables to our environment. */\r
 384         TCHAR *env, *s;\r
 385         size_t envlen, len;\r
 386 \r
 387         env = service->env_extra;\r
 388         len = 0;\r
 389         while (*env) {\r
 390           envlen = _tcslen(env) + 1;\r
 391           for (s = env; *s && *s != _T('='); s++);\r
 392           if (*s == _T('=')) *s++ = _T('\0');\r
 393           if (! SetEnvironmentVariable(env, s)) log_event(EVENTLOG_WARNING_TYPE, NSSM_EVENT_SETENVIRONMENTVARIABLE_FAILED, env, s, error_string(GetLastError()), 0);\r
 394           env += envlen;\r
 395         }\r
 396       }\r
 397     }\r
 398   }\r
 399 \r
 400   /* Try to get file rotation settings - may fail. */\r
 401   unsigned long rotate_files;\r
 402   if (get_number(key, NSSM_REG_ROTATE, &rotate_files, false) == 1) {\r
 403     if (rotate_files) service->rotate_files = true;\r
 404     else service->rotate_files = false;\r
 405   }\r
 406   else service->rotate_files = false;\r
 407   if (get_number(key, NSSM_REG_ROTATE_SECONDS, &service->rotate_seconds, false) != 1) service->rotate_seconds = 0;\r
 408   if (get_number(key, NSSM_REG_ROTATE_BYTES_LOW, &service->rotate_bytes_low, false) != 1) service->rotate_bytes_low = 0;\r
 409   if (get_number(key, NSSM_REG_ROTATE_BYTES_HIGH, &service->rotate_bytes_high, false) != 1) service->rotate_bytes_high = 0;\r
 410 \r
 411   /* Change to startup directory in case stdout/stderr are relative paths. */\r
 412   TCHAR cwd[MAX_PATH];\r
 413   GetCurrentDirectory(_countof(cwd), cwd);\r
 414   SetCurrentDirectory(service->dir);\r
 415 \r
 416   /* Try to get stdout and stderr */\r
 417   if (get_output_handles(service, key, si)) {\r
 418     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_GET_OUTPUT_HANDLES_FAILED, service->name, 0);\r
 419     RegCloseKey(key);\r
 420     SetCurrentDirectory(cwd);\r
 421     return 5;\r
 422   }\r
 423 \r
 424   /* Change back in case the startup directory needs to be deleted. */\r
 425   SetCurrentDirectory(cwd);\r
 426 \r
 427   /* Try to get throttle restart delay */\r
 428   override_milliseconds(service->name, key, NSSM_REG_THROTTLE, &service->throttle_delay, NSSM_RESET_THROTTLE_RESTART, NSSM_EVENT_BOGUS_THROTTLE);\r
 429 \r
 430   /* Try to get service stop flags. */\r
 431   unsigned long type = REG_DWORD;\r
 432   unsigned long stop_method_skip;\r
 433   unsigned long buflen = sizeof(stop_method_skip);\r
 434   bool stop_ok = false;\r
 435   ret = RegQueryValueEx(key, NSSM_REG_STOP_METHOD_SKIP, 0, &type, (unsigned char *) &stop_method_skip, &buflen);\r
 436   if (ret != ERROR_SUCCESS) {\r
 437     if (ret != ERROR_FILE_NOT_FOUND) {\r
 438       if (type != REG_DWORD) {\r
 439         log_event(EVENTLOG_WARNING_TYPE, NSSM_EVENT_BOGUS_STOP_METHOD_SKIP, service->name, NSSM_REG_STOP_METHOD_SKIP, NSSM, 0);\r
 440       }\r
 441       else log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_QUERYVALUE_FAILED, NSSM_REG_STOP_METHOD_SKIP, error_string(GetLastError()), 0);\r
 442     }\r
 443   }\r
 444   else stop_ok = true;\r
 445 \r
 446   /* Try all methods except those requested to be skipped. */\r
 447   service->stop_method = ~0;\r
 448   if (stop_ok) service->stop_method &= ~stop_method_skip;\r
 449 \r
 450   /* Try to get kill delays - may fail. */\r
 451   override_milliseconds(service->name, key, NSSM_REG_KILL_CONSOLE_GRACE_PERIOD, &service->kill_console_delay, NSSM_KILL_CONSOLE_GRACE_PERIOD, NSSM_EVENT_BOGUS_KILL_CONSOLE_GRACE_PERIOD);\r
 452   override_milliseconds(service->name, key, NSSM_REG_KILL_WINDOW_GRACE_PERIOD, &service->kill_window_delay, NSSM_KILL_WINDOW_GRACE_PERIOD, NSSM_EVENT_BOGUS_KILL_WINDOW_GRACE_PERIOD);\r
 453   override_milliseconds(service->name, key, NSSM_REG_KILL_THREADS_GRACE_PERIOD, &service->kill_threads_delay, NSSM_KILL_THREADS_GRACE_PERIOD, NSSM_EVENT_BOGUS_KILL_THREADS_GRACE_PERIOD);\r
 454 \r
 455   /* Close registry */\r
 456   RegCloseKey(key);\r
 457 \r
 458   return 0;\r
 459 }\r
 460 \r
 461 int get_exit_action(TCHAR *service_name, unsigned long *ret, TCHAR *action, bool *default_action) {\r
 462   /* Are we returning the default action or a status-specific one? */\r
 463   *default_action = ! ret;\r
 464 \r
 465   /* Get registry */\r
 466   TCHAR registry[KEY_LENGTH];\r
 467   if (_sntprintf_s(registry, _countof(registry), _TRUNCATE, NSSM_REGISTRY _T("\\%s"), service_name, NSSM_REG_EXIT) < 0) {\r
 468     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OUT_OF_MEMORY, _T("NSSM_REG_EXIT"), _T("get_exit_action()"), 0);\r
 469     return 1;\r
 470   }\r
 471 \r
 472   /* Try to open the registry */\r
 473   HKEY key;\r
 474   long error = RegOpenKeyEx(HKEY_LOCAL_MACHINE, registry, 0, KEY_READ, &key);\r
 475   if (error != ERROR_SUCCESS && error != ERROR_FILE_NOT_FOUND) {\r
 476     log_event(EVENTLOG_ERROR_TYPE, NSSM_EVENT_OPENKEY_FAILED, registry, error_string(GetLastError()), 0);\r
 477     return 2;\r
 478   }\r
 479 \r
 480   unsigned long type = REG_SZ;\r
 481   unsigned long action_len = ACTION_LEN;\r
 482 \r
 483   TCHAR code[16];\r
 484   if (! ret) code[0] = _T('\0');\r
 485   else if (_sntprintf_s(code, _countof(code), _TRUNCATE, _T("%lu"), *ret) < 0) {\r
 486     RegCloseKey(key);\r
 487     return get_exit_action(service_name, 0, action, default_action);\r
 488   }\r
 489   if (RegQueryValueEx(key, code, 0, &type, (unsigned char *) action, &action_len) != ERROR_SUCCESS) {\r
 490     RegCloseKey(key);\r
 491     /* Try again with * as the key if an exit code was defined */\r
 492     if (ret) return get_exit_action(service_name, 0, action, default_action);\r
 493     return 0;\r
 494   }\r
 495 \r
 496   /* Close registry */\r
 497   RegCloseKey(key);\r
 498 \r
 499   return 0;\r
 500 }\r