/*
Cgi/template routines for configuring non-wifi settings
*/

#include <esp8266.h>
#include <httpdespfs.h>
#include "cgi_term_cfg.h"
#include "persist.h"
#include "screen.h"
#include "helpers.h"

#define SET_REDIR_SUC "/cfg/term"
#define SET_REDIR_ERR SET_REDIR_SUC"?err="

/**
 * Universal CGI endpoint to set Terminal params.
 */
httpd_cgi_state ICACHE_FLASH_ATTR
cgiTermCfgSetParams(HttpdConnData *connData)
{
	char buff[50];
	char redir_url_buf[100];
	int32 n, w, h;
	bool notify_screen_content = 0, notify_screen_labels = 0;

	bool shall_clear_screen = false;

	char *redir_url = redir_url_buf;
	redir_url += sprintf(redir_url, SET_REDIR_ERR);
	// we'll test if anything was printed by looking for \0 in failed_keys_buf

	if (connData->conn == NULL) {
		//Connection aborted. Clean up.
		return HTTPD_CGI_DONE;
	}

	// width and height must always go together so we can do max size validation
	if (GET_ARG("term_width")) {
		dbg("Default screen width: %s", buff);
		w = atoi(buff);
		if (w > 1) {
			if (GET_ARG("term_height")) {
				dbg("Default screen height: %s", buff);
				h = atoi(buff);
				if (h > 1) {
					if (w * h <= MAX_SCREEN_SIZE) {
						if (termconf->width != w || termconf->height != h) {
							termconf->width = w;
							termconf->height = h;
							shall_clear_screen = true; // this causes a notify
						}
					} else {
						warn("Bad dimensions: %d x %d (total %d)", w, h, w*h);
						redir_url += sprintf(redir_url, "term_width,term_height,");
					}
				} else {
					warn("Bad height: \"%s\"", buff);
					redir_url += sprintf(redir_url, "term_width,");
				}
			} else {
				warn("Missing height arg!");
				// this wont happen normally when the form is used
				redir_url += sprintf(redir_url, "term_width,term_height,");
			}
		} else {
			warn("Bad width: \"%s\"", buff);
			redir_url += sprintf(redir_url, "term_width,");
		}
	}

	if (GET_ARG("default_bg")) {
		dbg("Screen default BG: %s", buff);
		n = atoi(buff);
		if (n >= 0 && n < 16) {
			if (termconf->default_bg != n) {
				termconf->default_bg = (u8) n;
				shall_clear_screen = true;
			}
		} else {
			warn("Bad color %s", buff);
			redir_url += sprintf(redir_url, "default_bg,");
		}
	}

	if (GET_ARG("default_fg")) {
		dbg("Screen default FG: %s", buff);
		n = atoi(buff);
		if (n >= 0 && n < 16) {
			if (termconf->default_fg != n) {
				termconf->default_fg = (u8) n;
				shall_clear_screen = true;
			}
		} else {
			warn("Bad color %s", buff);
			redir_url += sprintf(redir_url, "default_fg,");
		}
	}

	if (GET_ARG("parser_tout_ms")) {
		dbg("Parser timeout: %s ms", buff);
		n = atoi(buff);
		if (n >= 0) {
			termconf->parser_tout_ms = n;
		} else {
			warn("Bad parser timeout %s", buff);
			redir_url += sprintf(redir_url, "parser_tout_ms,");
		}
	}

	if (GET_ARG("display_tout_ms")) {
		dbg("Display update idle timeout: %s ms", buff);
		n = atoi(buff);
		if (n > 0) {
			termconf->display_tout_ms = n;
		} else {
			warn("Bad update timeout %s", buff);
			redir_url += sprintf(redir_url, "display_tout_ms,");
		}
	}

	if (GET_ARG("display_cooldown_ms")) {
		dbg("Display update cooldown: %s ms", buff);
		n = atoi(buff);
		if (n > 0) {
			termconf->display_cooldown_ms = n;
		} else {
			warn("Bad cooldown %s", buff);
			redir_url += sprintf(redir_url, "display_cooldown_ms,");
		}
	}

	if (GET_ARG("fn_alt_mode")) {
		dbg("FN alt mode: %s", buff);
		n = atoi(buff);
		termconf->fn_alt_mode = (bool)n;
		notify_screen_content = true;
	}

	if (GET_ARG("crlf_mode")) {
		dbg("CRLF mode: %s", buff);
		n = atoi(buff);
		termconf->crlf_mode = (bool)n;
		notify_screen_content = true;
	}

	if (GET_ARG("show_buttons")) {
		dbg("Show buttons: %s", buff);
		n = atoi(buff);
		termconf->show_buttons = (bool)n;
		notify_screen_content = true;
	}

	if (GET_ARG("show_config_links")) {
		dbg("Show config links: %s", buff);
		n = atoi(buff);
		termconf->show_config_links = (bool)n;
		notify_screen_content = true;
	}

	if (GET_ARG("loopback")) {
		dbg("Loopback: %s", buff);
		n = atoi(buff);
		termconf->loopback = (bool)n;
	}

	if (GET_ARG("theme")) {
		dbg("Screen color theme: %s", buff);
		n = atoi(buff);
		if (n >= 0 && n <= 5) { // ALWAYS ADJUST WHEN ADDING NEW THEME!
			termconf->theme = (u8) n;
			// this can't be notified, page must reload.
		} else {
			warn("Bad theme num: %s", buff);
			redir_url += sprintf(redir_url, "theme,");
		}
	}

	if (GET_ARG("cursor_shape")) {
		dbg("Cursor shape: %s", buff);
		n = atoi(buff);
		if (n >= 0 && n <= 6 && n != 1) {
			termconf->cursor_shape = (enum CursorShape) n;
			notify_screen_content = true;
		} else {
			warn("Bad cursor_shape num: %s", buff);
			redir_url += sprintf(redir_url, "cursor_shape,");
		}
	}

	if (GET_ARG("term_title")) {
		dbg("Terminal title default text: \"%s\"", buff);
		strncpy_safe(termconf->title, buff, 64); // ATTN those must match the values in
		notify_screen_labels = true;
	}

	for (int btn_i = 1; btn_i <= TERM_BTN_COUNT; btn_i++) {
		sprintf(buff, "btn%d", btn_i);
		if (GET_ARG(buff)) {
			dbg("Button%d default text: \"%s\"", btn_i, buff);
			strncpy_safe(termconf->btn[btn_i-1], buff, TERM_BTN_LEN);
			notify_screen_labels = true;
		}

		sprintf(buff, "bm%d", btn_i);
		if (GET_ARG(buff)) {
			dbg("Button%d message (ASCII): \"%s\"", btn_i, buff);

			// parse: comma,space or semicolon separated decimal values of ASCII codes
			char c;
			char *cp = buff;
			int char_i = 0;
			int acu = 0;
			bool lastsp = 1;
			char buff_bm[TERM_BTN_MSG_LEN];
			while ((c = *cp++) != 0) {
				if (c == ' ' || c == ',' || c == ';') {
					if(lastsp) continue;

					if (acu==0 || acu>255) {
						warn("Bad value! %d", acu);
						redir_url += sprintf(redir_url, "bm%d,", btn_i);
						break;
					}

					if (char_i >= TERM_BTN_MSG_LEN-1) {
						warn("Too long! %d", acu);
						redir_url += sprintf(redir_url, "bm%d,", btn_i);
						break;
					}

					dbg("acu %d", acu);
					buff_bm[char_i++] = (char)acu;

					// prepare for next char
					acu = 0;
					lastsp = 1;
				} else if (c>='0'&&c<='9') {
					lastsp = 0;
					acu *= 10;
					acu += c - '0';
				} else {
					warn("Bad syntax!");
					redir_url += sprintf(redir_url, "bm%d,", btn_i);
					break;
				}
			}
			if (lastsp && char_i == 0) {
				warn("Required!");
				redir_url += sprintf(redir_url, "bm%d,", btn_i);
			}
			if (!lastsp) {
				buff_bm[char_i++] = (char)acu;
			}
			buff_bm[char_i] = 0;
			dbg("%s, chari = %d", buff_bm, char_i);

			strncpy(termconf->btn_msg[btn_i-1], buff_bm, TERM_BTN_MSG_LEN);
		}
	}

	if (redir_url_buf[strlen(SET_REDIR_ERR)] == 0) {
		// All was OK
		info("Set term params - success, saving...");

		persist_store();

		if (shall_clear_screen) {
			terminal_apply_settings();
		} else {
			terminal_apply_settings_noclear();
		}

		if (notify_screen_content) {
			screen_notifyChange(CHANGE_CONTENT);
		}

		if (notify_screen_labels) {
			screen_notifyChange(CHANGE_LABELS);
		}

		httpdRedirect(connData, SET_REDIR_SUC);
	} else {
		warn("Some settings did not validate, asking for correction");
		// Some errors, appended to the URL as ?err=
		httpdRedirect(connData, redir_url_buf);
	}
	return HTTPD_CGI_DONE;
}


