#include <arpa/inet.h>

#include <cJSON.h>
#include <macros.h>
#include <command.h>
#include <constants.h>
#include <endpoints/api_v1_controllers.h>
#include <logger.h>
#include <models/controller.h>
#include <models/tag.h>

void
api_v1_controllers_STR_GET(struct mg_connection *nc, struct http_message *hm, endpoint_args_t *args, endpoint_response_t *response)
{
    (void)hm;
    (void)nc;

    uuid_t target_uid;
    if(uuid_parse(args[0].value.v_str, target_uid))
    {
        LOGGER_DEBUG("failed to unparse uid\n");

        static const char content[] = "given id was invalid";
        endpoint_response_text(response, 400, content, STRLEN(content));
        return;
    }

    controller_t* controller = controller_get_by_uid(target_uid);

    if(!controller)
    {
        LOGGER_DEBUG("could not find a controller for uid '%s'\n", args[0].value.v_str);

        static const char content[] = "no controller for id found";
        endpoint_response_text(response, 404, content, STRLEN(content));
        return;
    }
    LOGGER_DEBUG("returning controller for uid '%s'\n", args[0].value.v_str);

    cJSON *json = controller_to_json(controller);

    endpoint_response_json(response, 200, json);
    cJSON_Delete(json);
    controller_free(controller);
}

void
api_v1_controllers_STR_PUT(struct mg_connection *nc, struct http_message *hm, endpoint_args_t *args, endpoint_response_t *response)
{
    (void)hm;
    (void)nc;

    uuid_t target_uid;
    if(uuid_parse(args[0].value.v_str, target_uid))
    {
        LOGGER_DEBUG("failed to unparse uid\n");

        static const char content[] = "given id was invalid";
        endpoint_response_text(response, 400, content, STRLEN(content));
        return;
    }

    controller_t* controller = controller_get_by_uid(target_uid);

    if(!controller)
    {
        LOGGER_DEBUG("could not find a controller for uid '%s'\n", args[0].value.v_str);

        static const char content[] = "no controller for id found";
        endpoint_response_text(response, 404, content, STRLEN(content));
        return;
    }
    LOGGER_DEBUG("starting overwrite for controller %s\n", args[0].value.v_str);

    cJSON *json = cJSON_ParseWithLength(hm->body.p, hm->body.len);

    if(json == NULL)
    {
        static const char content[] = "no valid json was supplied";
        endpoint_response_text(response, 400, content, STRLEN(content));
        controller_free(controller);
        return;
    }

    cJSON *json_name = cJSON_GetObjectItemCaseSensitive(json, "name");
    if(json_name)
    {
        if(cJSON_IsString(json_name) && json_name->valuestring)
        {
            strncpy(controller->name, json_name->valuestring, MAX_NAME_LENGTH);
            controller->name[MAX_NAME_LENGTH] = '\0';
            LOGGER_DEBUG("new controller name: %s\n", controller->name);
        }
        else
        {
            static const char content[] = "the given name is no valid string";
            endpoint_response_text(response, 400, content, STRLEN(content));
            cJSON_Delete(json);
            controller_free(controller);
            return;
        }
    }

    cJSON *json_ip = cJSON_GetObjectItemCaseSensitive(json, "ip");
    if(json_ip)
    {
        if(cJSON_IsString(json_ip) && json_ip->valuestring)
        {
            unsigned char buf[sizeof(struct in_addr)];
            if(inet_pton(AF_INET, json_ip->valuestring, buf))
            {
                strncpy(controller->ip, json_ip->valuestring, IP_LENGTH);
                controller->ip[IP_LENGTH] = '\0';
                LOGGER_DEBUG("new controller ip: %s\n", controller->ip);
            }
            else
            {
                static const char content[] = "the given ip address is no valid IPv4 address";
                endpoint_response_text(response, 400, content, STRLEN(content));
                cJSON_Delete(json);
                controller_free(controller);
                return;
            }
        }
        else
        {
            static const char content[] = "the given ip address is no valid string";
            endpoint_response_text(response, 400, content, STRLEN(content));
            cJSON_Delete(json);
            controller_free(controller);
            return;
        }
    }

    if(controller_save(controller))
    {
        LOGGER_ERR("failed to save controller\n");
        controller_free(controller);
        cJSON_Delete(json);

        static const char content[] = "failed to save controller to database";
        endpoint_response_text(response, 500, content, STRLEN(content));
        return;
    }
    LOGGER_DEBUG("saved controller %s\n", args[0].value.v_str);

    cJSON_Delete(json);
    json = controller_to_json(controller);

    command_controller_name_set(controller);

    endpoint_response_json(response, 200, json);
    cJSON_Delete(json);
    controller_free(controller);
}

void
api_v1_controllers_STR_DELETE(struct mg_connection *nc, struct http_message *hm, endpoint_args_t *args, endpoint_response_t *response)
{
    (void)hm;
    (void)nc;

    const char *target_uid_str = args[0].value.v_str;

    uuid_t target_uid;
    if(uuid_parse(target_uid_str, target_uid))
    {
        LOGGER_DEBUG("failed to unparse uid\n");

        static const char content[] = "given id was invalid";
        endpoint_response_text(response, 400, content, STRLEN(content));
        return;
    }

    controller_t* controller = controller_get_by_uid(target_uid);

    if(!controller)
    {
        LOGGER_DEBUG("could not find a controller for uid '%s'\n", args[0].value.v_str);

        static const char content[] = "no controller for id found";
        endpoint_response_text(response, 404, content, STRLEN(content));
        return;
    }

    if(controller_remove(controller))
    {
        LOGGER_ERR("failed to remove controller from database\n");

        static const char content[] = "failed to remove controller from database";
        endpoint_response_text(response, 500, content, STRLEN(content));
    }
    else
    {
        LOGGER_DEBUG("deleted controller %s\n", args[0].value.v_str);
        endpoint_response_text(response, 200, "", 0);
    }
    controller_free(controller);
    return;
}