/*****************************************************************************
 *
 * Monitoring Plugins parse_ini library
 *
 * License: GPL
 * Copyright (c) 2007 - 2024 Monitoring Plugins Development Team
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <http://www.gnu.org/licenses/>.
 *
 *
 *****************************************************************************/

#include "common.h"
#include "idpriv.h"
#include "utils_base.h"
#include "parse_ini.h"

#include <ctype.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>

/* np_ini_info contains the result of parsing a "locator" in the format
 * [stanza_name][@config_filename] (check_foo@/etc/foo.ini, for example)
 */
typedef struct {
	char *file;
	bool file_string_on_heap;
	char *stanza;
} np_ini_info;

static char *default_ini_file_names[] = {"monitoring-plugins.ini", "plugins.ini",
										 "nagios-plugins.ini", NULL};

static char *default_ini_path_names[] = {
	"/usr/local/etc/monitoring-plugins/monitoring-plugins.ini",
	"/usr/local/etc/monitoring-plugins.ini", "/etc/monitoring-plugins/monitoring-plugins.ini",
	"/etc/monitoring-plugins.ini",
	/* deprecated path names (for backward compatibility): */
	"/etc/nagios/plugins.ini", "/usr/local/nagios/etc/plugins.ini",
	"/usr/local/etc/nagios/plugins.ini", "/etc/opt/nagios/plugins.ini", "/etc/nagios-plugins.ini",
	"/usr/local/etc/nagios-plugins.ini", "/etc/opt/nagios-plugins.ini", NULL};

/* eat all characters from a FILE pointer until n is encountered */
#define GOBBLE_TO(f, c, n)                                                                         \
	do {                                                                                           \
		(c) = fgetc((f));                                                                          \
	} while ((c) != EOF && (c) != (n))

/* internal function that returns the constructed defaults options */
static bool read_defaults(FILE *defaults_file, const char *stanza, np_arg_list **opts);

/* internal function that converts a single line into options format */
static int add_option(FILE *filePointer, np_arg_list **optlst);

/* internal functions to find default file */
static char *default_file(void);
static char *default_file_in_path(void);

/*
 * Parse_locator decomposes a string of the form
 * 	[stanza][@filename]
 * into its separate parts.
 */
static void parse_locator(const char *locator, const char *def_stanza, np_ini_info *i) {
	size_t locator_len = 0;
	size_t stanza_len = 0;

	/* if locator is NULL we'll use default values */
	if (locator != NULL) {
		locator_len = strlen(locator);
		stanza_len = strcspn(locator, "@");
	}
	/* if a non-default stanza is provided */
	if (stanza_len > 0) {
		i->stanza = malloc(sizeof(char) * (stanza_len + 1));
		strncpy(i->stanza, locator, stanza_len);
		i->stanza[stanza_len] = '\0';
	} else { /* otherwise we use the default stanza */
		i->stanza = strdup(def_stanza);
	}

	if (i->stanza == NULL) {
		die(STATE_UNKNOWN, _("malloc() failed!\n"));
	}

	/* check whether there's an @file part */
	if (stanza_len == locator_len) {
		i->file = default_file();
		i->file_string_on_heap = false;
	} else {
		i->file = strdup(&(locator[stanza_len + 1]));
		i->file_string_on_heap = true;
	}

	if (i->file == NULL || i->file[0] == '\0') {
		die(STATE_UNKNOWN, _("Cannot find config file in any standard location.\n"));
	}
}

/*
 * This is the externally visible function used by extra_opts.
 */
np_arg_list *np_get_defaults(const char *locator, const char *default_section) {
	int is_suid_plugin = mp_suid();

	if (is_suid_plugin && idpriv_temp_drop() == -1) {
		die(STATE_UNKNOWN, _("Cannot drop privileges: %s\n"), strerror(errno));
	}

	FILE *inifile = NULL;
	np_ini_info ini_info;
	parse_locator(locator, default_section, &ini_info);
	inifile = strcmp(ini_info.file, "-") == 0 ? stdin : fopen(ini_info.file, "r");

	if (inifile == NULL) {
		die(STATE_UNKNOWN, _("Can't read config file: %s\n"), strerror(errno));
	}

	np_arg_list *defaults = NULL;
	if (!read_defaults(inifile, ini_info.stanza, &defaults)) {
		die(STATE_UNKNOWN, _("Invalid section '%s' in config file '%s'\n"), ini_info.stanza, ini_info.file);
	}

	if (ini_info.file_string_on_heap) {
		free(ini_info.file);
	}

	if (inifile != stdin) {
		fclose(inifile);
	}
	free(ini_info.stanza);
	if (is_suid_plugin && idpriv_temp_restore() == -1) {
		die(STATE_UNKNOWN, _("Cannot restore privileges: %s\n"), strerror(errno));
	}

	return defaults;
}

