/*
 * dmq module - distributed message queue
 *
 * Copyright (C) 2011 Bucur Marius - Ovidiu
 *
 * This file is part of Kamailio, a free SIP server.
 *
 * Kamailio is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version
 *
 * Kamailio is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
 *
 */


#include "notification_peer.h"

#define MAXDMQURILEN 255
#define MAXDMQHOSTS 30

str dmq_notification_content_type = str_init("text/plain");
dmq_resp_cback_t dmq_notification_resp_callback = {
		&notification_resp_callback_f, 0};

int *dmq_init_callback_done = 0;

extern str dmq_notification_channel;

/**
 * @brief add notification peer
 */
int add_notification_peer()
{
	dmq_peer_t not_peer;

	memset(&not_peer, 0, sizeof(dmq_peer_t));
	not_peer.callback = dmq_notification_callback_f;
	not_peer.init_callback = NULL;
	not_peer.description = dmq_notification_channel;
	not_peer.peer_id = dmq_notification_channel;
	dmq_notification_peer = register_dmq_peer(&not_peer);
	if(!dmq_notification_peer) {
		LM_ERR("error in register_dmq_peer\n");
		goto error;
	}
	/* add itself to the node list */
	dmq_self_node = add_dmq_node(dmq_node_list, &dmq_server_address);
	if(!dmq_self_node) {
		LM_ERR("error adding self node\n");
		goto error;
	}
	/* local node - only for self */
	dmq_self_node->local = 1;
	dmq_self_node->status = DMQ_NODE_ACTIVE;
	return 0;
error:
	return -1;
}

/**********
* Create IP URI
*
* INPUT:
*   Arg (1) = container for hosts
*   Arg (2) = host index
*   Arg (3) = host name pointer
*   Arg (4) = host name length
*   Arg (5) = parsed URI pointer
* OUTPUT: 0=unable to create URI
**********/

int create_IP_uri(char **puri_list, int host_index, char *phost, int hostlen,
		sip_uri_t *puri)

{
	int pos;
	char *plist;
	char *perr = "notification host count reached max!\n";

	/**********
	* insert
	* o scheme
	* o user name/password
	* o host
	* o port
	* o parameters
	**********/

	plist = puri_list[host_index];
	if(puri->type == SIPS_URI_T) {
		memcpy(plist, "sips:", 5);
		pos = 5;
	} else {
		memcpy(plist, "sip:", 4);
		pos = 4;
	}
	if(puri->user.s) {
		memcpy(&plist[pos], puri->user.s, puri->user.len);
		pos += puri->user.len;
		if(puri->passwd.s) {
			plist[pos++] = ':';
			memcpy(&plist[pos], puri->passwd.s, puri->passwd.len);
			pos += puri->passwd.len;
		}
		plist[pos++] = '@';
	}
	if((pos + hostlen) > MAXDMQURILEN) {
		LM_WARN("%s", perr);
		return 0;
	}
	memcpy(&plist[pos], phost, hostlen);
	pos += hostlen;
	if(puri->port_no) {
		if((pos + 6) > MAXDMQURILEN) {
			LM_WARN("%s", perr);
			return 0;
		}
		plist[pos++] = ':';
		pos += ushort2sbuf(puri->port_no, &plist[pos], 5);
	}
	if(puri->params.s) {
		if((pos + puri->params.len) >= MAXDMQURILEN) {
			LM_WARN("%s", perr);
			return 0;
		}
		plist[pos++] = ';';
		memcpy(&plist[pos], puri->params.s, puri->params.len);
		pos += puri->params.len;
	}
	plist[pos] = '\0';
	return 1;
}

/**********
* Get DMQ Host List
*
* INPUT:
*   Arg (1) = container for hosts
*   Arg (2) = maximum number of hosts
*   Arg (3) = host string pointer
*   Arg (4) = parsed URI pointer
*   Arg (5) = search SRV flag
* OUTPUT: number of hosts found
**********/

int get_dmq_host_list(
		char **puri_list, int max_hosts, str *phost, sip_uri_t *puri, int bSRV)

