/*

 * commands.c   -- user commands handling

 *

 * Copyright (C) 2005-2010 Mikael Berthe <mikael@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 <string.h>

#include <stdlib.h>

#include <sys/types.h>

#include <sys/stat.h>

#include <unistd.h>

#include <errno.h>

#include <glob.h>

#include "config.h"

#include "commands.h"

#include "help.h"

#include "roster.h"

#include "screen.h"

#include "compl.h"

#include "hooks.h"

#include "hbuf.h"

#include "utils.h"

#include "settings.h"

#include "events.h"

#include "otr.h"

#include "utf8.h"

#include "xmpp.h"

#include "main.h"

#define IMSTATUS_AWAY           "away"

#define IMSTATUS_ONLINE         "online"

#define IMSTATUS_OFFLINE        "offline"

#define IMSTATUS_FREE4CHAT      "free"

#define IMSTATUS_AVAILABLE      "avail"

#define IMSTATUS_NOTAVAILABLE   "notavail"

#define IMSTATUS_DONOTDISTURB   "dnd"

#ifdef WITH_DEPRECATED_STATUS_INVISIBLE

# define IMSTATUS_INVISIBLE      "invisible"

#endif

// Return value container for the following functions

static int retval_for_cmds;

// Commands callbacks

static void do_roster(char *arg);

static void do_status(char *arg);

static void do_status_to(char *arg);

static void do_add(char *arg);

static void do_del(char *arg);

static void do_group(char *arg);

static void do_say(char *arg);

static void do_msay(char *arg);

static void do_say_to(char *arg);

static void do_buffer(char *arg);

static void do_clear(char *arg);

static void do_info(char *arg);

static void do_rename(char *arg);

static void do_move(char *arg);

static void do_set(char *arg);

static void do_alias(char *arg);

static void do_bind(char *arg);

static void do_connect(char *arg);

static void do_disconnect(char *arg);

static void do_rawxml(char *arg);

static void do_room(char *arg);

static void do_authorization(char *arg);

static void do_version(char *arg);

static void do_request(char *arg);

static void do_event(char *arg);

static void do_help(char *arg);

static void do_pgp(char *arg);

static void do_iline(char *arg);

static void do_screen_refresh(char *arg);

static void do_chat_disable(char *arg);

static void do_source(char *arg);

static void do_color(char *arg);

static void do_otr(char *arg);

static void do_otrpolicy(char *arg);

static void do_echo(char *arg);

static void do_module(char *arg);

static void room_bookmark(gpointer bud, char *arg);

// Global variable for the commands list

static GSList *Commands;

#ifdef MODULES_ENABLE

#include "modules.h"

gpointer cmd_del(const char *name)

{

  GSList *sl_cmd;

  for (sl_cmd = Commands; sl_cmd; sl_cmd = sl_cmd->next) {

    cmd *command = (cmd *) sl_cmd->data;

    if (!strcmp (command->name, name)) {

      gpointer userdata = command->userdata;

      Commands = g_slist_delete_link(Commands, sl_cmd);

      compl_del_category_word(COMPL_CMD, command->name);

      g_free(command);

      return userdata;

    }

  }

  return NULL;

}

#endif

//  cmd_add()

// Adds a command to the commands list and to the CMD completion list

void cmd_add(const char *name, const char *help, guint flags_row1,

             guint flags_row2, void (*f)(char*), gpointer userdata)

{

  cmd *n_cmd = g_new0(cmd, 1);

  strncpy(n_cmd->name, name, 32-1);

  n_cmd->help = help;

  n_cmd->completion_flags[0] = flags_row1;

  n_cmd->completion_flags[1] = flags_row2;

  n_cmd->func = f;

  n_cmd->userdata = userdata;

  Commands = g_slist_prepend(Commands, n_cmd);

  // Add to completion CMD category

  compl_add_category_word(COMPL_CMD, name);

}

//  cmd_init()

// Commands table initialization

// !!!

// After changing commands names and it arguments names here, you must change

// ones in init_bindings()!

//

void cmd_init(void)

{

  cmd_add("add", "Add a jabber user", COMPL_JID, 0, &do_add, NULL);

  cmd_add("alias", "Add an alias", 0, 0, &do_alias, NULL);

  cmd_add("authorization", "Manage subscription authorizations",

          COMPL_AUTH, COMPL_JID, &do_authorization, NULL);

  cmd_add("bind", "Add an key binding", 0, 0, &do_bind, NULL);

  cmd_add("buffer", "Manipulate current buddy's buffer (chat window)",

          COMPL_BUFFER, 0, &do_buffer, NULL);

  cmd_add("chat_disable", "Disable chat mode", 0, 0, &do_chat_disable, NULL);

  cmd_add("clear", "Clear the dialog window", 0, 0, &do_clear, NULL);

  cmd_add("color", "Set coloring options", COMPL_COLOR, 0, &do_color, NULL);

  cmd_add("connect", "Connect to the server", 0, 0, &do_connect, NULL);

  cmd_add("del", "Delete the current buddy", 0, 0, &do_del, NULL);

  cmd_add("disconnect", "Disconnect from server", 0, 0, &do_disconnect, NULL);

  cmd_add("echo", "Display a string in the log window", 0, 0, &do_echo, NULL);

  cmd_add("event", "Process an event", COMPL_EVENTSID, COMPL_EVENTS, &do_event,

          NULL);

  cmd_add("group", "Change group display settings",

          COMPL_GROUP, COMPL_GROUPNAME, &do_group, NULL);

  cmd_add("help", "Display some help", COMPL_CMD, 0, &do_help, NULL);

  cmd_add("iline", "Manipulate input buffer", 0, 0, &do_iline, NULL);

  cmd_add("info", "Show basic info on current buddy", 0, 0, &do_info, NULL);

  cmd_add("module", "Manipulations with modules", COMPL_MODULE, 0, &do_module,

          NULL);

  cmd_add("move", "Move the current buddy to another group", COMPL_GROUPNAME,

          0, &do_move, NULL);

  cmd_add("msay", "Send a multi-lines message to the selected buddy",

          COMPL_MULTILINE, 0, &do_msay, NULL);

  cmd_add("otr", "Manage OTR settings", COMPL_OTR, COMPL_JID, &do_otr, NULL);

  cmd_add("otrpolicy", "Manage OTR policies", COMPL_JID, COMPL_OTRPOLICY,

          &do_otrpolicy, NULL);

  cmd_add("pgp", "Manage PGP settings", COMPL_PGP, COMPL_JID, &do_pgp, NULL);

  cmd_add("quit", "Exit the software", 0, 0, NULL, NULL);

  cmd_add("rawxml", "Send a raw XML string", 0, 0, &do_rawxml, NULL);

  cmd_add("rename", "Rename the current buddy", 0, 0, &do_rename, NULL);

  cmd_add("request", "Send a Jabber IQ request", COMPL_REQUEST, COMPL_JID,

          &do_request, NULL);

  cmd_add("room", "MUC actions command", COMPL_ROOM, 0, &do_room, NULL);

  cmd_add("roster", "Manipulate the roster/buddylist", COMPL_ROSTER, 0,

          &do_roster, NULL);

  cmd_add("say", "Say something to the selected buddy", 0, 0, &do_say, NULL);

  cmd_add("say_to", "Say something to a specific buddy", COMPL_JID, 0,

          &do_say_to, NULL);

  cmd_add("screen_refresh", "Redraw mcabber screen", 0, 0, &do_screen_refresh,

          NULL);

  cmd_add("set", "Set/query an option value", 0, 0, &do_set, NULL);

  cmd_add("source", "Read a configuration file", 0, 0, &do_source, NULL);

  cmd_add("status", "Show or set your status", COMPL_STATUS, 0, &do_status,

          NULL);

  cmd_add("status_to", "Show or set your status for one recipient",

          COMPL_JID, COMPL_STATUS, &do_status_to, NULL);

  cmd_add("version", "Show mcabber version", 0, 0, &do_version, NULL);

  // Status category

  compl_add_category_word(COMPL_STATUS, "online");

  compl_add_category_word(COMPL_STATUS, "avail");

#ifdef WITH_DEPRECATED_STATUS_INVISIBLE

  compl_add_category_word(COMPL_STATUS, "invisible");

#endif

  compl_add_category_word(COMPL_STATUS, "free");

  compl_add_category_word(COMPL_STATUS, "dnd");

  compl_add_category_word(COMPL_STATUS, "notavail");

  compl_add_category_word(COMPL_STATUS, "away");

  compl_add_category_word(COMPL_STATUS, "offline");

  compl_add_category_word(COMPL_STATUS, "message");

  // Roster category

  compl_add_category_word(COMPL_ROSTER, "bottom");

  compl_add_category_word(COMPL_ROSTER, "top");

  compl_add_category_word(COMPL_ROSTER, "up");

  compl_add_category_word(COMPL_ROSTER, "down");

  compl_add_category_word(COMPL_ROSTER, "group_prev");

  compl_add_category_word(COMPL_ROSTER, "group_next");

  compl_add_category_word(COMPL_ROSTER, "hide");

  compl_add_category_word(COMPL_ROSTER, "show");

  compl_add_category_word(COMPL_ROSTER, "toggle");

  compl_add_category_word(COMPL_ROSTER, "display");

  compl_add_category_word(COMPL_ROSTER, "hide_offline");

  compl_add_category_word(COMPL_ROSTER, "show_offline");

  compl_add_category_word(COMPL_ROSTER, "toggle_offline");

  compl_add_category_word(COMPL_ROSTER, "item_lock");

  compl_add_category_word(COMPL_ROSTER, "item_unlock");

  compl_add_category_word(COMPL_ROSTER, "item_toggle_lock");

  compl_add_category_word(COMPL_ROSTER, "alternate");

  compl_add_category_word(COMPL_ROSTER, "search");

  compl_add_category_word(COMPL_ROSTER, "unread_first");

  compl_add_category_word(COMPL_ROSTER, "unread_next");

  compl_add_category_word(COMPL_ROSTER, "note");

  // Buffer category

  compl_add_category_word(COMPL_BUFFER, "clear");

  compl_add_category_word(COMPL_BUFFER, "bottom");

  compl_add_category_word(COMPL_BUFFER, "top");

  compl_add_category_word(COMPL_BUFFER, "up");

  compl_add_category_word(COMPL_BUFFER, "down");

  compl_add_category_word(COMPL_BUFFER, "search_backward");

  compl_add_category_word(COMPL_BUFFER, "search_forward");

  compl_add_category_word(COMPL_BUFFER, "readmark");

  compl_add_category_word(COMPL_BUFFER, "date");

  compl_add_category_word(COMPL_BUFFER, "%");

  compl_add_category_word(COMPL_BUFFER, "purge");

  compl_add_category_word(COMPL_BUFFER, "close");

  compl_add_category_word(COMPL_BUFFER, "close_all");

  compl_add_category_word(COMPL_BUFFER, "scroll_lock");

  compl_add_category_word(COMPL_BUFFER, "scroll_unlock");

  compl_add_category_word(COMPL_BUFFER, "scroll_toggle");

  compl_add_category_word(COMPL_BUFFER, "list");

  compl_add_category_word(COMPL_BUFFER, "save");

  // Group category

  compl_add_category_word(COMPL_GROUP, "fold");

  compl_add_category_word(COMPL_GROUP, "unfold");

  compl_add_category_word(COMPL_GROUP, "toggle");

  // Multi-line (msay) category

  compl_add_category_word(COMPL_MULTILINE, "abort");

  compl_add_category_word(COMPL_MULTILINE, "begin");

  compl_add_category_word(COMPL_MULTILINE, "send");

  compl_add_category_word(COMPL_MULTILINE, "send_to");

  compl_add_category_word(COMPL_MULTILINE, "toggle");

  compl_add_category_word(COMPL_MULTILINE, "toggle_verbatim");

  compl_add_category_word(COMPL_MULTILINE, "verbatim");

  // Room category

  compl_add_category_word(COMPL_ROOM, "affil");

  compl_add_category_word(COMPL_ROOM, "ban");

  compl_add_category_word(COMPL_ROOM, "bookmark");

  compl_add_category_word(COMPL_ROOM, "destroy");

  compl_add_category_word(COMPL_ROOM, "invite");

  compl_add_category_word(COMPL_ROOM, "join");

  compl_add_category_word(COMPL_ROOM, "kick");

  compl_add_category_word(COMPL_ROOM, "leave");

  compl_add_category_word(COMPL_ROOM, "names");

  compl_add_category_word(COMPL_ROOM, "nick");

  compl_add_category_word(COMPL_ROOM, "privmsg");

  compl_add_category_word(COMPL_ROOM, "remove");

  compl_add_category_word(COMPL_ROOM, "role");

  compl_add_category_word(COMPL_ROOM, "setopt");

  compl_add_category_word(COMPL_ROOM, "topic");

  compl_add_category_word(COMPL_ROOM, "unban");

  compl_add_category_word(COMPL_ROOM, "unlock");

  compl_add_category_word(COMPL_ROOM, "whois");

  // Authorization category

  compl_add_category_word(COMPL_AUTH, "allow");

  compl_add_category_word(COMPL_AUTH, "cancel");

  compl_add_category_word(COMPL_AUTH, "request");

  compl_add_category_word(COMPL_AUTH, "request_unsubscribe");

  // Request (query) category

  compl_add_category_word(COMPL_REQUEST, "last");

  compl_add_category_word(COMPL_REQUEST, "ping");

  compl_add_category_word(COMPL_REQUEST, "time");

  compl_add_category_word(COMPL_REQUEST, "vcard");

  compl_add_category_word(COMPL_REQUEST, "version");

  // Events category

  compl_add_category_word(COMPL_EVENTS, "accept");

  compl_add_category_word(COMPL_EVENTS, "ignore");

  compl_add_category_word(COMPL_EVENTS, "reject");

  // PGP category

  compl_add_category_word(COMPL_PGP, "disable");

  compl_add_category_word(COMPL_PGP, "enable");

  compl_add_category_word(COMPL_PGP, "force");

  compl_add_category_word(COMPL_PGP, "info");

  compl_add_category_word(COMPL_PGP, "setkey");

  // OTR category

  compl_add_category_word(COMPL_OTR, "start");

  compl_add_category_word(COMPL_OTR, "stop");

  compl_add_category_word(COMPL_OTR, "fingerprint");

  compl_add_category_word(COMPL_OTR, "smpq");

  compl_add_category_word(COMPL_OTR, "smpr");

  compl_add_category_word(COMPL_OTR, "smpa");

  compl_add_category_word(COMPL_OTR, "info");

  compl_add_category_word(COMPL_OTR, "key");

  // OTR Policy category

  compl_add_category_word(COMPL_OTRPOLICY, "plain");

  compl_add_category_word(COMPL_OTRPOLICY, "manual");

  compl_add_category_word(COMPL_OTRPOLICY, "opportunistic");

  compl_add_category_word(COMPL_OTRPOLICY, "always");

  // Color category

  compl_add_category_word(COMPL_COLOR, "roster");

  compl_add_category_word(COMPL_COLOR, "muc");

  compl_add_category_word(COMPL_COLOR, "mucnick");

#ifdef MODULES_ENABLE

  // Module category

  compl_add_category_word(COMPL_MODULE, "info");

  compl_add_category_word(COMPL_MODULE, "list");

  compl_add_category_word(COMPL_MODULE, "load");

  compl_add_category_word(COMPL_MODULE, "unload");

#endif

}

//  expandalias(line)

// If there is one, expand the alias in line and returns a new allocated line

// If no alias is found, returns line

// Note: if the returned pointer is different from line, the caller should

//       g_free() the pointer after use

char *expandalias(const char *line)

{

  const char *p1, *p2;

  char *word;

  const gchar *value;

  char *newline = (char*)line;

  // Ignore leading COMMAND_CHAR

  for (p1 = line ; *p1 == COMMAND_CHAR ; p1++)

    ;

  // Locate the end of the word

  for (p2 = p1 ; *p2 && (*p2 != ' ') ; p2++)

    ;

  // Extract the word and look for an alias in the list

  word = g_strndup(p1, p2-p1);