/*****************************************************************************
 *
 * Library for check_disk
 *
 * License: GPL
 * Copyright (c) 1999-2024 Monitoring Plugins Development Team
 *
 * Description:
 *
 * This file contains utilities for check_disk. These are tested by libtap
 *
 *
 * 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 "utils_disk.h"
#include "gl/fsusage.h"
#include <string.h>

void np_add_name(struct name_list **list, const char *name) {
	struct name_list *new_entry;
	new_entry = (struct name_list *)malloc(sizeof *new_entry);
	new_entry->name = (char *)name;
	new_entry->next = *list;
	*list = new_entry;
}

/* @brief Initialises a new regex at the begin of list via regcomp(3)
 *
 * @details if the regex fails to compile the error code of regcomp(3) is returned
 * 					and list is not modified, otherwise list is modified to point to the new
 * 					element
 * @param list Pointer to a linked list of regex_list elements
 * @param regex the string containing the regex which should be inserted into the list
 * @param clags the cflags parameter for regcomp(3)
 */
int np_add_regex(struct regex_list **list, const char *regex, int cflags) {
	struct regex_list *new_entry = (struct regex_list *)malloc(sizeof *new_entry);

	if (new_entry == NULL) {
		die(STATE_UNKNOWN, _("Cannot allocate memory: %s"), strerror(errno));
	}

	int regcomp_result = regcomp(&new_entry->regex, regex, cflags);

	if (!regcomp_result) {
		// regcomp succeeded
		new_entry->next = *list;
		*list = new_entry;

		return 0;
	} else {
		// regcomp failed
		free(new_entry);

		return regcomp_result;
	}
}

/* Initialises a new parameter at the end of list */
struct parameter_list *np_add_parameter(struct parameter_list **list, const char *name) {
	struct parameter_list *current = *list;
	struct parameter_list *new_path;
	new_path = (struct parameter_list *)malloc(sizeof *new_path);
	new_path->name = (char *)malloc(strlen(name) + 1);
	new_path->best_match = NULL;
	new_path->name_next = NULL;
	new_path->name_prev = NULL;
	new_path->freespace_bytes = NULL;
	new_path->freespace_units = NULL;
	new_path->freespace_percent = NULL;
	new_path->usedspace_bytes = NULL;
	new_path->usedspace_units = NULL;
	new_path->usedspace_percent = NULL;
	new_path->usedinodes_percent = NULL;
	new_path->freeinodes_percent = NULL;
	new_path->group = NULL;
	new_path->dfree_pct = -1;
	new_path->dused_pct = -1;
	new_path->total = 0;
	new_path->available = 0;
	new_path->available_to_root = 0;
	new_path->used = 0;
	new_path->dused_units = 0;
	new_path->dfree_units = 0;
	new_path->dtotal_units = 0;
	new_path->inodes_total = 0;
	new_path->inodes_free = 0;
	new_path->inodes_free_to_root = 0;
	new_path->inodes_used = 0;
	new_path->dused_inodes_percent = 0;
	new_path->dfree_inodes_percent = 0;

	strcpy(new_path->name, name);

	if (current == NULL) {
		*list = new_path;
		new_path->name_prev = NULL;
	} else {
		while (current->name_next) {
			current = current->name_next;
		}
		current->name_next = new_path;
		new_path->name_prev = current;
	}
	return new_path;
}

/* Delete a given parameter from list and return pointer to next element*/
struct parameter_list *np_del_parameter(struct parameter_list *item, struct parameter_list *prev) {
	if (item == NULL) {
		return NULL;
	}
	struct parameter_list *next;

	if (item->name_next)
		next = item->name_next;
	else
		next = NULL;

	if (next)
		next->name_prev = prev;

	if (prev)
		prev->name_next = next;

	if (item->name) {
		free(item->name);
	}
	free(item);

	return next;
}

/* returns a pointer to the struct found in the list */
struct parameter_list *np_find_parameter(struct parameter_list *list, const char *name) {
	struct parameter_list *temp_list;
	for (temp_list = list; temp_list; temp_list = temp_list->name_next) {
		if (!strcmp(temp_list->name, name))
			return temp_list;
	}

	return NULL;
}

void np_set_best_match(struct parameter_list *desired, struct mount_entry *mount_list, bool exact) {
	struct parameter_list *d;
	for (d = desired; d; d = d->name_next) {
		if (!d->best_match) {
			struct mount_entry *me;
			size_t name_len = strlen(d->name);
			size_t best_match_len = 0;
			struct mount_entry *best_match = NULL;
			struct fs_usage fsp;

			/* set best match if path name exactly matches a mounted device name */
			for (me = mount_list; me; me = me->me_next) {
				if (strcmp(me->me_devname, d->name) == 0) {
					if (get_fs_usage(me->me_mountdir, me->me_devname, &fsp) >= 0) {
						best_match = me;
					}
				}
			}

			/* set best match by directory name if no match was found by devname */
			if (!best_match) {
				for (me = mount_list; me; me = me->me_next) {
					size_t len = strlen(me->me_mountdir);
					if ((!exact &&
						 (best_match_len <= len && len <= name_len && (len == 1 || strncmp(me->me_mountdir, d->name, len) == 0))) ||
						(exact && strcmp(me->me_mountdir, d->name) == 0)) {
						if (get_fs_usage(me->me_mountdir, me->me_devname, &fsp) >= 0) {
							best_match = me;
							best_match_len = len;
						}
					}
				}
			}

			if (best_match) {
				d->best_match = best_match;
			} else {
				d->best_match = NULL; /* Not sure why this is needed as it should be null on initialisation */
			}
		}
	}
}

/* Returns true if name is in list */
bool np_find_name(struct name_list *list, const char *name) {
	const struct name_list *n;

	if (list == NULL || name == NULL) {
		return false;
	}
	for (n = list; n; n = n->next) {
		if (!strcmp(name, n->name)) {
			return true;
		}
	}
	return false;
}

/* Returns true if name is in list */
bool np_find_regmatch(struct regex_list *list, const char *name) {
	int len;
	regmatch_t m;

	if (name == NULL) {
		return false;
	}

	len = strlen(name);

	for (; list; list = list->next) {
		/* Emulate a full match as if surrounded with ^( )$
		   by checking whether the match spans the whole name */
		if (!regexec(&list->regex, name, 1, &m, 0) && m.rm_so == 0 && m.rm_eo == len) {
			return true;
		}
	}

	return false;
}

bool np_seen_name(struct name_list *list, const char *name) {
	const struct name_list *s;
	for (s = list; s; s = s->next) {
		if (!strcmp(s->name, name)) {
			return true;
		}
	}
	return false;
}

bool np_regex_match_mount_entry(struct mount_entry *me, regex_t *re) {
	if (regexec(re, me->me_devname, (size_t)0, NULL, 0) == 0 || regexec(re, me->me_mountdir, (size_t)0, NULL, 0) == 0) {
		return true;
	}
	return false;
}