{
	int host_cnt, len;
	unsigned short origport, port;
	str pstr[1];
	char pname[256], pIP[IP6_MAX_STR_SIZE + 2];
	struct rdata *phead, *prec;
	struct srv_rdata *psrv;

	/**********
	* o IP address?
	* o make null terminated name
	* o search SRV?
	**********/

	if(str2ip(phost) || str2ip6(phost)) {
		if(!create_IP_uri(puri_list, 0, phost->s, phost->len, puri)) {
			LM_DBG("adding DMQ node IP host %.*s=%s\n", phost->len, phost->s,
					puri_list[0]);
			return 0;
		}
		return 1;
	}
	strncpy(pname, phost->s, phost->len);
	pname[phost->len] = '\0';
	host_cnt = 0;
	if(bSRV) {
		/**********
		* get SRV records
		**********/

		port = puri->port_no;
		phead = get_record(pname, T_SRV, RES_ONLY_TYPE);
		for(prec = phead; prec; prec = prec->next) {
			/**********
			* o matching port?
			* o check max
			* o save original port
			* o check target
			* o restore port
			**********/

			psrv = (struct srv_rdata *)prec->rdata;
			if(port && (port != psrv->port)) {
				continue;
			}
			if(host_cnt == max_hosts) {
				LM_WARN("notification host count reached max!\n");
				free_rdata_list(phead);
				return host_cnt;
			}
			pstr->s = psrv->name;
			pstr->len = psrv->name_len;
			origport = puri->port_no;
			puri->port_no = psrv->port;
			host_cnt += get_dmq_host_list(&puri_list[host_cnt],
					MAXDMQHOSTS - host_cnt, pstr, puri, 0);
			puri->port_no = origport;
		}
		if(phead)
			free_rdata_list(phead);
	}

	/**********
	* get A records
	**********/

	phead = get_record(pname, T_A, RES_ONLY_TYPE);
	for(prec = phead; prec; prec = prec->next) {
		/**********
		* o check max
		* o create URI
		**********/

		if(host_cnt == max_hosts) {
			LM_WARN("notification host count reached max!\n");
			free_rdata_list(phead);
			return host_cnt;
		}
		len = ip4tosbuf(
				((struct a_rdata *)prec->rdata)->ip, pIP, IP4_MAX_STR_SIZE);
		pIP[len] = '\0';
		if(create_IP_uri(puri_list, host_cnt, pIP, len, puri)) {
			LM_DBG("adding DMQ node A host %s=%s\n", pname,
					puri_list[host_cnt]);
			host_cnt++;
		}
	}
	if(phead)
		free_rdata_list(phead);

	/**********
	* get AAAA records
	**********/

	phead = get_record(pname, T_AAAA, RES_ONLY_TYPE);
	for(prec = phead; prec; prec = prec->next) {
		/**********
		* o check max
		* o create URI
		**********/

		if(host_cnt == max_hosts) {
			LM_WARN("notification host count reached max!\n");
			free_rdata_list(phead);
			return host_cnt;
		}
		pIP[0] = '[';
		len = ip6tosbuf(((struct aaaa_rdata *)prec->rdata)->ip6, &pIP[1],
					  IP6_MAX_STR_SIZE)
			  + 1;
		pIP[len++] = ']';
		pIP[len] = '\0';
		if(create_IP_uri(puri_list, host_cnt, pIP, len, puri)) {
			LM_DBG("adding DMQ node AAAA host %s=%s\n", pname,
					puri_list[host_cnt]);
			host_cnt++;
		}
	}
	if(phead)
		free_rdata_list(phead);
	return host_cnt;
}

/**
 * @brief add one or more server node(s) and notify it
 */
dmq_node_t *add_server_and_notify(str_list_t *server_list)
{
	char puri_data[MAXDMQHOSTS * (MAXDMQURILEN + 1)];
	char *puri_list[MAXDMQHOSTS];
	dmq_node_t *pfirst = NULL, *pnode = NULL;
	int host_cnt, index;
	sip_uri_t puri[1];
	str pstr[1];

	/**********
	* o init data area
	* o get list of hosts
	* o process list
	**********/

	if(!dmq_multi_notify) {
		while(server_list != NULL) {
			LM_DBG("adding notification node %.*s\n", server_list->s.len,
					server_list->s.s);
			pfirst = add_dmq_node(dmq_node_list, &server_list->s);
			server_list = server_list->next;
		}
	} else {
		/**********
		* o init data area
		* o get list of hosts
		* o process list
		**********/

		for(index = 0; index < MAXDMQHOSTS; index++) {
			puri_list[index] = &puri_data[index * (MAXDMQURILEN + 1)];
		}
		if(parse_uri(server_list->s.s, server_list->s.len, puri) < 0) {
			/* this is supposed to be good but just in case... */
			LM_ERR("add_server_and_notify address invalid\n");
			return 0;
		}
		pfirst = NULL;
		host_cnt =
				get_dmq_host_list(puri_list, MAXDMQHOSTS, &puri->host, puri, 1);
		for(index = 0; index < host_cnt; index++) {
			pstr->s = puri_list[index];
			pstr->len = strlen(puri_list[index]);
			if(!find_dmq_node_uri(
					   dmq_node_list, pstr)) { // check for duplicates
				pnode = add_dmq_node(dmq_node_list, pstr);
				if(pnode && !pfirst) {
					pfirst = pnode;
				}
			}
		}
	}

	/**********
	* o found at least one?
	* o request node list
	**********/

	if(!pfirst) {
		LM_ERR("error adding notification node\n");
		return NULL;
	}
	if(request_nodelist(pfirst, 2) < 0) {
		LM_ERR("error requesting initial nodelist\n");
		return NULL;
	}
	return pfirst;
}