/*
 * The read_defaults() function is where the meat of the parsing takes place.
 *
 * Note that this may be called by a setuid binary, so we need to
 * be extra careful about user-supplied input (i.e. avoiding possible
 * format string vulnerabilities, etc).
 */
static bool read_defaults(FILE *defaults_file, const char *stanza, np_arg_list **opts) {
	bool status = false;
	enum {
		NOSTANZA,
		WRONGSTANZA,
		RIGHTSTANZA
	} stanzastate = NOSTANZA;

	size_t stanza_len = strlen(stanza);

	/* our little stanza-parsing state machine */
	int current_char = 0;
	while ((current_char = fgetc(defaults_file)) != EOF) {
		/* gobble up leading whitespace */
		if (isspace(current_char)) {
			continue;
		}
		switch (current_char) {
			/* globble up comment lines */
		case ';':
		case '#':
			GOBBLE_TO(defaults_file, current_char, '\n');
			break;
			/* start of a stanza, check to see if it matches */
		case '[': {
			stanzastate = WRONGSTANZA;
			size_t i;
			for (i = 0; i < stanza_len; i++) {
				current_char = fgetc(defaults_file);
				/* strip leading whitespace */
				if (i == 0) {
					for (; isspace(current_char); current_char = fgetc(defaults_file)) {
					}
				}
				/* nope, read to the end of the line */
				if (current_char != stanza[i]) {
					GOBBLE_TO(defaults_file, current_char, '\n');
					break;
				}
			}

			/* if it matched up to here and the next char is ']'... */
			if (i == stanza_len) {
				current_char = fgetc(defaults_file);
				/* strip trailing whitespace */
				for (; isspace(current_char); current_char = fgetc(defaults_file)) {
				}
				if (current_char == ']') {
					stanzastate = RIGHTSTANZA;
				}
			}
		} break;
			/* otherwise, we're in the body of a stanza or a parse error */
		default:
			switch (stanzastate) {
				/* we never found the start of the first stanza, so
				 * we're dealing with a config error
				 */
			case NOSTANZA:
				die(STATE_UNKNOWN, "%s\n", _("Config file error"));
				/* we're in a stanza, but for a different plugin */
			case WRONGSTANZA:
				GOBBLE_TO(defaults_file, current_char, '\n');
				break;
				/* okay, this is where we start taking the config */
			case RIGHTSTANZA:
				ungetc(current_char, defaults_file);
				if (add_option(defaults_file, opts)) {
					die(STATE_UNKNOWN, "%s\n", _("Config file error"));
				}
				status = true;
				break;
			}
			break;
		}
	}
	return status;
}

/*
 * Read one line of input in the format
 * 	^option[[:space:]]*(=[[:space:]]*value)?
 * and create it as a cmdline argument
 * 	--option[=value]
 * appending it to the linked list optbuf.
 */
