/*

 * hooks.c     -- Hooks layer

 *

 * Copyright (C) 2005 Mikael Berthe <bmikael@lists.lilotux.net>

 *

 * 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

 * along with this program; if not, write to the Free Software

 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307

 * USA

 */

#include <sys/types.h>

#include <unistd.h>

#include <stdlib.h>

#include "hooks.h"

#include "screen.h"

#include "roster.h"

#include "histolog.h"

#include "hbuf.h"

#include "settings.h"

#include "utils.h"

static char *extcmd;

inline void hk_message_in(const char *jid, const char *resname,

                          time_t timestamp, const char *msg, const char *type)

{

  int new_guy = FALSE;

  int is_groupchat = FALSE; // groupchat message

  int is_room = FALSE;      // window is a room window

  int log_muc_conf = FALSE;

  int message_flags = 0;

  guint rtype = ROSTER_TYPE_USER;

  char *wmsg = NULL, *bmsg = NULL, *mmsg = NULL;

  GSList *roster_usr;

  if (type && !strcmp(type, "groupchat")) {

    rtype = ROSTER_TYPE_ROOM;

    is_groupchat = TRUE;

    log_muc_conf = settings_opt_get_int("log_muc_conf");

    if (!resname) {

      resname = "";

      bmsg = g_strdup_printf("~ %s", msg);

    } else {

      bmsg = g_strdup_printf("<%s> %s", resname, msg);

    }

    wmsg = bmsg;

    if (!strncmp(msg, "/me ", 4))

      wmsg = mmsg = g_strdup_printf("*%s %s", resname, msg+4);

  } else {

    if (!strncmp(msg, "/me ", 4))

      wmsg = mmsg = g_strdup_printf("*%s %s", jid, msg+4);

    else

      wmsg = (char*) msg;

  }

  // If this user isn't in the roster, we add it

  roster_usr = roster_find(jid, jidsearch, 0);

  if (!roster_usr) {

    new_guy = TRUE;

    roster_usr = roster_add_user(jid, NULL, NULL, rtype, sub_none);

    if (!roster_usr) { // Shouldn't happen...

      scr_LogPrint(LPRINT_LOGNORM, "ERROR: unable to add buddy!");

      if (bmsg) g_free(bmsg);

      if (mmsg) g_free(mmsg);

      return;

    }

  } else if (is_groupchat) {

    // Make sure the type is ROOM

    buddy_settype(roster_usr->data, ROSTER_TYPE_ROOM);

  }

  is_room = !!(buddy_gettype(roster_usr->data) & ROSTER_TYPE_ROOM);

  if (!is_groupchat && is_room) {

    // This is a private message from a room participant

    if (!resname)

      resname = "";

    wmsg = bmsg = g_strdup_printf("PRIV#<%s> %s", resname, msg);

    if (!strncmp(msg, "/me ", 4))

      wmsg = mmsg = g_strdup_printf("PRIV#*%s %s", resname, msg+4);

  }

  if (type && !strcmp(type, "error")) {

    message_flags = HBB_PREFIX_ERR | HBB_PREFIX_IN;

    scr_LogPrint(LPRINT_LOGNORM, "Error message received from <%s>", jid);

  }

  // Note: the hlog_write should not be called first, because in some

  // cases scr_WriteIncomingMessage() will load the history and we'd

  // have the message twice...

  scr_WriteIncomingMessage(jid, wmsg, timestamp, message_flags);

  // We don't log the modified message, but the original one

  if (wmsg == mmsg)

    wmsg = bmsg;

  // - We don't log the message if it is an error message

  // - We don't log the message if it is a private conf. message

  // - We don't log the message if it is groupchat message and the log_muc_conf

  //   option is off (and it is not a history line)

  if (!(message_flags & HBB_PREFIX_ERR) &&

      (!is_room || (is_groupchat && log_muc_conf && !timestamp)))

    hlog_write_message(jid, timestamp, FALSE, wmsg);

  // External command

  // - We do not call hk_ext_cmd() for history lines in MUC

  // - We do call hk_ext_cmd() for private messages in a room

  if ((is_groupchat && !timestamp) || !is_groupchat)

    hk_ext_cmd(jid, (is_groupchat ? 'G' : 'M'), 'R', wmsg);

  // We need to rebuild the list if the sender is unknown or

  // if the sender is offline/invisible and hide_offline_buddies is set

  if (new_guy ||

      (buddy_getstatus(roster_usr->data, NULL) == offline &&

       buddylist_get_hide_offline_buddies()))

  {

    buddylist_build();

    update_roster = TRUE;

  }

  if (bmsg) g_free(bmsg);

  if (mmsg) g_free(mmsg);

}

//  hk_message_out()

// nick should be set for private messages in a chat room, and null for

// normal messages.

inline void hk_message_out(const char *jid, const char *nick,

                           time_t timestamp, const char *msg)

{

  char *wmsg = NULL, *bmsg = NULL, *mmsg = NULL;;

  if (nick) {

    wmsg = bmsg = g_strdup_printf("PRIV#<%s> %s", nick, msg);

  } else {

    wmsg = (char*)msg;

    if (!strncmp(msg, "/me ", 4)) {

      const char *myid = settings_opt_get("username");

      if (myid)

        wmsg = mmsg = g_strdup_printf("*%s %s", settings_opt_get("username"),

                                      msg+4);

    }

  }

  // Note: the hlog_write should not be called first, because in some

  // cases scr_WriteOutgoingMessage() will load the history and we'd

  // have the message twice...

  scr_WriteOutgoingMessage(jid, wmsg);

  // We don't log private messages

  if (!nick) hlog_write_message(jid, timestamp, TRUE, msg);

  // External command

  hk_ext_cmd(jid, 'M', 'S', NULL);

  if (bmsg) g_free(bmsg);

  if (mmsg) g_free(mmsg);

}

