/*

 * commands.c   -- user commands handling

 *

 * Copyright (C) 2005, 2006 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 <string.h>

#include "commands.h"

#include "help.h"

#include "jabglue.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"

#define IMSTATUS_AWAY           "away"

#define IMSTATUS_ONLINE         "online"

#define IMSTATUS_OFFLINE        "offline"

#define IMSTATUS_FREE4CHAT      "free"

#define IMSTATUS_INVISIBLE      "invisible"

#define IMSTATUS_AVAILABLE      "avail"

#define IMSTATUS_NOTAVAILABLE   "notavail"

#define IMSTATUS_DONOTDISTURB   "dnd"

// 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);

// Global variable for the commands list

static GSList *Commands;

//  cmd_add()

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

static void cmd_add(const char *name, const char *help,

{

  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;

  Commands = g_slist_append(Commands, n_cmd);

  // Add to completion CMD category

  compl_add_category_word(COMPL_CMD, name);

}

//  cmd_init()

// Commands table initialization

void cmd_init(void)

{

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

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

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

          COMPL_AUTH, COMPL_JID, &do_authorization);

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

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

          COMPL_BUFFER, 0, &do_buffer);

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

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

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

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

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

  cmd_add("group", "Change group display settings", COMPL_GROUP, 0, &do_group);

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

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

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

          0, &do_move);

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

          COMPL_MULTILINE, 0, &do_msay);

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

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

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

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

          &do_request);

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

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

          &do_roster);

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

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

          &do_say_to);

  //cmd_add("search");

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

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

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

          COMPL_JID, COMPL_STATUS, &do_status_to);

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

  // Status category

  compl_add_category_word(COMPL_STATUS, "online");

  compl_add_category_word(COMPL_STATUS, "avail");

  compl_add_category_word(COMPL_STATUS, "invisible");

  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");

  // 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, "hide");

  compl_add_category_word(COMPL_ROSTER, "show");

  compl_add_category_word(COMPL_ROSTER, "toggle");

  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, "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");

  // Roster 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, "date");

  compl_add_category_word(COMPL_BUFFER, "%");

  compl_add_category_word(COMPL_BUFFER, "purge");

  compl_add_category_word(COMPL_BUFFER, "scroll_lock");

  compl_add_category_word(COMPL_BUFFER, "scroll_unlock");

  compl_add_category_word(COMPL_BUFFER, "scroll_toggle");

  // 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, "topic");

  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, "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");

}

//  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(char *line)

{

  const char *p1, *p2;

  char *word;

  const gchar *value;

  char *newline = 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

  word = g_strndup(p1, p2-p1);

  // Look for an alias in the list

  value = settings_get(SETTINGS_TYPE_ALIAS, (const char*)word);

  if (value) {

    // There is an alias to expand

    newline = g_new(char, strlen(value)+strlen(p2)+2);

    *newline = COMMAND_CHAR;

    strcpy(newline+1, value);

    strcat(newline, p2);

  }

  g_free(word);

  return newline;

}

//  cmd_get

// Finds command in the command list structure.

// Returns a pointer to the cmd entry, or NULL if command not found.

cmd *cmd_get(const char *command)

{

  const char *p1, *p2;

  char *com;

  GSList *sl_com;

  // Ignore leading COMMAND_CHAR

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

    ;

  // Locate the end of the command

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

    ;

  // Copy the clean command

  com = g_strndup(p1, p2-p1);

  // Look for command in the list

  for (sl_com=Commands; sl_com; sl_com = g_slist_next(sl_com)) {

    if (!strcasecmp(com, ((cmd*)sl_com->data)->name))

      break;

  }

  g_free(com);

  if (sl_com)       // Command has been found.

    return (cmd*)sl_com->data;

  return NULL;

}

//  send_message(msg)

// Write the message in the buddy's window and send the message on

// the network.

static void send_message(const char *msg, const char *subj)

{

  const char *bjid;

  guint crypted;

  if (!jb_getonline()) {

    scr_LogPrint(LPRINT_NORMAL, "You are not connected.");

    return;

  }

  if (!current_buddy) {

    scr_LogPrint(LPRINT_NORMAL, "No buddy is currently selected.");

    return;

  }

  bjid = CURRENT_JID;

  if (!bjid) {

    scr_LogPrint(LPRINT_NORMAL, "No buddy is currently selected.");

    return;

  }

  // Network part

  jb_send_msg(bjid, msg, buddy_gettype(BUDDATA(current_buddy)), subj, NULL,

              &crypted);

  // Hook

  if (buddy_gettype(BUDDATA(current_buddy)) != ROSTER_TYPE_ROOM) {

    // local part (UI, logging, etc.)

    gchar *hmsg;

    if (subj)

      hmsg = g_strdup_printf("[%s]\n%s", subj, msg);

    else

      hmsg = (char*)msg;

    hk_message_out(bjid, NULL, 0, hmsg, crypted);

    if (hmsg != msg) g_free(hmsg);

  }

}

//  process_command(line)

// Process a command line.

// Return 255 if this is the /quit command, and 0 for the other commands.

int process_command(char *line)

{

  char *p;

  char *xpline;

  cmd *curcmd;

  // We do alias expansion here

  if (scr_get_multimode() != 2)

    xpline = expandalias(line);

  else

    xpline = line; // No expansion in verbatim multi-line mode

  // We want to have a copy

  if (xpline == line)

    xpline = g_strdup(line);

  // Remove trailing spaces:

  for (p=xpline ; *p ; p++)

    ;

  for (p-- ; p>xpline && (*p == ' ') ; p--)

    *p = 0;

  // Command "quit"?

  if ((scr_get_multimode() != 2)

      && (!strncasecmp(xpline, mkcmdstr("quit"), strlen(mkcmdstr("quit")))))

    if (!xpline[5] || xpline[5] == ' ')

      return 255;

  // If verbatim multi-line mode, we check if another /msay command is typed

  if ((scr_get_multimode() == 2)

      && (strncasecmp(xpline, mkcmdstr("msay "), strlen(mkcmdstr("msay "))))) {

    // It isn't an /msay command

    scr_append_multiline(xpline);

    g_free(xpline);

    return 0;

  }