static int add_option(FILE *filePointer, np_arg_list **optlst) {
	char *linebuf = NULL;
	bool done_reading = false;
	const size_t read_sz = 8;
	size_t linebuf_sz = 0;
	size_t read_pos = 0;

	/* read one line from the file */
	while (!done_reading) {
		/* grow if necessary */
		if (linebuf == NULL || read_pos + read_sz >= linebuf_sz) {
			linebuf_sz = linebuf_sz > 0 ? linebuf_sz << 1 : read_sz;
			linebuf = realloc(linebuf, linebuf_sz);
			if (linebuf == NULL) {
				die(STATE_UNKNOWN, _("malloc() failed!\n"));
			}
		}

		if (fgets(&linebuf[read_pos], (int)read_sz, filePointer) == NULL) {
			done_reading = true;
		} else {
			read_pos = strlen(linebuf);
			if (linebuf[read_pos - 1] == '\n') {
				linebuf[--read_pos] = '\0';
				done_reading = true;
			}
		}
	}

	char *lineend = &linebuf[read_pos];
	/* all that to read one line, isn't C fun? :) now comes the parsing :/ */

	/* skip leading whitespace */
	char *optptr = NULL;
	for (optptr = linebuf; optptr < lineend && isspace(*optptr); optptr++) {
	}

	/* continue to '=' or EOL, watching for spaces that might precede it */
	char *eqptr = NULL;
	char *optend = NULL;
	for (eqptr = optptr; eqptr < lineend && *eqptr != '='; eqptr++) {
		if (isspace(*eqptr) && optend == NULL) {
			optend = eqptr;
		} else {
			optend = NULL;
		}
	}

	if (optend == NULL) {
		optend = eqptr;
	}

	--optend;

	/* ^[[:space:]]*=foo is a syntax error */
	if (optptr == eqptr) {
		die(STATE_UNKNOWN, "%s\n", _("Config file error"));
	}

	/* continue from '=' to start of value or EOL */
	char *valptr = NULL;
	for (valptr = eqptr + 1; valptr < lineend && isspace(*valptr); valptr++) {
	}

	/* continue to the end of value */
	char *valend = NULL;
	for (valend = valptr; valend < lineend; valend++) {
	}

	--valend;

	/* finally trim off trailing spaces */
	for (; isspace(*valend); valend--) {
	}

	/* calculate the length of "--foo" */
	size_t opt_len = (size_t)(1 + optend - optptr);
	/* 1-character params needs only one dash */
	size_t cfg_len = 0;
	if (opt_len == 1) {
		cfg_len = 1 + (opt_len);
	} else {
		cfg_len = 2 + (opt_len);
	}

	size_t val_len = 0;
	bool equals = false;
	bool value = false;
	/* if valptr<lineend then we have to also allocate space for "=bar" */
	if (valptr < lineend) {
		equals = value = true;
		val_len = (size_t)(1 + valend - valptr);
		cfg_len += 1 + val_len;
	} else if (valptr == lineend) {
		/* if valptr==valend then we have "=" but no "bar" */
		equals = true;
		cfg_len += 1;
	}

	/* a line with no equal sign isn't valid */
	if (!equals) {
		die(STATE_UNKNOWN, "%s\n", _("Config file error"));
	}

	/* okay, now we have all the info we need, so we create a new np_arg_list
	 * element and set the argument...
	 */
	np_arg_list *optnew = malloc(sizeof(np_arg_list));
	optnew->next = NULL;

	read_pos = 0;
	optnew->arg = malloc(cfg_len + 1);
	/* 1-character params needs only one dash */
	if (opt_len == 1) {
		strncpy(&optnew->arg[read_pos], "-", 1);
		read_pos += 1;
	} else {
		strncpy(&optnew->arg[read_pos], "--", 2);
		read_pos += 2;
	}
	strncpy(&optnew->arg[read_pos], optptr, opt_len);
	read_pos += opt_len;
	if (value) {
		optnew->arg[read_pos++] = '=';
		strncpy(&optnew->arg[read_pos], valptr, val_len);
		read_pos += val_len;
	}
	optnew->arg[read_pos] = '\0';

	/* ...and put that to the end of the list */
	if (*optlst == NULL) {
		*optlst = optnew;
	} else {
		np_arg_list *opttmp = *optlst;
		while (opttmp->next != NULL) {
			opttmp = opttmp->next;
		}
		opttmp->next = optnew;
	}

	free(linebuf);
	return 0;
}

static char *default_file(void) {
	char *ini_file;

	if ((ini_file = getenv("MP_CONFIG_FILE")) != NULL ||
		(ini_file = default_file_in_path()) != NULL) {
		return ini_file;
	}

	for (char **p = default_ini_path_names; *p != NULL; p++) {
		if (access(*p, F_OK) == 0) {
			return *p;
		}
	}
	return NULL;
}

static char *default_file_in_path(void) {
	char *config_path;
	char **file;
	char *dir;
	char *ini_file;
	char *tokens;

	if ((config_path = getenv("NAGIOS_CONFIG_PATH")) == NULL) {
		return NULL;
	}
	/* shall we spit out a warning that NAGIOS_CONFIG_PATH is deprecated? */

	if ((tokens = strdup(config_path)) == NULL) {
		die(STATE_UNKNOWN, "%s\n", _("Insufficient Memory"));
	}
	for (dir = strtok(tokens, ":"); dir != NULL; dir = strtok(NULL, ":")) {
		for (file = default_ini_file_names; *file != NULL; file++) {
			if ((asprintf(&ini_file, "%s/%s", dir, *file)) < 0) {
				die(STATE_UNKNOWN, "%s\n", _("Insufficient Memory"));
			}
			if (access(ini_file, F_OK) == 0) {
				free(tokens);
				return ini_file;
			}
		}
	}
	free(tokens);
	return NULL;
}