/********************************************************************\
  * BitlBee -- An IRC to other IM-networks gateway                     *
  *                                                                    *
  * Copyright 2002-2004 Wilmer van der Gaast and others                *
  \********************************************************************/

/* Questions to the user (mainly authorization requests from IM)        */

/*
  This program 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.

  This program 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 with
  the Debian GNU/Linux distribution in /usr/share/common-licenses/GPL;
  if not, write to the Free Software Foundation, Inc., 51 Franklin St.,
  Fifth Floor, Boston, MA  02110-1301  USA
*/

#define BITLBEE_CORE
#include "bitlbee.h"

static void query_display(irc_t *irc, query_t *q);
static query_t *query_default(irc_t *irc);

query_t *query_add(irc_t *irc, struct im_connection *ic, char *question,
                   query_callback yes, query_callback no, query_callback free,
                   void *data)
{
	query_t *q = g_new0(query_t, 1);

	q->ic = ic;
	q->question = g_strdup(question);
	q->yes = yes;
	q->no = no;
	q->free = free;
	q->data = data;

	if (strchr(irc->umode, 'b') != NULL) {
		char *s;

		/* At least for the machine-parseable version, get rid of
		   newlines to make "parsing" easier. */
		for (s = q->question; *s; s++) {
			if (*s == '\r' || *s == '\n') {
				*s = ' ';
			}
		}
	}

	if (irc->queries) {
		query_t *l = irc->queries;

		while (l->next) {
			l = l->next;
		}
		l->next = q;
	} else {
		irc->queries = q;
	}

	if (g_strcasecmp(set_getstr(&irc->b->set, "query_order"), "lifo") == 0 || irc->queries == q) {
		query_display(irc, q);
	}

	return(q);
}

void query_del(irc_t *irc, query_t *q)
{
	query_t *l;

	if (irc->queries == q) {
		irc->queries = q->next;
	} else {
		for (l = irc->queries; l; l = l->next) {
			if (l->next == q) {
				l->next = q->next;
				break;
			}
		}

		if (!l) {
			return; /* Hrmmm... */
		}
	}

	g_free(q->question);
	if (q->free && q->data) {
		q->free(q->data);
	}
	g_free(q);
}

void query_del_by_conn(irc_t *irc, struct im_connection *ic)
{
	query_t *q, *n, *def;
	int count = 0;

	if (!ic) {
		return;
	}

	q = irc->queries;
	def = query_default(irc);

	while (q) {
		if (q->ic == ic) {
			n = q->next;
			query_del(irc, q);
			q = n;

			count++;
		} else {
			q = q->next;
		}
	}

	if (count > 0) {
		imcb_log(ic, "Flushed %d unanswered question(s) for this connection.", count);
	}

	q = query_default(irc);
	if (q && q != def) {
		query_display(irc, q);
	}
}

void query_answer(irc_t *irc, query_t *q, int ans)
{
	int disp = 0;

	if (!q) {
		q = query_default(irc);
		disp = 1;
	}
	if (ans) {
		if (q->ic) {
			imcb_log(q->ic, "Accepted: %s", q->question);
		} else {
			irc_rootmsg(irc, "Accepted: %s", q->question);
		}
		if (q->yes) {
			q->yes(q->data);
		}
	} else {
		if (q->ic) {
			imcb_log(q->ic, "Rejected: %s", q->question);
		} else {
			irc_rootmsg(irc, "Rejected: %s", q->question);
		}
		if (q->no) {
			q->no(q->data);
		}
	}
	q->data = NULL;

	query_del(irc, q);

	if (disp && (q = query_default(irc))) {
		query_display(irc, q);
	}
}

static void query_display(irc_t *irc, query_t *q)
{
	if (q->ic) {
		imcb_log(q->ic,
		         "New request: %s\nYou can use the \2yes\2/\2no\2 commands to accept/reject this request.",
		         q->question);
	} else {
		irc_rootmsg(irc,
		            "New request: %s\nYou can use the \2yes\2/\2no\2 commands to accept/reject this request.",
		            q->question);
	}
}

static query_t *query_default(irc_t *irc)
{
	query_t *q;

	if (g_strcasecmp(set_getstr(&irc->b->set, "query_order"), "fifo") == 0) {
		q = irc->queries;
	} else {
		for (q = irc->queries; q && q->next; q = q->next) {
			;
		}
	}

	return(q);
}