source: query.c

/********************************************************************\
  * 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);
}