/**
 * extract the node list from the body of a notification request SIP message
 * the SIP request will look something like:
 * 	KDMQ sip:10.0.0.0:5062
 * 	To: ...
 * 	From: ...
 * 	Max-Forwards: ...
 * 	Content-Length: 22
 *
 * 	sip:host1:port1;param1=value1
 * 	sip:host2:port2;param2=value2
 * 	...
 */
int extract_node_list(dmq_node_list_t *update_list, struct sip_msg *msg)
{
	int content_length, total_nodes = 0;
	str body;
	str tmp_uri;
	dmq_node_t *cur = NULL;
	dmq_node_t *ret, *find;
	char *tmp, *end, *match;

	if(!msg->content_length
			&& (parse_headers(msg, HDR_CONTENTLENGTH_F, 0) < 0
					|| !msg->content_length)) {
		LM_ERR("no content length header found\n");
		return -1;
	}
	content_length = get_content_length(msg);
	if(!content_length) {
		LM_DBG("content length is 0\n");
		return total_nodes;
	}
	body.s = get_body(msg);
	body.len = content_length;
	tmp = body.s;
	end = body.s + body.len;

	/* acquire big list lock */
	lock_get(&update_list->lock);
	while(tmp < end) {
		match = q_memchr(tmp, '\n', end - tmp);
		if(match) {
			match++;
		} else {
			/* for the last line - take all of it */
			match = end;
		}
		/* create the orig_uri from the parsed uri line and trim it */
		tmp_uri.s = tmp;
		tmp_uri.len = match - tmp - 1;
		tmp = match;
		/* trim the \r, \n and \0's */
		trim_r(tmp_uri);
		find = build_dmq_node(&tmp_uri, 0);
		if(find == NULL) {
			LM_ERR("error building dmq node\n");
			goto error;
		}
		ret = find_dmq_node(update_list, find);

		if(!ret) {
			LM_INFO("dmq node not found by name,try again with IP address\n");
			ret = find_dmq_node_ip(update_list, find);
		}

		if(!ret) {
			LM_DBG("found new node %.*s\n", STR_FMT(&tmp_uri));
			cur = build_dmq_node(&tmp_uri, 1);
			if(!cur) {
				LM_ERR("error creating new dmq node\n");
				goto error;
			}
			cur->next = update_list->nodes;
			update_list->nodes = cur;
			update_list->count++;
			total_nodes++;
		} else if(!ret->local && find->uri.params.s
				  && ret->status != find->status
				  && ret->status != DMQ_NODE_DISABLED) {
			/* don't update the node if it is in ending state */
			LM_DBG("updating status on %.*s from %d to %d\n", STR_FMT(&tmp_uri),
					ret->status, find->status);
			ret->status = find->status;
			total_nodes++;
		}
		destroy_dmq_node(find, 0);
	}

	/* release big list lock */
	lock_release(&update_list->lock);
	return total_nodes;
error:
	lock_release(&update_list->lock);
	return -1;
}


int run_init_callbacks()
{
	dmq_peer_t *crt;

	if(dmq_peer_list == 0) {
		LM_WARN("peer list is null\n");
		return 0;
	}
	crt = dmq_peer_list->peers;
	while(crt) {
		if(crt->init_callback) {
			crt->init_callback();
		}
		crt = crt->next;
	}
	return 0;
}


/**
 * @brief dmq notification callback
 */
int dmq_notification_callback_f(
		struct sip_msg *msg, peer_reponse_t *resp, dmq_node_t *dmq_node)
{
	int nodes_recv;
	str *response_body = NULL;
	int maxforwards = 0;
	/* received dmqnode list */
	LM_DBG("dmq triggered from dmq_notification_callback\n");

	/* extract the maxforwards value, if any */
	if(msg->maxforwards) {
		if(msg->maxforwards->parsed > 0) {
			/* maxfwd module has parsed and decreased the value in the msg buf */
			/* maxforwards->parsed contains the original value */
			maxforwards = (int)(long)(msg->maxforwards->parsed) - 1;
		} else {
			str2sint(&msg->maxforwards->body, &maxforwards);
			maxforwards--;
		}
	}
	nodes_recv = extract_node_list(dmq_node_list, msg);
	LM_DBG("received %d new or changed nodes\n", nodes_recv);
	response_body = build_notification_body();
	if(response_body == NULL) {
		LM_ERR("no response body\n");
		goto error;
	}
	resp->content_type = dmq_notification_content_type;
	resp->reason = dmq_200_rpl;
	resp->body = *response_body;
	resp->resp_code = 200;

