#include <stdlib.h>
#include "post.h"
#include "rtclient/ticket.h"

typedef struct rtclient_ticket rtclient_ticket;
typedef struct rtclient_ticket_history ticket_history;
typedef struct rtclient_ticket_history_list history_list;
typedef struct rtclient_ticket_history_attachment history_attachment;
typedef struct rtclient_ticket_history_attachment_list attachment_list;

void rtclient_ticket_new(const char *queue
			, const char *requestor
			, const char *subject
			, const char *cc
			, const char *admin_cc
			, const char *owner
			, const char *status
			, const char *priority
			, const char *initial_priority
			, const char *final_priority
			, const char *time_estimated
			, const char *starts
			, const char *due
			, const char *text)
{
	post("REST/1.0/ticket/new", (const char *[]){
			"ticket/new", "id"
			, queue, "Queue"
			, requestor, "Requestor"
			, subject, "Subject"
			, cc, "Cc"
			, admin_cc, "AdminCc"
			, owner, "Owner"
			, status, "Status"
			, priority, "Priority"
			, initial_priority, "InitialPriority"
			, final_priority, "FinalPriority"
			, time_estimated, "TimeEstimated"
			, starts, "Starts"
			, due, "Due"
			, text, "Text"
			}, 28);
}

static size_t history_handler(void *contents, size_t size, size_t nmemb
		, void *writedata)
{
	size_t realsize = size * nmemb;
	char response[realsize + 1];
	memcpy(response, contents, realsize);
	response[realsize] = '\0';

	char *linesaveptr = NULL;
	char *line = strtok_r(response, "\n", &linesaveptr);
	if (strstr(line, "200 Ok")) {

		line = strtok_r(NULL, "\n", &linesaveptr);
		char *lengthstr = strtok(line, "/");
		size_t length = atoi(&lengthstr[2]);
		history_list **listptr = (history_list **)writedata;
		*listptr = malloc(sizeof(history_list)
				+ length * sizeof(ticket_history));
		history_list *list = *listptr;
		list->length = length;

		for (size_t i = 0; i < length; i++) {
			line = strtok_r(NULL, "\n", &linesaveptr);
			list->histories[i] = malloc(sizeof(ticket_history));
			ticket_history *ticket_history = list->histories[i];

			char *tokensaveptr = NULL;
			char *token = strtok_r(line, ":", &tokensaveptr);
			ticket_history->id = atoi(token);

			ticket_history->ticket = 0;
			ticket_history->time_taken = 0;
			ticket_history->type = RTCLIENT_TICKET_HISTORY_TYPE_NONE;
			ticket_history->field = NULL;
			ticket_history->old_value = NULL;
			ticket_history->new_value = NULL;
			ticket_history->data = NULL;

			token = strtok_r(NULL, ":", &tokensaveptr);
			ticket_history->description = malloc(strlen(token));
			strcpy(ticket_history->description, ++token);

			ticket_history->content = NULL;
			ticket_history->creator = NULL;
			ticket_history->created = NULL;
			ticket_history->attachments
				= malloc(sizeof(attachment_list));
			ticket_history->attachments->length = 0;
		}
	} else {
#ifdef DEBUG
#ifdef ANDROID
		__android_log_print(ANDROID_LOG_INFO, "librtclient"
				, "%s response status:\n%s", __func__, line);
#else
		printf("%s response status:\n%s\n", __func__, line);
#endif // ANDROID
#endif // DEBUG
	}

	return realsize;
}

