#include <stdlib.h>
#include <stdbool.h>
#include "post.h"
#include "rtclient/user.h"

typedef struct rtclient_user rtclient_user;

void rtclient_user_new(const char *name
		, const char *password
		, const char *email_address
		, const char *real_name
		, const char *nick_name
		, const char *organization
		, const char *address1
		, const char *address2
		, const char *city
		, const char *state
		, const char *zip
		, const char *country
		, const char *home_phone
		, const char *work_phone
		, const char *mobile_phone
		, const char *pager_phone
		, const char *contact_info
		, const char *comments
		, const char *signature
		, const char *gecos
		, enum rtclient_user_lang lang
		, enum rtclient_user_timezone timezone
		, bool disabled
		, bool privileged)
{
	post("REST/1.0/user/new", (const char *[]){
			name, "Name"
			, password, "Password"
			, email_address, "EmailAddress"
			, real_name, "RealName"
			, nick_name, "NickName"
			, organization, "Organization"
			, address1, "Address1"
			, address2, "Address2"
			, city, "City"
			, state, "State"
			, zip, "Zip"
			, country, "Country"
			, home_phone, "HomePhone"
			, work_phone, "WorkPhone"
			, mobile_phone, "MobilePhone"
			, pager_phone, "PagerPhone"
			, contact_info, "ContactInfo"
			, comments, "Comments"
			, signature, "Signature"
			, gecos, "Gecos"
	}, 40);
}

static size_t show_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);

		rtclient_user **userptr = (rtclient_user **)writedata;
		*userptr = malloc(sizeof(rtclient_user));
		rtclient_user *user = *userptr;
		user->password = NULL;
		user->email_address = NULL;
		user->real_name = NULL;
		user->nick_name = NULL;
		user->organization = NULL;
		user->address1 = NULL;
		user->address2 = NULL;
		user->city = NULL;
		user->state = NULL;
		user->zip = NULL;
		user->country = NULL;
		user->home_phone = NULL;
		user->work_phone = NULL;
		user->mobile_phone = NULL;
		user->pager_phone = NULL;
		user->contact_info = NULL;
		user->comments = NULL;
		user->signature = NULL;
		user->gecos = NULL;
		user->lang = RTCLIENT_USER_LANG_NONE;
		user->timezone = RTCLIENT_USER_TIMEZONE_NONE;
		user->privileged = false;
		user->disabled = true;

		do {
			char *tokensaveptr = NULL;
			char *token = strtok_r(line, ":", &tokensaveptr);
			if (!strcmp(token, "id")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				token += 6;
				user->id = atoi(token);
			} else if (!strcmp(token, "Name")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->name = malloc(strlen(token));
				strcpy(user->name, ++token);
			} else if (!strcmp(token, "EmailAddress")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->email_address = malloc(strlen(token));
				strcpy(user->email_address, ++token);
			} else if (!strcmp(token, "RealName")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->real_name = malloc(strlen(token));
				strcpy(user->real_name, ++token);
			} else if (!strcmp(token, "NickName")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->nick_name = malloc(strlen(token));
				strcpy(user->nick_name, ++token);
			} else if (!strcmp(token, "Gecos")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->gecos = malloc(strlen(token));
				strcpy(user->gecos, ++token);
			} else if (!strcmp(token, "Organization")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->organization = malloc(strlen(token));
				strcpy(user->organization, ++token);
			} else if (!strcmp(token, "Address1")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->address1 = malloc(strlen(token));
				strcpy(user->address1, ++token);
			} else if (!strcmp(token, "Address2")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->address2 = malloc(strlen(token));
				strcpy(user->address2, ++token);
			} else if (!strcmp(token, "City")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->city = malloc(strlen(token));
				strcpy(user->city, ++token);
			} else if (!strcmp(token, "State")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->state = malloc(strlen(token));
				strcpy(user->state, ++token);
			} else if (!strcmp(token, "Zip")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->zip = malloc(strlen(token));
				strcpy(user->zip, ++token);
			} else if (!strcmp(token, "Country")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->country = malloc(strlen(token));
				strcpy(user->country, ++token);
			} else if (!strcmp(token, "HomePhone")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->home_phone = malloc(strlen(token));
				strcpy(user->home_phone, ++token);
			} else if (!strcmp(token, "WorkPhone")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->work_phone = malloc(strlen(token));
				strcpy(user->work_phone, ++token);
			} else if (!strcmp(token, "MobilePhone")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->mobile_phone = malloc(strlen(token));
				strcpy(user->mobile_phone, ++token);
			} else if (!strcmp(token, "PagerPhone")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->pager_phone = malloc(strlen(token));
				strcpy(user->pager_phone, ++token);
			} else if (!strcmp(token, "ContactInfo")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->contact_info = malloc(strlen(token));
				strcpy(user->contact_info, ++token);
			} else if (!strcmp(token, "Comments")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->comments = malloc(strlen(token));
				strcpy(user->comments, ++token);
			} else if (!strcmp(token, "Signature")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->signature = malloc(strlen(token));
				strcpy(user->signature, ++token);
			} else if (!strcmp(token, "Privileged")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->privileged = (bool)atoi(++token);
			} else if (!strcmp(token, "Disabled")) {
				token = strtok_r(NULL, ":", &tokensaveptr);
				user->disabled = (bool)atoi(++token);
			}
		} while ((line = strtok_r(NULL, "\n", &linesaveptr)));
	} 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_user_showid(rtclient_user **userptr, unsigned int id)
{
	request(show_handler, (void *)userptr, NULL, "%s%u", "REST/1.0/user/", id);
}

void rtclient_user_showname(rtclient_user **userptr, const char *name)
{
	request(show_handler, (void *)userptr, NULL, "%s%s", "REST/1.0/user/"
			, name);
}

void rtclient_user_free(rtclient_user *user)
{
	if (user->gecos)
		free(user->gecos);
	if (user->signature)
		free(user->signature);
	if (user->comments)
		free(user->comments);
	if (user->contact_info)
		free(user->contact_info);
	if (user->pager_phone)
		free(user->pager_phone);
	if (user->mobile_phone)
		free(user->mobile_phone);
	if (user->work_phone)
		free(user->work_phone);
	if (user->home_phone)
		free(user->home_phone);
	if (user->country)
		free(user->country);
	if (user->zip)
		free(user->zip);
	if (user->state)
		free(user->state);
	if (user->city)
		free(user->city);
	if (user->address2)
		free(user->address2);
	if (user->address1)
		free(user->address1);
	if (user->organization)
		free(user->organization);
	if (user->nick_name)
		free(user->nick_name);
	if (user->real_name)
		free(user->real_name);
	if (user->email_address)
		free(user->email_address);
	if (user->password)
		free(user->password);
	if (user->name)
		free(user->name);
	free(user);
	user = NULL;
}