httpd_cgi_state ICACHE_FLASH_ATTR
tplTermCfg(HttpdConnData *connData, char *token, void **arg)
{
#define BUFLEN TERM_TITLE_LEN
	char buff[BUFLEN];
	char buff2[10];

	if (token == NULL) {
		// We're done
		return HTTPD_CGI_DONE;
	}

	strcpy(buff, ""); // fallback

	if (streq(token, "term_width")) {
		sprintf(buff, "%d", termconf->width);
	}
	else if (streq(token, "term_height")) {
		sprintf(buff, "%d", termconf->height);
	}
	else if (streq(token, "parser_tout_ms")) {
		sprintf(buff, "%d", termconf->parser_tout_ms);
	}
	else if (streq(token, "display_tout_ms")) {
		sprintf(buff, "%d", termconf->display_tout_ms);
	}
	else if (streq(token, "display_cooldown_ms")) {
		sprintf(buff, "%d", termconf->display_cooldown_ms);
	}
	else if (streq(token, "fn_alt_mode")) {
		sprintf(buff, "%d", (int)termconf->fn_alt_mode);
	}
	else if (streq(token, "crlf_mode")) {
		sprintf(buff, "%d", (int)termconf->crlf_mode);
	}
	else if (streq(token, "show_buttons")) {
		sprintf(buff, "%d", (int)termconf->show_buttons);
	}
	else if (streq(token, "show_config_links")) {
		sprintf(buff, "%d", (int)termconf->show_config_links);
	}
	else if (streq(token, "loopback")) {
		sprintf(buff, "%d", (int)termconf->loopback);
	}
	else if (streq(token, "theme")) {
		sprintf(buff, "%d", termconf->theme);
	}
	else if (streq(token, "default_bg")) {
		sprintf(buff, "%d", termconf->default_bg);
	}
	else if (streq(token, "default_fg")) {
		sprintf(buff, "%d", termconf->default_fg);
	}
	else if (streq(token, "cursor_shape")) {
		sprintf(buff, "%d", termconf->cursor_shape);
	}
	else if (streq(token, "term_title")) {
		strncpy_safe(buff, termconf->title, BUFLEN);
	}
	else {
		for (int btn_i = 1; btn_i <= TERM_BTN_COUNT; btn_i++) {
			sprintf(buff2, "btn%d", btn_i);
			if (streq(token, buff2)) {
				strncpy_safe(buff, termconf->btn[btn_i-1], BUFLEN);
				break;
			}

			sprintf(buff2, "bm%d", btn_i);
			if (streq(token, buff2)) {
				char c;
				char *bp = buff;
				char *cp = termconf->btn_msg[btn_i-1];
				int n = 0;
				while((c = *cp++) != 0) {
					if(n>0) {
						*bp = ',';
						bp++;
					}
					bp += sprintf(bp, "%d", (int)c);
					n++;
				}
				break;
			}
		}
	}

	tplSend(connData, buff, -1);
	return HTTPD_CGI_DONE;
}