	/* if we received any new nodes tell about them to the others */
	if(nodes_recv > 0 && maxforwards > 0) {
		/* maxforwards is set to 0 so that the message is will not be in a spiral */
		bcast_dmq_message(dmq_notification_peer, response_body, 0,
				&dmq_notification_resp_callback, maxforwards,
				&dmq_notification_content_type);
	}
	pkg_free(response_body);
	if(dmq_init_callback_done && !*dmq_init_callback_done) {
		*dmq_init_callback_done = 1;
		run_init_callbacks();
	}
	return 0;
error:
	return -1;
}

/**
 * builds the body of a notification message from the list of servers
 * the result will look something like:
 * sip:host1:port1;param1=value1\r\n
 * sip:host2:port2;param2=value2\r\n
 * sip:host3:port3;param3=value3
 */
str *build_notification_body()
{
	/* the length of the current line describing the server */
	int slen;
	/* the current length of the body */
	int clen = 0;
	dmq_node_t *cur_node = NULL;
	str *body;
	body = pkg_malloc(sizeof(str));
	if(body == NULL) {
		PKG_MEM_ERROR;
		return NULL;
	}
	memset(body, 0, sizeof(str));
	/* we allocate a chunk of data for the body */
	body->len = NBODY_LEN;
	body->s = pkg_malloc(body->len);
	if(body->s == NULL) {
		PKG_MEM_ERROR;
		pkg_free(body);
		return NULL;
	}
	/* we add each server to the body - each on a different line */
	lock_get(&dmq_node_list->lock);
	cur_node = dmq_node_list->nodes;
	while(cur_node) {
		if(cur_node->local || cur_node->status == DMQ_NODE_ACTIVE) {
			LM_DBG("body_len = %d - clen = %d\n", body->len, clen);
			/* body->len - clen - 2 bytes left to write - including the \r\n */
			slen = build_node_str(
					cur_node, body->s + clen, body->len - clen - 2);
			if(slen < 0) {
				LM_ERR("cannot build_node_string\n");
				goto error;
			}
			clen += slen;
			body->s[clen++] = '\r';
			body->s[clen++] = '\n';
		}
		cur_node = cur_node->next;
	}
	lock_release(&dmq_node_list->lock);
	body->len = clen;
	return body;
error:
	lock_release(&dmq_node_list->lock);
	pkg_free(body->s);
	pkg_free(body);
	return NULL;
}

/**
 * @brief request node list
 */
int request_nodelist(dmq_node_t *node, int forward)
{
	str *body;
	int ret;
	body = build_notification_body();
	if(body == NULL) {
		LM_ERR("no notification body\n");
		return -1;
	}
	ret = bcast_dmq_message1(dmq_notification_peer, body, NULL,
			&dmq_notification_resp_callback, forward,
			&dmq_notification_content_type, 1);
	pkg_free(body->s);
	pkg_free(body);
	return ret;
}

/**
 * @brief notification response callback
 */
int notification_resp_callback_f(
		struct sip_msg *msg, int code, dmq_node_t *node, void *param)
{
	int ret;
	int nodes_recv;
	str_list_t *slp;

	LM_DBG("notification_callback_f triggered [%p %d %p]\n", msg, code, param);
	if(code == 200) {
		/* be sure that the node that answered is in active state */
		update_dmq_node_status(dmq_node_list, node, DMQ_NODE_ACTIVE);
		nodes_recv = extract_node_list(dmq_node_list, msg);
		LM_DBG("received %d new or changed nodes\n", nodes_recv);
		if(dmq_init_callback_done && !*dmq_init_callback_done) {
			*dmq_init_callback_done = 1;
			run_init_callbacks();
		}
	} else if(code == 408) {
		/* TODO this probably do not work for dmq_multi_notify */
		slp = dmq_notification_address_list;
		while(slp != NULL) {
			if(STR_EQ(node->orig_uri, slp->s)) {
				LM_ERR("not deleting notification peer [%.*s]\n",
						STR_FMT(&slp->s));
				update_dmq_node_status(dmq_node_list, node, DMQ_NODE_PENDING);
				return 0;
			}
			slp = slp->next;
		}
		if(node->status == DMQ_NODE_DISABLED) {
			/* deleting node - the server did not respond */
			LM_ERR("deleting server node %.*s because of failed request\n",
					STR_FMT(&node->orig_uri));
			ret = del_dmq_node(dmq_node_list, node);
			LM_DBG("del_dmq_node returned %d\n", ret);
		} else {
			/* put the node in disabled state and wait for the next ping before deleting it */
			update_dmq_node_status(dmq_node_list, node, DMQ_NODE_DISABLED);
		}
	}
	return 0;
}
