/*
 * Copyright (c) 2014 Ian Sutton <ian@kremlin.cc>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include <unistd.h>
#include <fcntl.h>
#include <gio/gio.h>
#include "config.h"

static GKeyFile *config;
static int config_descr;
static gchar *data_dir;

/* NULL if key doesn't exist */
gchar *get_option(gchar *key, gchar *group) {

    if(!group)
        group = "default";

    return g_key_file_get_string(config, group, key, NULL);
}

/* false if key isn't already defined or value is invalid */
gboolean set_option(gchar *key, gchar *value, gchar *group) {

    if(!group)
        group = "default";

    if(!g_key_file_get_string(config, group, key, NULL))
        return FALSE;

    //TODO safteycheck value
    g_key_file_set_string(config, group, key, value);
    return TRUE;
}

/* initial load/check */
gboolean config_init() {

    /* config is already set */
    if(config)
        return TRUE;
    
    config = g_key_file_new();
    
    const gchar *config_path;
    GStatBuf *config_lstat;
    int config_lstat_ret;

    config_path = "/etc/systemd_compat.conf";
    config_lstat_ret = g_lstat(config_path, config_lstat);

    /* does conf exist? */
    if(config_lstat_ret) {

        /* if not, can we write to where it should be? */
        if(g_access("/etc/", W_OK)) {
            g_printf("%s\n", "no write permissions for /etc/! exiting..");
            return FALSE;
        }

        int config_descr; /*TODO add to descr array for sigints, etc */
        config_descr = g_open(config_path, O_CREAT, 644);

        gchar *posix_hostname;
        posix_hostname = g_malloc(HOST_NAME_MAX); 

        gethostname(posix_hostname, HOST_NAME_MAX);

        g_key_file_set_string(config, "hostnamed", "Hostname", posix_hostname);
        g_key_file_set_string(config, "hostnamed", "PrettyHostname", "");
        g_key_file_set_string(config, "hostnamed", "IconName", "Computer"); 
        g_key_file_set_string(config, "hostnamed", "ChassisType","laptop"); /*TODO set these correctly */

        if(!g_key_file_save_to_file(config, config_path, NULL)) {
            g_printf("failed to write config to %s!\n", config_path);
            g_free(posix_hostname);
            return FALSE;
        }

        g_printf("wrote config to %s\n", config_path);

        g_free(posix_hostname);

        return TRUE;

    /* it does exist, read it */
    } else {

        if(g_access(config_path, W_OK)) {
            g_printf("%s\n", "no write permissions for /etc/! exiting..");
            return FALSE;
        } else if(g_key_file_load_from_file(config, config_path, G_KEY_FILE_KEEP_COMMENTS, NULL))
            return TRUE;

        g_printf("could not read config at %s! exiting..", config_path);
        return FALSE;
    }
}

gboolean init_xml() {

    const gchar * const *data_dir_prefix;
    int xml_lstat_ret;
    GStatBuf *xml_lstat;

    data_dir_prefix = g_get_system_data_dirs();
    data_dir = g_strconcat(data_dir_prefix[0], "systemd_compat", NULL);
    
    xml_lstat_ret = g_lstat(data_dir, xml_lstat);

    /* does xml dir exist? */
    if(xml_lstat_ret) {

        /* if not, can we write to where it should be? */
        if(g_access(data_dir_prefix[0], W_OK)) {
            g_printf("no write permissions for %s! exiting...\n", data_dir_prefix[0]);
            return FALSE;
        }

        g_printf("creating xml data directory %s...\n", data_dir);

        if(g_mkdir(data_dir, 644) || g_access) {
            g_printf("failed to create dir %s...\n", data_dir);
            return FALSE;
        }

        /* read in xml files from conf/ */
        if(!read_xml_from_installconf()) {
            g_printf("failed to read xml configs in conf/...\n");
            return FALSE;
        }

        /* write our configs to system data dir */
        if(!populate_xml_data_dir()) {
            g_printf("failed to write xml configs to %s...\n", data_dir);
            return FALSE;
        }

        /* get descriptors from freshly-installed configs */
        if(!set_xml_descriptors()) {
            g_printf("failed to fopen xml configs...\n");
            return FALSE;
        }

        return TRUE;
    
    /* it does exist, read it */
    } else {

        if(!set_xml_descriptors()) {
            g_printf("failed to fopen xml configs...\n");
            return FALSE;
        }

        return TRUE;
    }
}

void clean_config() {

    //TODO g_ptr_array all of this
    g_free(config);
    g_free(data_dir);
    g_close(config_descr, NULL);
}