static size_t history_l_handler(void *contents, size_t size, size_t nmemb
		, void *writedata)
{
	size_t realsize = size * nmemb;
	char response[realsize + 1];
	memcpy(response, contents, realsize);
	response[realsize] = '\0';

	char *linesaveptr = NULL;
	char *line = strtok_r(response, "\n", &linesaveptr);
	if (strstr(line, "200 Ok")) {
		history_list **listptr = (history_list **)writedata;
		history_list *list = *listptr;

		for (size_t i = 0; i < list->length; i++) {
			ticket_history *ticket_history = list->histories[i];
			strtok_r(NULL, "\n", &linesaveptr);
			line = strtok_r(NULL, "\n", &linesaveptr);
			line = strtok_r(NULL, "\n", &linesaveptr);

			char *tokensaveptr = NULL;
			strtok_r(line, ":", &tokensaveptr);
			char *token = strtok_r(NULL, ":", &tokensaveptr);
			ticket_history->ticket = atoi(++token);
			line = strtok_r(NULL, "\n", &linesaveptr);

			strtok_r(line, ":", &tokensaveptr);
			token = strtok_r(NULL, ":", &tokensaveptr);
			ticket_history->time_taken = atoi(++token);
			line = strtok_r(NULL, "\n", &linesaveptr);

			strtok_r(line, ":", &tokensaveptr);
			token = strtok_r(NULL, ":", &tokensaveptr);
			enum rtclient_ticket_history_type type
				= ticket_history->type;
			if (!strcmp(++token, "AddLink"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_ADD_LINK;
			else if (!strcmp(token, "AddMember"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_ADD_MEMBER;
			else if (!strcmp(token, "AddMembership"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_ADD_MEMBERSHIP;
			else if (!strcmp(token, "AddReminder"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_ADD_REMINDER;
			else if (!strcmp(token, "AddWatcher"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_ADD_WATCHER;
			else if (!strcmp(token, "Comment"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_COMMENT;
			else if (!strcmp(token, "CommentEmailRecord"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_COMMENT_EMAIL_RECORD;
			else if (!strcmp(token, "Correspond"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_CORRESPOND;
			else if (!strcmp(token, "Create"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_CREATE;
			else if (!strcmp(token, "DelWatcher"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_DEL_WATCHER;
			else if (!strcmp(token, "Disabled"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_DISABLED;
			else if (!strcmp(token, "EmailRecord"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_EMAIL_RECORD;
			else if (!strcmp(token, "ResolveReminder"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_RESOLVE_REMINDER;
			else if (!strcmp(token, "Set"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_SET;
			else if (!strcmp(token, "SetWatcher"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_SET_WATCHER;
			else if (!strcmp(token, "Status"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_STATUS;
			else if (!strcmp(token, "SystemError"))
				type = RTCLIENT_TICKET_HISTORY_TYPE_SYSTEM_ERROR;
			line = strtok_r(NULL, "\n", &linesaveptr);

			strtok_r(line, ":", &tokensaveptr);
			token = strtok_r(NULL, ":", &tokensaveptr);
			if (token && strcmp(token, "")) {
				ticket_history->field = malloc(strlen(token));
				strcpy(ticket_history->field, ++token);
			}
			line = strtok_r(NULL, "\n", &linesaveptr);

			strtok_r(line, ":", &tokensaveptr);
			token = strtok_r(NULL, ":", &tokensaveptr);
			if (token && strcmp(token, "")) {
				ticket_history->old_value = malloc(strlen(token));
				strcpy(ticket_history->old_value, ++token);
			}
			line = strtok_r(NULL, "\n", &linesaveptr);

			strtok_r(line, ":", &tokensaveptr);
			token = strtok_r(NULL, ":", &tokensaveptr);
			if (token && strcmp(token, "")) {
				ticket_history->new_value = malloc(strlen(token));
				strcpy(ticket_history->new_value, ++token);
			}
			line = strtok_r(NULL, "\n", &linesaveptr);

			strtok_r(line, ":", &tokensaveptr);
			token = strtok_r(NULL, ":", &tokensaveptr);
			if (token && strcmp(token, "")) {
				ticket_history->data = malloc(strlen(token));
				strcpy(ticket_history->data, ++token);
			}
			line = strtok_r(NULL, "\n", &linesaveptr);

			line = strtok_r(NULL, "\n", &linesaveptr);

			strtok_r(line, ":", &tokensaveptr);
			token = strtok_r(NULL, ":", &tokensaveptr);
			ticket_history->content = malloc(strlen(token));
			char *content = ticket_history->content;
			strcpy(content, ++token);
			line = strtok_r(NULL, "\n", &linesaveptr);
			while (strncmp(line, "Creator", 7)) {
				ticket_history->content = realloc(content
						, strlen(content)
						+ strlen(line) + 2);
				content = ticket_history->content;
				sprintf(content, "%s\n%s", content, line);
				line = strtok_r(NULL, "\n", &linesaveptr);
			}

			strtok_r(line, ":", &tokensaveptr);
			token = strtok_r(NULL, ":", &tokensaveptr);
			ticket_history->creator = malloc(strlen(token));
			strcpy(ticket_history->creator, ++token);
			line = strtok_r(NULL, "\n", &linesaveptr);

			strtok_r(line, ": -", &tokensaveptr);
			ticket_history->created = malloc(sizeof(struct tm));
			struct tm *created = ticket_history->created;
			created->tm_wday = 0;
			created->tm_yday = 0;
			created->tm_isdst = -1;
			token = strtok_r(NULL, ": -", &tokensaveptr);
			created->tm_year = atoi(token) - 1900;
			token = strtok_r(NULL, ": -", &tokensaveptr);
			created->tm_mon = atoi(token) - 1;
			token = strtok_r(NULL, ": -", &tokensaveptr);
			created->tm_mday = atoi(token);
			token = strtok_r(NULL, ": -", &tokensaveptr);
			created->tm_hour = atoi(token);
			token = strtok_r(NULL, ": -", &tokensaveptr);
			created->tm_min = atoi(token);
			token = strtok_r(NULL, ": -", &tokensaveptr);
			created->tm_sec = atoi(token);
			line = strtok_r(NULL, "\n", &linesaveptr);

			line = strtok_r(NULL, "\n", &linesaveptr);
			token = strtok_r(line, ": ()", &tokensaveptr);
			if (!token)
				break;

			size_t i = 0;
			while (strcmp(line, "--")) {
				ticket_history->attachments
					= realloc(ticket_history->attachments
							, sizeof
							(attachment_list)
							+ i + 1
							* sizeof
							(history_attachment));
				attachment_list *list = ticket_history->attachments;
				list->length++;
				list->attachments[i]
					= malloc(sizeof(history_attachment));
				history_attachment *attachment
					= list->attachments[i++];

				attachment->id = atoi(token);
				token = strtok_r(NULL, ": ()", &tokensaveptr);

				if (!strcmp(token, "untitled"))
					attachment->file_name = NULL;
				else {
					attachment->file_name
						= malloc(strlen(token) + 1);
					strcpy(attachment->file_name, token);
				}
				token = strtok_r(NULL, ": ()", &tokensaveptr);

				size_t length = strlen(token);
				char size[length];
				strncpy(size, token, length - 1);
				attachment->size = atoi(size);

				line = strtok_r(NULL, "\n", &linesaveptr);
				token = strtok_r(line, ": ()", &tokensaveptr);
			}
		}
	} else {
#ifdef DEBUG
#ifdef ANDROID
		__android_log_print(ANDROID_LOG_INFO, "librtclient"
				, "%s response status:\n%s", __func__, line);
#else
		printf("%s response status:\n%s\n", __func__, line);
#endif // ANDROID
#endif // DEBUG
	}

	return realsize;
}

void rtclient_ticket_history(history_list **listptr
		, unsigned int id, bool long_format)
{
	request(history_handler, (void *)listptr, NULL, "%s%u%s"
			, "REST/1.0/ticket/", id, "/history");
	if (long_format)
		request(history_l_handler, (void *)listptr, NULL, "%s%u%s"
				, "REST/1.0/ticket/", id, "/history?format=l");
}

void rtclient_ticket_history_free(ticket_history *history)
{
	attachment_list *list = history->attachments;
	for (size_t i = 0; i < list->length; i++) {
		history_attachment *attachment = list->attachments[i];
		if (attachment->file_name)
			free(attachment->file_name);
		free(attachment);
	}
	free(list);
	free(history->created);
	free(history->creator);
	free(history->content);
	free(history->description);
	if (history->data)
		free(history->data);
	if (history->new_value)
		free(history->new_value);
	if (history->old_value)
		free(history->old_value);
	if (history->field)
		free(history->field);
	free(history);
	history = NULL;
}

void rtclient_ticket_history_list_free(history_list *list)
{
	for (size_t i = 0; i < list->length; i++)
		rtclient_ticket_history_free(list->histories[i]);
	free(list);
	list = NULL;
}