#include <string.h>
#include <errno.h>
#include <stdlib.h>
#include <unistd.h>
#include <uci.h>

#include "log.h"
#include "config.h"

bool set_config_value(const char *conf_dir_name,
			const char *conf_file_name,
			const char *section_type,
			const char *section_name,
			const char *key,
			const char *value) {
	struct uci_context	*ctx;
	struct uci_package 	*pkg;
	struct uci_section 	*sct;
	struct uci_section 	*tmp_sct;
	struct uci_option	*opt;
	int			err_flg;
	char			*fname;
	int			b_count;
	bool			save;
	struct uci_element	*elem;
	struct uci_ptr		ptr;
	FILE			*fp;
	bool			ret_val;

	ret_val	= false;
	save	= false;
	if ((conf_dir_name != NULL) &&
	    (conf_file_name != NULL) &&
	    (section_type != NULL) &&
	    (section_name != NULL) &&
	    (key != NULL) &&
	    (value != NULL)) {
		b_count	= strlen(conf_dir_name) + strlen(conf_file_name) + 10;
		fname	= (char *)calloc(1, b_count);
		if (fname != NULL) {
			strncpy(fname, conf_dir_name, b_count);
			strncat(fname, "/", 1);
			strncat(fname, conf_file_name, strlen(conf_file_name) + 1);
			ctx	= uci_alloc_context();
			if (ctx != NULL) {
				sct	= NULL;
				uci_set_confdir(ctx, conf_dir_name);
				if (access(fname, W_OK) != 0) {
					if (access(fname, F_OK) != 0) {
						fp	= fopen(fname, "w+");
						fclose(fp);
					}
				}
				if (access(fname, W_OK) == 0) {
					err_flg	= uci_load(ctx, fname, &pkg);
					uci_foreach_element(&pkg->sections, elem) {
						tmp_sct	= uci_to_section(elem);
						if (strcmp(tmp_sct->type, section_type) == 0) {
							sct	= tmp_sct;
							break;
						}
					}
					//sct	= uci_lookup_section(ctx, pkg, "service");
					if (sct == NULL) {
						log_debug("Creating configuration section %s to configuration file: %s\n", section_name, fname);
						err_flg	= uci_add_named_section(ctx, pkg, section_type, section_name, &sct);
					}
					if (err_flg == 0) {
						opt	= uci_lookup_option(ctx, sct, key);
						if (opt != NULL) {
							memset(&ptr, 0, sizeof(ptr));
							ptr.package 	= pkg->e.name;
							ptr.section 	= sct->e.name;
							ptr.option	= key;

							if (uci_lookup_ptr(ctx, &ptr, NULL, false) == UCI_OK) {
								ptr.value	= strdup(value);
								uci_set(ctx, &ptr);
								save	= true;
							}
						}
						else {
							opt	= uci_alloc_option(sct, key, value);
							save	= true;
						}
						if (save == true) {
							uci_save(ctx, pkg);
						}
						uci_free_context(ctx);
						ret_val	= true;
					}
					else {
						log_error("Could not write to configuration file: %s\n. Could not create section %s.", fname, section_name);
					}
				}
				else {
					log_error("Could not write to configuration file: %s\n. File does not exist or is not writable.", fname);
				}
			}
			free(fname);
		}
		else {
			log_error("Could not change config value, out of memory");
		}
	}
	else {
		log_error("Could not change config value, invalid parameters");
	}
	return ret_val;
}