#include <sys/types.h>
#include <sys/socket.h>
#include <unistd.h>
#include <stdlib.h>
#include <stdio.h>
#include <pcre.h>

#include "control.h"
#include "poller.h"
#include "aux.h"
#include "streambuf.h"
#include "log.h"
#include "build_time.h"
#include "call.h"



static pcre		*parse_re;
static pcre_extra	*parse_ree;




static void control_stream_closed(int fd, void *p) {
	struct control_stream *s = p;
	struct control *c;

	mylog(LOG_INFO, "Control connection from " DF " closed", DP(s->inaddr));

	c = s->control;

	c->stream_head = g_list_remove_link(c->stream_head, &s->link);

	close(fd);
	if (poller_del_item(s->poller, fd))
		abort();

	streambuf_destroy(s->inbuf);
	streambuf_destroy(s->outbuf);
	free(s);
}


static void control_list(struct control *c, struct control_stream *s) {
	struct control_stream *i;

	for (i = (void *) c->stream_head; i; i = (void *) i->link.next)
		streambuf_printf(s->outbuf, DF "\n", DP(s->inaddr));

	streambuf_printf(s->outbuf, "End.\n");
}


static int control_stream_parse(struct control_stream *s, char *line) {
	const char *errptr;
	int erroff;
	int ovec[60];
	int ret;
	const char **out;
	struct control *c = s->control;
	char *output = NULL;

	if (!parse_re) {
		parse_re = pcre_compile(
				/*      reqtype          callid   streams     ip      fromdom   fromtype   todom     totype    agent          info  |reqtype     callid         info  | reqtype */
				"^(?:(request|lookup)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+(\\S+)\\s+info=(\\S*)|(delete)\\s+(\\S+)\\s+info=(\\S*)|(build|version|controls|quit|exit|status))$",
				PCRE_DOLLAR_ENDONLY | PCRE_DOTALL, &errptr, &erroff, NULL);
		parse_ree = pcre_study(parse_re, 0, &errptr);
	}

	ret = pcre_exec(parse_re, parse_ree, line, strlen(line), 0, 0, ovec, ARRAY_SIZE(ovec));
	if (ret <= 0) {
		mylog(LOG_WARNING, "Unable to parse command line from " DF ": %s", DP(s->inaddr), line);
		return -1;
	}

	mylog(LOG_INFO, "Got valid command from " DF ": %s", DP(s->inaddr), line);

	pcre_get_substring_list(line, ovec, ret, &out);


	if (!strcmp(out[1], "request"))
		output = call_request(out, c->callmaster);
	else if (!strcmp(out[1], "lookup"))
		output = call_lookup(out, c->callmaster);
	else if (!strcmp(out[11], "delete"))
		call_delete(out, c->callmaster);
	else if (!strcmp(out[14], "status"))
		calls_status(c->callmaster, s);
	else if (!strcmp(out[14], "build") | !strcmp(out[14], "version"))
		streambuf_printf(s->outbuf, "Build: %s\n", BUILD_TIME);
	else if (!strcmp(out[14], "controls"))
		control_list(c, s);
	else if (!strcmp(out[14], "quit") || !strcmp(out[14], "exit"))
		;

	if (output) {
		streambuf_write(s->outbuf, output, strlen(output));
		free(output);
	}

	pcre_free(out);
	return -1;
}


static void control_stream_timer(int fd, void *p) {
	struct control_stream *s = p;
	struct poller *o = s->poller;

	if ((o->now - s->inbuf->active) >= 60 || (o->now - s->outbuf->active) >= 60)
		control_stream_closed(s->fd, s);
}


static void control_stream_readable(int fd, void *p) {
	struct control_stream *s = p;
	char *line;
	int ret;

	if (streambuf_readable(s->inbuf))
		goto close;

	while ((line = streambuf_getline(s->inbuf))) {
		mylog(LOG_DEBUG, "Got control line from " DF ": %s", DP(s->inaddr), line);
		ret = control_stream_parse(s, line);
		free(line);
		if (ret)
			goto close;
	}

	if (streambuf_bufsize(s->inbuf) > 1024) {
		mylog(LOG_WARNING, "Buffer length exceeded in control connection from " DF, DP(s->inaddr));
		goto close;
	}

	return;

close:
	control_stream_closed(fd, s);
}

static void control_stream_writeable(int fd, void *p) {
	struct control_stream *s = p;

	if (streambuf_writeable(s->outbuf))
		control_stream_closed(fd, s);
}

static void control_closed(int fd, void *p) {
	abort();
}

static void control_incoming(int fd, void *p) {
	int nfd;
	struct control *c = p;
	struct control_stream *s;
	struct poller_item i;
	struct sockaddr_in sin;
	socklen_t sinl;

	sinl = sizeof(sin);
	nfd = accept(fd, (struct sockaddr *) &sin, &sinl);
	if (nfd == -1)
		return;
	NONBLOCK(nfd);

	mylog(LOG_INFO, "New control connection from " DF, DP(sin));

	s = malloc(sizeof(*s));
	ZERO(*s);

	ZERO(i);
	i.fd = nfd;
	i.closed = control_stream_closed;
	i.readable = control_stream_readable;
	i.writeable = control_stream_writeable;
	i.timer = control_stream_timer;
	i.ptr = s;
	if (poller_add_item(c->poller, &i))
		goto fail;
	s->fd = nfd;
	s->control = c;
	s->poller = c->poller;
	s->inbuf = streambuf_new(c->poller, nfd);
	s->outbuf = streambuf_new(c->poller, nfd);
	memcpy(&s->inaddr, &sin, sizeof(s->inaddr));

	c->stream_head = g_list_link(c->stream_head, &s->link);

	return;

fail:
	free(s);
	close(nfd);
}


struct control *control_new(struct poller *p, u_int32_t ip, u_int16_t port, struct callmaster *m) {
	int fd;
	struct control *c;
	struct poller_item i;
	struct sockaddr_in sin;

	if (!p)
		return NULL;
	if (!m)
		return NULL;

	fd = socket(AF_INET, SOCK_STREAM, 0);
	if (fd == -1)
		return NULL;

	NONBLOCK(fd);
	REUSEADDR(fd);

	ZERO(sin);
	sin.sin_family = AF_INET;
	sin.sin_addr.s_addr = ip;
	sin.sin_port = htons(port);
	if (bind(fd, (struct sockaddr *) &sin, sizeof(sin)))
		goto fail;

	if (listen(fd, 5))
		goto fail;


	c = malloc(sizeof(*c));
	ZERO(*c);

	c->fd = fd;
	c->poller = p;
	c->callmaster = m;

	ZERO(i);
	i.fd = fd;
	i.closed = control_closed;
	i.readable = control_incoming;
	i.ptr = c;
	if (poller_add_item(p, &i))
		goto fail2;

	return c;

fail2:
	free(c);
fail:
	close(fd);
	return NULL;
}