inline void hk_statuschange(const char *jid, const char *resname, gchar prio,

                            time_t timestamp, enum imstatus status,

                            const char *status_msg)

{

  int buddy_format;

  int st_in_buf;

  enum imstatus oldstat;

  char *bn = NULL;

  char *logsmsg, *p;

  const char *rn = (resname ? resname : "");

  st_in_buf = settings_opt_get_int("show_status_in_buffer");

  buddy_format = settings_opt_get_int("buddy_format");

  if (buddy_format) {

    const char *name = roster_getname(jid);

    if (name && strcmp(name, jid)) {

      if (buddy_format == 1)

        bn = g_strdup_printf("%s <%s/%s>", name, jid, rn);

      else if (buddy_format == 2)

        bn = g_strdup_printf("%s/%s", name, rn);

      else if (buddy_format == 3)

        bn = g_strdup_printf("%s", name);

    }

  }

  if (!bn) {

    bn = g_strdup_printf("<%s/%s>", jid, rn);

  }

  logsmsg = g_strdup(status_msg ? status_msg : "");

  if ((p = strchr(logsmsg, '\n')) != NULL)

    *p = 0;

  oldstat = roster_getstatus(jid, resname);

  scr_LogPrint(LPRINT_LOGNORM, "Buddy status has changed: [%c>%c] %s %s",

               imstatus2char[oldstat], imstatus2char[status], bn, logsmsg);

  g_free(logsmsg);

  g_free(bn);

  if (st_in_buf == 2 ||

      (st_in_buf == 1 && (status == offline || oldstat == offline))) {

    // Write the status change in the buddy's buffer, only if it already exists

    if (scr_BuddyBufferExists(jid)) {

      bn = g_strdup_printf("Buddy status has changed: [%c>%c] %s",

                           imstatus2char[oldstat], imstatus2char[status],

                           ((status_msg) ? status_msg : ""));

      scr_WriteIncomingMessage(jid, bn, 0, HBB_PREFIX_INFO|HBB_PREFIX_NOFLAG);

      g_free(bn);

    }

  }

  roster_setstatus(jid, rn, prio, status, status_msg, timestamp,

                   role_none, affil_none, NULL);

  buddylist_build();

  scr_DrawRoster();

  hlog_write_status(jid, 0, status, status_msg);

  // External command

  hk_ext_cmd(jid, 'S', imstatus2char[status], NULL);

}

inline void hk_mystatuschange(time_t timestamp, enum imstatus old_status,

                              enum imstatus new_status, const char *msg)

{

  scr_LogPrint(LPRINT_LOGNORM, "Your status has been set: [%c>%c] %s",

               imstatus2char[old_status], imstatus2char[new_status],

               (msg ? msg : ""));

  //hlog_write_status(NULL, 0, status);

}

/* External commands */

//  hk_ext_cmd_init()

// Initialize external command variable.

// Can be called with parameter NULL to reset and free memory.

void hk_ext_cmd_init(const char *command)

{

  if (extcmd) {

    g_free(extcmd);

    extcmd = NULL;

  }

  if (command)

    extcmd = g_strdup(command);

}

//  hk_ext_cmd()

// Launch an external command (process) for the given event.

// For now, data should be NULL.

void hk_ext_cmd(const char *jid, guchar type, guchar info, const char *data)

{

  pid_t pid;

  char *arg_type = NULL;

  char *arg_info = NULL;

  char *arg_data = NULL;

  char status_str[2];

  char *datafname = NULL;

  if (!extcmd) return;

  // Prepare arg_* (external command parameters)

  switch (type) {

    case 'M':

        arg_type = "MSG";

        if (info == 'R')

          arg_info = "IN";

        else if (info == 'S')

          arg_info = "OUT";

        break;

    case 'G':

        arg_type = "MSG";

        arg_info = "MUC";

        break;

    case 'S':

        arg_type = "STATUS";

        if (strchr(imstatus2char, tolower(info))) {

          status_str[0] = toupper(info);

          status_str[1] = 0;

          arg_info = status_str;

        }

        break;

    default:

        return;

  }

  if (!arg_type || !arg_info) return;

  if (strchr("MG", type) && data && settings_opt_get_int("event_log_files")) {

    int fd;

    const char *prefix;

    prefix = settings_opt_get("event_log_dir");

    if (!prefix)

      prefix = ut_get_tmpdir();

    datafname = g_strdup_printf("%s/mcabber-%d.XXXXXX", prefix, getpid());

    // XXX Some old systems may require us to set umask first.

    fd = mkstemp(datafname);

    if (fd == -1) {

      g_free(datafname);

      datafname = NULL;

      scr_LogPrint(LPRINT_LOGNORM,

                   "Unable to create temp file for external command.");

    }

    write(fd, data, strlen(data));

    write(fd, "\n", 1);

    close(fd);

    arg_data = datafname;

  }

  if ((pid=fork()) == -1) {

    scr_LogPrint(LPRINT_LOGNORM, "Fork error, cannot launch external command.");

    if (datafname)

      g_free(datafname);

    return;

  }

  if (pid == 0) { // child

    if (execl(extcmd, extcmd, arg_type, arg_info, jid, arg_data, NULL) == -1) {

      // scr_LogPrint(LPRINT_LOGNORM, "Cannot execute external command.");

      exit(1);

    }

  }

  if (datafname)

    g_free(datafname);

}

/* vim: set expandtab cindent cinoptions=>2\:2(0:  For Vim users... */