mcabber: mcabber/src/commands.c annotate

annotate mcabber/src/commands.c @ 638:f6946251acdf

"/add" can be used with no jid (it will use the current buddy's jid)

author	Mikael Berthe <mikael@lilotux.net>
date	Wed, 28 Dec 2005 11:08:39 +0100
parents	f84cce8382e8
children	1cd7f8e3895b

rev	line source
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	1 /*
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	2 * commands.c -- user commands handling
393 f8f3c7493457 Whitespace cleanup Mikael Berthe <mikael@lilotux.net> parents: 384 diff changeset	3 *
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	4 * Copyright (C) 2005 Mikael Berthe <bmikael@lists.lilotux.net>
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	5 *
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	6 * This program is free software; you can redistribute it and/or modify
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	7 * it under the terms of the GNU General Public License as published by
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	8 * the Free Software Foundation; either version 2 of the License, or (at
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	9 * your option) any later version.
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	10 *
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	11 * This program is distributed in the hope that it will be useful, but
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	12 * WITHOUT ANY WARRANTY; without even the implied warranty of
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	14 * General Public License for more details.
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	15 *
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	16 * You should have received a copy of the GNU General Public License
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	17 * along with this program; if not, write to the Free Software
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	19 * USA
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	20 */
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	21
95 9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	22 #include <string.h>
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	23
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	24 #include "commands.h"
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	25 #include "jabglue.h"
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 47 diff changeset	26 #include "roster.h"
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	27 #include "screen.h"
95 9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	28 #include "compl.h"
113 8ac67e951eab [/trunk] Changeset 127 by mikael mikael parents: 108 diff changeset	29 #include "hooks.h"
191 24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	30 #include "hbuf.h"
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	31 #include "utils.h"
283 00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	32 #include "settings.h"
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	33
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	34 // Commands callbacks
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	35 static void do_roster(char *arg);
eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	36 static void do_status(char *arg);
444 5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	37 static void do_status_to(char *arg);
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	38 static void do_add(char *arg);
eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	39 static void do_del(char *arg);
eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	40 static void do_group(char *arg);
eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	41 static void do_say(char *arg);
eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	42 static void do_msay(char *arg);
480 882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 475 diff changeset	43 static void do_say_to(char *arg);
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	44 static void do_buffer(char *arg);
eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	45 static void do_clear(char *arg);
eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	46 static void do_info(char *arg);
eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	47 static void do_rename(char *arg);
eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	48 static void do_move(char *arg);
eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	49 static void do_set(char *arg);
eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	50 static void do_alias(char *arg);
eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	51 static void do_bind(char *arg);
eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	52 static void do_connect(char *arg);
eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	53 static void do_disconnect(char *arg);
436 802da817a684 Add /rawxml command Mikael Berthe <mikael@lilotux.net> parents: 416 diff changeset	54 static void do_rawxml(char *arg);
447 03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	55 static void do_room(char *arg);
617 d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	56 static void do_authorization(char *arg);
622 2b7ef605ddc6 Add /version command Mikael Berthe <mikael@lilotux.net> parents: 620 diff changeset	57 static void do_version(char *arg);
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	58
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	59 // Global variable for the commands list
95 9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	60 static GSList *Commands;
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	61
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	62
95 9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	63 // cmd_add()
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	64 // Adds a command to the commands list and to the CMD completion list
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	65 void cmd_add(const char name, const char help,
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	66 guint flags_row1, guint flags_row2, void (*f)())
95 9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	67 {
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	68 cmd *n_cmd = g_new0(cmd, 1);
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	69 strncpy(n_cmd->name, name, 32-1);
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	70 n_cmd->help = help;
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	71 n_cmd->completion_flags[0] = flags_row1;
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	72 n_cmd->completion_flags[1] = flags_row2;
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	73 n_cmd->func = f;
102 2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	74 Commands = g_slist_append(Commands, n_cmd);
95 9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	75 // Add to completion CMD category
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	76 compl_add_category_word(COMPL_CMD, name);
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	77 }
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	78
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	79 // cmd_init()
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	80 // ...
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	81 void cmd_init(void)
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	82 {
124 6d2122c003c4 [/trunk] Changeset 137 by mikael mikael parents: 120 diff changeset	83 cmd_add("add", "Add a jabber user", COMPL_JID, 0, &do_add);
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	84 cmd_add("alias", "Add an alias", 0, 0, &do_alias);
617 d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	85 cmd_add("authorization", "Manage subscription authorizations",
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	86 COMPL_AUTH, COMPL_JID, &do_authorization);
288 1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	87 cmd_add("bind", "Add an key binding", 0, 0, &do_bind);
187 4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 166 diff changeset	88 cmd_add("buffer", "Manipulate current buddy's buffer (chat window)",
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 166 diff changeset	89 COMPL_BUFFER, 0, &do_buffer);
108 7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 104 diff changeset	90 cmd_add("clear", "Clear the dialog window", 0, 0, &do_clear);
298 35cda94e570d Add /connect and /disconnect commands Mikael Berthe <mikael@lilotux.net> parents: 290 diff changeset	91 cmd_add("connect", "Connect to the server", 0, 0, &do_connect);
205 e01bf6d9b4b8 [/trunk] Changeset 217 by mikael mikael parents: 191 diff changeset	92 cmd_add("del", "Delete the current buddy", 0, 0, &do_del);
298 35cda94e570d Add /connect and /disconnect commands Mikael Berthe <mikael@lilotux.net> parents: 290 diff changeset	93 cmd_add("disconnect", "Disconnect from server", 0, 0, &do_disconnect);
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	94 cmd_add("group", "Change group display settings", COMPL_GROUP, 0, &do_group);
262 ab6f83a82811 Do not add /help to command completion, as it isn't implemented yet. mikael@frmp8452 parents: 260 diff changeset	95 //cmd_add("help", "Display some help", COMPL_CMD, 0, NULL);
191 24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	96 cmd_add("info", "Show basic infos on current buddy", 0, 0, &do_info);
225 d5ae42cbe1fa [/trunk] Changeset 237 by mikael mikael parents: 221 diff changeset	97 cmd_add("move", "Move the current buddy to another group", COMPL_GROUPNAME,
d5ae42cbe1fa [/trunk] Changeset 237 by mikael mikael parents: 221 diff changeset	98 0, &do_move);
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	99 cmd_add("msay", "Send a multi-lines message to the selected buddy",
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	100 COMPL_MULTILINE, 0, &do_msay);
447 03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	101 cmd_add("room", "MUC actions command", COMPL_ROOM, 0, &do_room);
95 9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	102 cmd_add("quit", "Exit the software", 0, 0, NULL);
436 802da817a684 Add /rawxml command Mikael Berthe <mikael@lilotux.net> parents: 416 diff changeset	103 cmd_add("rawxml", "Send a raw XML string", 0, 0, &do_rawxml);
208 8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	104 cmd_add("rename", "Rename the current buddy", 0, 0, &do_rename);
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	105 cmd_add("roster", "Manipulate the roster/buddylist", COMPL_ROSTER, 0,
81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	106 &do_roster);
132 6531bcf030ae [/trunk] Changeset 145 by mikael mikael parents: 130 diff changeset	107 cmd_add("say", "Say something to the selected buddy", 0, 0, &do_say);
488 9e8519078e00 Enable jid completion for /say_to Mikael Berthe <mikael@lilotux.net> parents: 486 diff changeset	108 cmd_add("say_to", "Say something to a specific buddy", COMPL_JID, 0,
9e8519078e00 Enable jid completion for /say_to Mikael Berthe <mikael@lilotux.net> parents: 486 diff changeset	109 &do_say_to);
95 9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	110 //cmd_add("search");
310 29b27c8692ea Post-0.6.3 changes Mikael Berthe <mikael@lilotux.net> parents: 308 diff changeset	111 cmd_add("set", "Set/query an option value", 0, 0, &do_set);
116 1e7e59775f12 [/trunk] Changeset 130 by mikael mikael parents: 113 diff changeset	112 cmd_add("status", "Show or set your status", COMPL_STATUS, 0, &do_status);
444 5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	113 cmd_add("status_to", "Show or set your status for one recipient",
5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	114 COMPL_JID, COMPL_STATUS, &do_status_to);
622 2b7ef605ddc6 Add /version command Mikael Berthe <mikael@lilotux.net> parents: 620 diff changeset	115 cmd_add("version", "Show mcabber version", 0, 0, &do_version);
95 9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	116
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	117 // Status category
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	118 compl_add_category_word(COMPL_STATUS, "online");
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	119 compl_add_category_word(COMPL_STATUS, "avail");
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	120 compl_add_category_word(COMPL_STATUS, "invisible");
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	121 compl_add_category_word(COMPL_STATUS, "free");
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	122 compl_add_category_word(COMPL_STATUS, "dnd");
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	123 compl_add_category_word(COMPL_STATUS, "notavail");
9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	124 compl_add_category_word(COMPL_STATUS, "away");
103 93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	125
93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	126 // Roster category
93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	127 compl_add_category_word(COMPL_ROSTER, "bottom");
265 49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 262 diff changeset	128 compl_add_category_word(COMPL_ROSTER, "top");
377 00809e3e327e Add "/roster up" and "/roster down" Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	129 compl_add_category_word(COMPL_ROSTER, "up");
00809e3e327e Add "/roster up" and "/roster down" Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	130 compl_add_category_word(COMPL_ROSTER, "down");
103 93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	131 compl_add_category_word(COMPL_ROSTER, "hide_offline");
93dcc4e15d4a [/trunk] Changeset 117 by mikael mikael parents: 102 diff changeset	132 compl_add_category_word(COMPL_ROSTER, "show_offline");
290 f63839a4cb35 Add /roster toggle_offline Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	133 compl_add_category_word(COMPL_ROSTER, "toggle_offline");
330 a9013124ede6 Add "/roster alternate" Mikael Berthe <mikael@lilotux.net> parents: 318 diff changeset	134 compl_add_category_word(COMPL_ROSTER, "alternate");
265 49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 262 diff changeset	135 compl_add_category_word(COMPL_ROSTER, "search");
236 72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	136 compl_add_category_word(COMPL_ROSTER, "unread_first");
72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	137 compl_add_category_word(COMPL_ROSTER, "unread_next");
127 0f7ec11efd06 [/trunk] Changeset 140 by mikael mikael parents: 124 diff changeset	138
187 4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 166 diff changeset	139 // Roster category
508 5a2132ba2220 Add "/buffer up" and "/buffer down" Mikael Berthe <mikael@lilotux.net> parents: 506 diff changeset	140 compl_add_category_word(COMPL_BUFFER, "clear");
187 4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 166 diff changeset	141 compl_add_category_word(COMPL_BUFFER, "bottom");
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 166 diff changeset	142 compl_add_category_word(COMPL_BUFFER, "top");
508 5a2132ba2220 Add "/buffer up" and "/buffer down" Mikael Berthe <mikael@lilotux.net> parents: 506 diff changeset	143 compl_add_category_word(COMPL_BUFFER, "up");
5a2132ba2220 Add "/buffer up" and "/buffer down" Mikael Berthe <mikael@lilotux.net> parents: 506 diff changeset	144 compl_add_category_word(COMPL_BUFFER, "down");
370 dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	145 compl_add_category_word(COMPL_BUFFER, "search_backward");
dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	146 compl_add_category_word(COMPL_BUFFER, "search_forward");
464 e4840b288be0 Add "/buffer date" Mikael Berthe <mikael@lilotux.net> parents: 462 diff changeset	147 compl_add_category_word(COMPL_BUFFER, "date");
462 d580e87c11ed Add "/buffer %n" Mikael Berthe <mikael@lilotux.net> parents: 461 diff changeset	148 compl_add_category_word(COMPL_BUFFER, "%");
187 4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 166 diff changeset	149
127 0f7ec11efd06 [/trunk] Changeset 140 by mikael mikael parents: 124 diff changeset	150 // Group category
240 723433a677f0 [/trunk] Changeset 253 by mikael mikael parents: 238 diff changeset	151 compl_add_category_word(COMPL_GROUP, "fold");
723433a677f0 [/trunk] Changeset 253 by mikael mikael parents: 238 diff changeset	152 compl_add_category_word(COMPL_GROUP, "unfold");
130 60694c9ddde3 [/trunk] Changeset 143 by mikael mikael parents: 129 diff changeset	153 compl_add_category_word(COMPL_GROUP, "toggle");
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	154
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	155 // Multi-line (msay) category
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	156 compl_add_category_word(COMPL_MULTILINE, "abort");
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	157 compl_add_category_word(COMPL_MULTILINE, "begin");
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	158 compl_add_category_word(COMPL_MULTILINE, "send");
636 f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	159 compl_add_category_word(COMPL_MULTILINE, "send_to");
260 33e1a05864a6 Add "verbatim multi-line" mode, with commands disabled mikael@frmp8452 parents: 244 diff changeset	160 compl_add_category_word(COMPL_MULTILINE, "verbatim");
447 03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	161
03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	162 // Room category
585 7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	163 compl_add_category_word(COMPL_ROOM, "affil");
571 d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	164 compl_add_category_word(COMPL_ROOM, "ban");
599 fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	165 compl_add_category_word(COMPL_ROOM, "destroy");
486 2a6a8ebb813b Add "/room invite" Mikael Berthe <mikael@lilotux.net> parents: 484 diff changeset	166 compl_add_category_word(COMPL_ROOM, "invite");
447 03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	167 compl_add_category_word(COMPL_ROOM, "join");
568 eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	168 compl_add_category_word(COMPL_ROOM, "kick");
447 03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	169 compl_add_category_word(COMPL_ROOM, "leave");
03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	170 compl_add_category_word(COMPL_ROOM, "names");
470 eaa2ad773192 Add "/room nick" Mikael Berthe <mikael@lilotux.net> parents: 469 diff changeset	171 compl_add_category_word(COMPL_ROOM, "nick");
490 af6e31e32d9e Add "/room privmsg" Mikael Berthe <mikael@lilotux.net> parents: 488 diff changeset	172 compl_add_category_word(COMPL_ROOM, "privmsg");
448 39a28cb59af3 Add "/room remove", to remove an old chatroom from the roster Mikael Berthe <mikael@lilotux.net> parents: 447 diff changeset	173 compl_add_category_word(COMPL_ROOM, "remove");
585 7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	174 compl_add_category_word(COMPL_ROOM, "role");
475 fa49ac0bb8f3 Add "/room topic", and display topic changes Mikael Berthe <mikael@lilotux.net> parents: 472 diff changeset	175 compl_add_category_word(COMPL_ROOM, "topic");
449 e08b0c2d0e54 Add "/room unlock" Mikael Berthe <mikael@lilotux.net> parents: 448 diff changeset	176 compl_add_category_word(COMPL_ROOM, "unlock");
572 afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	177 compl_add_category_word(COMPL_ROOM, "whois");
617 d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	178
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	179 // Authorization category
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	180 compl_add_category_word(COMPL_AUTH, "allow");
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	181 compl_add_category_word(COMPL_AUTH, "cancel");
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	182 compl_add_category_word(COMPL_AUTH, "request");
95 9e6b7897ec37 [/trunk] Changeset 109 by mikael mikael parents: 94 diff changeset	183 }
94 9a4aa2797f02 [/trunk] Changeset 108 by mikael mikael parents: 81 diff changeset	184
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	185 // expandalias(line)
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	186 // If there is one, expand the alias in line and returns a new allocated line
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	187 // If no alias is found, returns line
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	188 // Note : if the returned pointer is different from line, the caller should
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	189 // g_free() the pointer after use
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	190 char expandalias(char line)
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	191 {
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	192 const char p1, p2;
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	193 char *word;
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	194 const gchar *value;
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	195 char *newline = line;
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	196
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	197 // Ignore leading '/'
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	198 for (p1 = line ; *p1 == '/' ; p1++)
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	199 ;
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	200 // Locate the end of the word
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	201 for (p2 = p1 ; p2 && (p2 != ' ') ; p2++)
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	202 ;
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	203 // Extract the word
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	204 word = g_strndup(p1, p2-p1);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	205
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	206 // Look for an alias in the list
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	207 value = settings_get(SETTINGS_TYPE_ALIAS, (const char*)word);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	208 if (value) {
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	209 // There is an alias to expand
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	210 newline = g_new(char, strlen(value)+strlen(p2)+2);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	211 *newline = '/';
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	212 strcpy(newline+1, value);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	213 strcat(newline, p2);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	214 }
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	215 g_free(word);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	216
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	217 return newline;
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	218 }
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	219
102 2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	220 // cmd_get
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	221 // Finds command in the command list structure.
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	222 // Returns a pointer to the cmd entry, or NULL if command not found.
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	223 cmd cmd_get(const char command)
102 2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	224 {
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	225 const char p1, p2;
102 2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	226 char *com;
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	227 GSList *sl_com;
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	228
102 2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	229 // Ignore leading '/'
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	230 for (p1 = command ; *p1 == '/' ; p1++)
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	231 ;
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	232 // Locate the end of the command
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	233 for (p2 = p1 ; p2 && (p2 != ' ') ; p2++)
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	234 ;
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	235 // Copy the clean command
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	236 com = g_strndup(p1, p2-p1);
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	237
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	238 // Look for command in the list
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	239 for (sl_com=Commands; sl_com; sl_com = g_slist_next(sl_com)) {
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	240 if (!strcasecmp(com, ((cmd*)sl_com->data)->name))
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	241 break;
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	242 }
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	243 g_free(com);
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	244
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	245 if (sl_com) // Command has been found.
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	246 return (cmd*)sl_com->data;
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	247 return NULL;
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	248 }
2b4cc6bc5bf2 [/trunk] Changeset 116 by mikael mikael parents: 101 diff changeset	249
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	250 // send_message(msg)
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	251 // Write the message in the buddy's window and send the message on
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	252 // the network.
636 f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	253 static void send_message(const char *msg)
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	254 {
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 47 diff changeset	255 const char *jid;
393 f8f3c7493457 Whitespace cleanup Mikael Berthe <mikael@lilotux.net> parents: 384 diff changeset	256
472 75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	257 if (!jb_getonline()) {
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	258 scr_LogPrint(LPRINT_NORMAL, "You are not connected");
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	259 return;
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	260 }
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	261
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 47 diff changeset	262 if (!current_buddy) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	263 scr_LogPrint(LPRINT_NORMAL, "No buddy currently selected.");
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 47 diff changeset	264 return;
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 47 diff changeset	265 }
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 47 diff changeset	266
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 47 diff changeset	267 jid = CURRENT_JID;
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 47 diff changeset	268 if (!jid) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	269 scr_LogPrint(LPRINT_NORMAL, "No buddy currently selected.");
81 0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 47 diff changeset	270 return;
0bd578421ce9 [/trunk] Changeset 95 by mikael mikael parents: 47 diff changeset	271 }
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	272
447 03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	273 if (buddy_gettype(BUDDATA(current_buddy)) != ROSTER_TYPE_ROOM) {
03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	274 // local part (UI, logging, etc.)
484 00e2d3821a5b Display PRIV for private messages in a room when using /say_to Mikael Berthe <mikael@lilotux.net> parents: 480 diff changeset	275 hk_message_out(jid, NULL, 0, msg);
447 03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	276 }
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	277
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	278 // Network part
475 fa49ac0bb8f3 Add "/room topic", and display topic changes Mikael Berthe <mikael@lilotux.net> parents: 472 diff changeset	279 jb_send_msg(jid, msg, buddy_gettype(BUDDATA(current_buddy)), NULL);
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	280 }
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	281
288 1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	282 // process_command(line)
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	283 // Process a command line.
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	284 // Return 255 if this is the /quit command, and 0 for the other commands.
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	285 int process_command(char *line)
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	286 {
101 4f3ad00b5187 [/trunk] Changeset 115 by mikael mikael parents: 98 diff changeset	287 char *p;
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	288 char *xpline;
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	289 cmd *curcmd;
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	290
101 4f3ad00b5187 [/trunk] Changeset 115 by mikael mikael parents: 98 diff changeset	291 // Remove trailing spaces:
4f3ad00b5187 [/trunk] Changeset 115 by mikael mikael parents: 98 diff changeset	292 for (p=line ; *p ; p++)
4f3ad00b5187 [/trunk] Changeset 115 by mikael mikael parents: 98 diff changeset	293 ;
4f3ad00b5187 [/trunk] Changeset 115 by mikael mikael parents: 98 diff changeset	294 for (p-- ; p>line && (*p == ' ') ; p--)
4f3ad00b5187 [/trunk] Changeset 115 by mikael mikael parents: 98 diff changeset	295 *p = 0;
4f3ad00b5187 [/trunk] Changeset 115 by mikael mikael parents: 98 diff changeset	296
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	297 // We do alias expansion here
288 1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	298 if (scr_get_multimode() != 2)
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	299 xpline = expandalias(line);
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	300 else
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	301 xpline = line; // No expansion in verbatim multi-line mode
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	302
101 4f3ad00b5187 [/trunk] Changeset 115 by mikael mikael parents: 98 diff changeset	303 // Command "quit"?
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	304 if ((!strncasecmp(xpline, "/quit", 5)) && (scr_get_multimode() != 2) )
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	305 if (!xpline[5] \|\| xpline[5] == ' ')
116 1e7e59775f12 [/trunk] Changeset 130 by mikael mikael parents: 113 diff changeset	306 return 255;
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	307
260 33e1a05864a6 Add "verbatim multi-line" mode, with commands disabled mikael@frmp8452 parents: 244 diff changeset	308 // If verbatim multi-line mode, we check if another /msay command is typed
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	309 if ((scr_get_multimode() == 2) && (strncasecmp(xpline, "/msay ", 6))) {
260 33e1a05864a6 Add "verbatim multi-line" mode, with commands disabled mikael@frmp8452 parents: 244 diff changeset	310 // It isn't an /msay command
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	311 scr_append_multiline(xpline);
260 33e1a05864a6 Add "verbatim multi-line" mode, with commands disabled mikael@frmp8452 parents: 244 diff changeset	312 return 0;
33e1a05864a6 Add "verbatim multi-line" mode, with commands disabled mikael@frmp8452 parents: 244 diff changeset	313 }
33e1a05864a6 Add "verbatim multi-line" mode, with commands disabled mikael@frmp8452 parents: 244 diff changeset	314
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	315 // Commands handling
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	316 curcmd = cmd_get(xpline);
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	317
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	318 if (!curcmd) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	319 scr_LogPrint(LPRINT_NORMAL, "Unrecognized command, sorry.");
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	320 if (xpline != line) g_free(xpline);
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	321 return 0;
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	322 }
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	323 if (!curcmd->func) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	324 scr_LogPrint(LPRINT_NORMAL, "Not yet implemented, sorry.");
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	325 if (xpline != line) g_free(xpline);
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	326 return 0;
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	327 }
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	328 // Lets go to the command parameters
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	329 for (p = xpline+1; p && (p != ' ') ; p++)
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	330 ;
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	331 // Skip spaces
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	332 while (p && (p == ' '))
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	333 p++;
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	334 // Call command-specific function
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	335 (*curcmd->func)(p);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	336 if (xpline != line) g_free(xpline);
47 7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	337 return 0;
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	338 }
7259a61e1a4b [/trunk] Changeset 63 by mikael mikael parents: diff changeset	339
288 1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	340 // process_line(line)
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	341 // Process a command/message line.
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	342 // If this isn't a command, this is a message and it is sent to the
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	343 // currently selected buddy.
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	344 // Return 255 if the line is the /quit command, or 0.
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	345 int process_line(char *line)
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	346 {
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	347 if (!*line) { // User only pressed enter
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	348 if (scr_get_multimode()) {
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	349 scr_append_multiline("");
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	350 return 0;
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	351 }
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	352 if (current_buddy) {
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	353 scr_set_chatmode(TRUE);
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	354 buddy_setflags(BUDDATA(current_buddy), ROSTER_FLAG_LOCK, TRUE);
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	355 scr_ShowBuddyWindow();
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	356 }
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	357 return 0;
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	358 }
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	359
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	360 if (*line != '/') {
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	361 // This isn't a command
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	362 if (scr_get_multimode())
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	363 scr_append_multiline(line);
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	364 else
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	365 do_say(line);
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	366 return 0;
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	367 }
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	368
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	369 /* It is (probably) a command -- except for verbatim multi-line mode */
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	370 return process_command(line);
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	371 }
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	372
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	373 /* Commands callback functions */
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	374 /* All these do_() functions will be called with a "arg" parameter /
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	375 /* (with arg not null) */
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	376
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	377 static void do_roster(char *arg)
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	378 {
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	379 if (!strcasecmp(arg, "top")) {
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	380 scr_RosterTop();
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	381 update_roster = TRUE;
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	382 } else if (!strcasecmp(arg, "bottom")) {
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	383 scr_RosterBottom();
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	384 update_roster = TRUE;
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	385 } else if (!strcasecmp(arg, "hide_offline")) {
120 cfd3df636d5f [/trunk] Changeset 133 by mikael mikael parents: 118 diff changeset	386 buddylist_set_hide_offline_buddies(TRUE);
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	387 if (current_buddy)
fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	388 buddylist_build();
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	389 update_roster = TRUE;
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	390 } else if (!strcasecmp(arg, "show_offline")) {
120 cfd3df636d5f [/trunk] Changeset 133 by mikael mikael parents: 118 diff changeset	391 buddylist_set_hide_offline_buddies(FALSE);
124 6d2122c003c4 [/trunk] Changeset 137 by mikael mikael parents: 120 diff changeset	392 buddylist_build();
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	393 update_roster = TRUE;
290 f63839a4cb35 Add /roster toggle_offline Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	394 } else if (!strcasecmp(arg, "toggle_offline")) {
f63839a4cb35 Add /roster toggle_offline Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	395 buddylist_set_hide_offline_buddies(-1);
f63839a4cb35 Add /roster toggle_offline Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	396 buddylist_build();
f63839a4cb35 Add /roster toggle_offline Mikael Berthe <mikael@lilotux.net> parents: 288 diff changeset	397 update_roster = TRUE;
236 72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	398 } else if (!strcasecmp(arg, "unread_first")) {
72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	399 scr_RosterUnreadMessage(0);
72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	400 } else if (!strcasecmp(arg, "unread_next")) {
72fd1273f2b7 [/trunk] Changeset 249 by mikael mikael parents: 232 diff changeset	401 scr_RosterUnreadMessage(1);
330 a9013124ede6 Add "/roster alternate" Mikael Berthe <mikael@lilotux.net> parents: 318 diff changeset	402 } else if (!strcasecmp(arg, "alternate")) {
a9013124ede6 Add "/roster alternate" Mikael Berthe <mikael@lilotux.net> parents: 318 diff changeset	403 scr_RosterJumpAlternate();
265 49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 262 diff changeset	404 } else if (!strncasecmp(arg, "search", 6)) {
49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 262 diff changeset	405 char *string = arg+6;
49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 262 diff changeset	406 if (string && (string != ' ')) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	407 scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
265 49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 262 diff changeset	408 return;
49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 262 diff changeset	409 }
49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 262 diff changeset	410 while (*string == ' ')
49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 262 diff changeset	411 string++;
49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 262 diff changeset	412 if (!*string) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	413 scr_LogPrint(LPRINT_NORMAL, "What name or jid are you looking for?");
265 49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 262 diff changeset	414 return;
49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 262 diff changeset	415 }
49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 262 diff changeset	416 scr_RosterSearch(string);
49e9e02dd6d0 Add "/roster search" command mikael@frmp8452 parents: 262 diff changeset	417 update_roster = TRUE;
377 00809e3e327e Add "/roster up" and "/roster down" Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	418 } else if (!strcasecmp(arg, "up")) {
00809e3e327e Add "/roster up" and "/roster down" Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	419 scr_RosterUp();
00809e3e327e Add "/roster up" and "/roster down" Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	420 } else if (!strcasecmp(arg, "down")) {
00809e3e327e Add "/roster up" and "/roster down" Mikael Berthe <mikael@lilotux.net> parents: 374 diff changeset	421 scr_RosterDown();
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	422 } else
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	423 scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
104 fe7257d251ac [/trunk] Changeset 118 by mikael mikael parents: 103 diff changeset	424 }
108 7fb72bc13732 [/trunk] Changeset 122 by mikael mikael parents: 104 diff changeset	425
444 5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	426 // setstatus(recipient, arg)
5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	427 // Set your Jabber status.
5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	428 // - if recipient is not NULL, the status is sent to this contact only
5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	429 // - arg must be "status message" (message is optional)
5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	430 static void setstatus(const char recipient, const char arg)
116 1e7e59775f12 [/trunk] Changeset 130 by mikael mikael parents: 113 diff changeset	431 {
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	432 char **paramlst;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	433 char *status;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	434 char *msg;
116 1e7e59775f12 [/trunk] Changeset 130 by mikael mikael parents: 113 diff changeset	435 enum imstatus st;
1e7e59775f12 [/trunk] Changeset 130 by mikael mikael parents: 113 diff changeset	436
472 75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	437 if (!jb_getonline()) {
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	438 scr_LogPrint(LPRINT_NORMAL, "You are not connected");
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	439 return;
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	440 }
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	441
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	442 paramlst = split_arg(arg, 2, 0); // status, message
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	443 status = *paramlst;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	444 msg = *(paramlst+1);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	445
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	446 if (!status) {
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	447 free_arg_lst(paramlst);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	448 return;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	449 }
318 45076d02eeef The /status command can specify a status message Mikael Berthe <mikael@lilotux.net> parents: 310 diff changeset	450
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	451 if (!strcasecmp(status, "offline")) st = offline;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	452 else if (!strcasecmp(status, "online")) st = available;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	453 else if (!strcasecmp(status, "avail")) st = available;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	454 else if (!strcasecmp(status, "away")) st = away;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	455 else if (!strcasecmp(status, "invisible")) st = invisible;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	456 else if (!strcasecmp(status, "dnd")) st = dontdisturb;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	457 else if (!strcasecmp(status, "notavail")) st = notavail;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	458 else if (!strcasecmp(status, "free")) st = freeforchat;
116 1e7e59775f12 [/trunk] Changeset 130 by mikael mikael parents: 113 diff changeset	459 else {
444 5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	460 scr_LogPrint(LPRINT_NORMAL, "Unrecognized status!");
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	461 free_arg_lst(paramlst);
116 1e7e59775f12 [/trunk] Changeset 130 by mikael mikael parents: 113 diff changeset	462 return;
1e7e59775f12 [/trunk] Changeset 130 by mikael mikael parents: 113 diff changeset	463 }
1e7e59775f12 [/trunk] Changeset 130 by mikael mikael parents: 113 diff changeset	464
528 2f714bd701a1 Do not use default status messages with /status_to Mikael Berthe <mikael@lilotux.net> parents: 519 diff changeset	465 // Use provided message, unless requested status is "invisible"
416 48e7808c4191 Allow offline status message Mikael Berthe <mikael@lilotux.net> parents: 402 diff changeset	466 if (msg && st != invisible) {
318 45076d02eeef The /status command can specify a status message Mikael Berthe <mikael@lilotux.net> parents: 310 diff changeset	467 if (!*msg) msg = NULL;
45076d02eeef The /status command can specify a status message Mikael Berthe <mikael@lilotux.net> parents: 310 diff changeset	468 } else
45076d02eeef The /status command can specify a status message Mikael Berthe <mikael@lilotux.net> parents: 310 diff changeset	469 msg = NULL;
45076d02eeef The /status command can specify a status message Mikael Berthe <mikael@lilotux.net> parents: 310 diff changeset	470
528 2f714bd701a1 Do not use default status messages with /status_to Mikael Berthe <mikael@lilotux.net> parents: 519 diff changeset	471 // If a recipient is specified, let's don't use default status messages
2f714bd701a1 Do not use default status messages with /status_to Mikael Berthe <mikael@lilotux.net> parents: 519 diff changeset	472 if (recipient && !msg)
2f714bd701a1 Do not use default status messages with /status_to Mikael Berthe <mikael@lilotux.net> parents: 519 diff changeset	473 msg = "";
2f714bd701a1 Do not use default status messages with /status_to Mikael Berthe <mikael@lilotux.net> parents: 519 diff changeset	474
444 5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	475 jb_setstatus(st, recipient, msg);
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	476
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	477 free_arg_lst(paramlst);
444 5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	478 }
5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	479
5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	480 static void do_status(char *arg)
5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	481 {
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	482 if (!*arg) {
519 5c338d31de56 Show current global status message in "/status" Mikael Berthe <mikael@lilotux.net> parents: 508 diff changeset	483 const char *sm = jb_getstatusmsg();
5c338d31de56 Show current global status message in "/status" Mikael Berthe <mikael@lilotux.net> parents: 508 diff changeset	484 scr_LogPrint(LPRINT_NORMAL, "Your status is: [%c] %s",
5c338d31de56 Show current global status message in "/status" Mikael Berthe <mikael@lilotux.net> parents: 508 diff changeset	485 imstatus2char[jb_getstatus()],
5c338d31de56 Show current global status message in "/status" Mikael Berthe <mikael@lilotux.net> parents: 508 diff changeset	486 (sm ? sm : ""));
444 5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	487 return;
5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	488 }
5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	489 setstatus(NULL, arg);
5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	490 }
5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	491
5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	492 static void do_status_to(char *arg)
5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	493 {
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	494 char **paramlst;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	495 char jid, st, *msg;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	496
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	497 paramlst = split_arg(arg, 3, 1); // jid, status, [message]
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	498 jid = *paramlst;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	499 st = *(paramlst+1);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	500 msg = *(paramlst+2);
444 5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	501
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	502 if (!jid \|\| !st) {
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	503 scr_LogPrint(LPRINT_NORMAL, "Wrong usage");
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	504 } else if (check_jid_syntax(jid)) {
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	505 scr_LogPrint(LPRINT_NORMAL, "<%s> is not a valid Jabber id", jid);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	506 } else {
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	507 char *cmd;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	508 if (!msg)
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	509 msg = "";
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	510 mc_strtolower(jid);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	511 cmd = g_strdup_printf("%s %s", st, msg);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	512 scr_LogPrint(LPRINT_LOGNORM, "Sending to <%s> /status %s", jid, cmd);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	513 setstatus(jid, cmd);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	514 g_free(cmd);
444 5927c3bfba13 Add /status_to command Mikael Berthe <mikael@lilotux.net> parents: 439 diff changeset	515 }
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	516 free_arg_lst(paramlst);
116 1e7e59775f12 [/trunk] Changeset 130 by mikael mikael parents: 113 diff changeset	517 }
1e7e59775f12 [/trunk] Changeset 130 by mikael mikael parents: 113 diff changeset	518
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	519 static void do_add(char *arg)
124 6d2122c003c4 [/trunk] Changeset 137 by mikael mikael parents: 120 diff changeset	520 {
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	521 char **paramlst;
244 5f8b529412bd [/trunk] Changeset 257 by mikael mikael parents: 240 diff changeset	522 char id, nick;
472 75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	523
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	524 if (!jb_getonline()) {
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	525 scr_LogPrint(LPRINT_NORMAL, "You are not connected");
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	526 return;
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	527 }
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	528
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	529 paramlst = split_arg(arg, 2, 0); // jid, [nickname]
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	530 id = *paramlst;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	531 nick = *(paramlst+1);
244 5f8b529412bd [/trunk] Changeset 257 by mikael mikael parents: 240 diff changeset	532
638 f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	533 if (!id)
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	534 nick = NULL; // Allow things like: /add "" nick
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	535 else if (!*id)
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	536 id = NULL;
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	537
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	538 if (id) {
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	539 // The JID has been specified. Quick check...
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	540 if (check_jid_syntax(id)) {
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	541 scr_LogPrint(LPRINT_NORMAL, "<%s> is not a valid Jabber id", id);
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	542 id = NULL;
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	543 } else {
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	544 mc_strtolower(id);
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	545 }
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	546 } else {
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	547 // Add the current buddy
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	548 if (current_buddy)
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	549 id = (char*)buddy_getjid(BUDDATA(current_buddy));
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	550 if (!id)
638 f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	551 scr_LogPrint(LPRINT_NORMAL, "Please specify a Jabber id");
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	552 }
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	553
f6946251acdf "/add" can be used with no jid (it will use the current buddy's jid) Mikael Berthe <mikael@lilotux.net> parents: 636 diff changeset	554 if (id) {
452 dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 449 diff changeset	555 // 2nd parameter = optional nickname
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 449 diff changeset	556 jb_addbuddy(id, nick, NULL);
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 449 diff changeset	557 scr_LogPrint(LPRINT_LOGNORM, "Sent presence notification request to <%s>",
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 449 diff changeset	558 id);
dfd9c62b3a39 Jabber Id syntax checks Mikael Berthe <mikael@lilotux.net> parents: 449 diff changeset	559 }
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	560 free_arg_lst(paramlst);
124 6d2122c003c4 [/trunk] Changeset 137 by mikael mikael parents: 120 diff changeset	561 }
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	562
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	563 static void do_del(char *arg)
206 766167c0c57f [/trunk] Changeset 218 by mikael mikael parents: 205 diff changeset	564 {
766167c0c57f [/trunk] Changeset 218 by mikael mikael parents: 205 diff changeset	565 const char *jid;
766167c0c57f [/trunk] Changeset 218 by mikael mikael parents: 205 diff changeset	566
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	567 if (*arg) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	568 scr_LogPrint(LPRINT_NORMAL, "Wrong usage");
206 766167c0c57f [/trunk] Changeset 218 by mikael mikael parents: 205 diff changeset	569 return;
766167c0c57f [/trunk] Changeset 218 by mikael mikael parents: 205 diff changeset	570 }
766167c0c57f [/trunk] Changeset 218 by mikael mikael parents: 205 diff changeset	571
766167c0c57f [/trunk] Changeset 218 by mikael mikael parents: 205 diff changeset	572 if (!current_buddy) return;
766167c0c57f [/trunk] Changeset 218 by mikael mikael parents: 205 diff changeset	573 jid = buddy_getjid(BUDDATA(current_buddy));
766167c0c57f [/trunk] Changeset 218 by mikael mikael parents: 205 diff changeset	574 if (!jid) return;
766167c0c57f [/trunk] Changeset 218 by mikael mikael parents: 205 diff changeset	575
540 887c1bd37617 Prevent deletion from rooms we haven't left Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	576 if (buddy_gettype(BUDDATA(current_buddy)) & ROSTER_TYPE_ROOM) {
887c1bd37617 Prevent deletion from rooms we haven't left Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	577 // This is a chatroom
887c1bd37617 Prevent deletion from rooms we haven't left Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	578 // If there are resources, we haven't left
887c1bd37617 Prevent deletion from rooms we haven't left Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	579 if (buddy_isresource(BUDDATA(current_buddy))) {
887c1bd37617 Prevent deletion from rooms we haven't left Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	580 scr_LogPrint(LPRINT_NORMAL, "You haven't left this room!");
887c1bd37617 Prevent deletion from rooms we haven't left Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	581 return;
887c1bd37617 Prevent deletion from rooms we haven't left Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	582 }
887c1bd37617 Prevent deletion from rooms we haven't left Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	583 }
887c1bd37617 Prevent deletion from rooms we haven't left Mikael Berthe <mikael@lilotux.net> parents: 539 diff changeset	584
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	585 scr_LogPrint(LPRINT_LOGNORM, "Removing <%s>...", jid);
206 766167c0c57f [/trunk] Changeset 218 by mikael mikael parents: 205 diff changeset	586 jb_delbuddy(jid);
598 a3db3ee8b99e Fix some display issues Mikael Berthe <mikael@lilotux.net> parents: 590 diff changeset	587 scr_ShowBuddyWindow();
206 766167c0c57f [/trunk] Changeset 218 by mikael mikael parents: 205 diff changeset	588 }
766167c0c57f [/trunk] Changeset 218 by mikael mikael parents: 205 diff changeset	589
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	590 static void do_group(char *arg)
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	591 {
81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	592 gpointer group;
166 aa5b635520ef [/trunk] Changeset 178 by mikael mikael parents: 164 diff changeset	593 guint leave_windowbuddy;
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	594
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	595 if (!*arg) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	596 scr_LogPrint(LPRINT_NORMAL, "Missing parameter");
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	597 return;
81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	598 }
81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	599
166 aa5b635520ef [/trunk] Changeset 178 by mikael mikael parents: 164 diff changeset	600 if (!current_buddy) return;
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	601
166 aa5b635520ef [/trunk] Changeset 178 by mikael mikael parents: 164 diff changeset	602 group = buddy_getgroup(BUDDATA(current_buddy));
212 465d98d2f8e3 [/trunk] Changeset 224 by mikael mikael parents: 210 diff changeset	603 // We'll have to redraw the chat window if we're not currently on the group
465d98d2f8e3 [/trunk] Changeset 224 by mikael mikael parents: 210 diff changeset	604 // entry itself, because it means we'll have to leave the current buddy
465d98d2f8e3 [/trunk] Changeset 224 by mikael mikael parents: 210 diff changeset	605 // chat window.
166 aa5b635520ef [/trunk] Changeset 178 by mikael mikael parents: 164 diff changeset	606 leave_windowbuddy = (group != BUDDATA(current_buddy));
aa5b635520ef [/trunk] Changeset 178 by mikael mikael parents: 164 diff changeset	607
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	608 if (!(buddy_gettype(group) & ROSTER_TYPE_GROUP)) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	609 scr_LogPrint(LPRINT_NORMAL, "You need to select a group");
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	610 return;
81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	611 }
166 aa5b635520ef [/trunk] Changeset 178 by mikael mikael parents: 164 diff changeset	612
aa5b635520ef [/trunk] Changeset 178 by mikael mikael parents: 164 diff changeset	613 if (!strcasecmp(arg, "expand") \|\| !strcasecmp(arg, "unfold")) {
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	614 buddy_setflags(group, ROSTER_FLAG_HIDE, FALSE);
166 aa5b635520ef [/trunk] Changeset 178 by mikael mikael parents: 164 diff changeset	615 } else if (!strcasecmp(arg, "shrink") \|\| !strcasecmp(arg, "fold")) {
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	616 buddy_setflags(group, ROSTER_FLAG_HIDE, TRUE);
130 60694c9ddde3 [/trunk] Changeset 143 by mikael mikael parents: 129 diff changeset	617 } else if (!strcasecmp(arg, "toggle")) {
60694c9ddde3 [/trunk] Changeset 143 by mikael mikael parents: 129 diff changeset	618 buddy_setflags(group, ROSTER_FLAG_HIDE,
60694c9ddde3 [/trunk] Changeset 143 by mikael mikael parents: 129 diff changeset	619 !(buddy_getflags(group) & ROSTER_FLAG_HIDE));
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	620 } else {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	621 scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	622 return;
81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	623 }
81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	624
81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	625 buddylist_build();
81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	626 update_roster = TRUE;
166 aa5b635520ef [/trunk] Changeset 178 by mikael mikael parents: 164 diff changeset	627 if (leave_windowbuddy) scr_ShowBuddyWindow();
128 81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	628 }
81ccb1091dd8 [/trunk] Changeset 141 by mikael mikael parents: 127 diff changeset	629
636 f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	630 static int send_message_to(const char jid, const char msg)
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	631 {
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	632 char bare_jid, rp;
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	633
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	634 if (!jid \|\| !*jid) {
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	635 scr_LogPrint(LPRINT_NORMAL, "JID is missing");
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	636 return 1;
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	637 }
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	638 if (!msg \|\| !*msg) {
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	639 scr_LogPrint(LPRINT_NORMAL, "Message is missing");
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	640 return 1;
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	641 }
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	642 if (check_jid_syntax((char*)jid)) {
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	643 scr_LogPrint(LPRINT_NORMAL, "<%s> is not a valid Jabber id", jid);
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	644 return 1;
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	645 }
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	646
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	647 // We must use the bare jid in hk_message_out()
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	648 rp = strchr(jid, '/');
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	649 if (rp) bare_jid = g_strndup(jid, rp - jid);
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	650 else bare_jid = (char*)jid;
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	651
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	652 // Jump to window, create one if needed
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	653 scr_RosterJumpJid(bare_jid);
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	654
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	655 // Check if we're sending a message to a conference room
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	656 // If not, we must make sure rp is NULL, for hk_message_out()
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	657 if (rp) {
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	658 if (roster_find(bare_jid, jidsearch, ROSTER_TYPE_ROOM)) rp++;
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	659 else rp = NULL;
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	660 }
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	661
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	662 // local part (UI, logging, etc.)
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	663 hk_message_out(bare_jid, rp, 0, msg);
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	664
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	665 // Network part
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	666 jb_send_msg(jid, msg, ROSTER_TYPE_USER, NULL);
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	667
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	668 if (rp) g_free(bare_jid);
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	669 return 0;
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	670 }
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	671
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	672 static void do_say(char *arg)
132 6531bcf030ae [/trunk] Changeset 145 by mikael mikael parents: 130 diff changeset	673 {
164 faf534be8ff0 [/trunk] Changeset 176 by mikael mikael parents: 132 diff changeset	674 gpointer bud;
132 6531bcf030ae [/trunk] Changeset 145 by mikael mikael parents: 130 diff changeset	675
6531bcf030ae [/trunk] Changeset 145 by mikael mikael parents: 130 diff changeset	676 scr_set_chatmode(TRUE);
164 faf534be8ff0 [/trunk] Changeset 176 by mikael mikael parents: 132 diff changeset	677
faf534be8ff0 [/trunk] Changeset 176 by mikael mikael parents: 132 diff changeset	678 if (!current_buddy) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	679 scr_LogPrint(LPRINT_NORMAL, "Who are you talking to??");
164 faf534be8ff0 [/trunk] Changeset 176 by mikael mikael parents: 132 diff changeset	680 return;
132 6531bcf030ae [/trunk] Changeset 145 by mikael mikael parents: 130 diff changeset	681 }
164 faf534be8ff0 [/trunk] Changeset 176 by mikael mikael parents: 132 diff changeset	682
faf534be8ff0 [/trunk] Changeset 176 by mikael mikael parents: 132 diff changeset	683 bud = BUDDATA(current_buddy);
631 423c24e5875a Allow sending a message to an agent Mikael Berthe <mikael@lilotux.net> parents: 626 diff changeset	684 if (!(buddy_gettype(bud) &
423c24e5875a Allow sending a message to an agent Mikael Berthe <mikael@lilotux.net> parents: 626 diff changeset	685 (ROSTER_TYPE_USER\|ROSTER_TYPE_AGENT\|ROSTER_TYPE_ROOM))) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	686 scr_LogPrint(LPRINT_NORMAL, "This is not a user");
164 faf534be8ff0 [/trunk] Changeset 176 by mikael mikael parents: 132 diff changeset	687 return;
faf534be8ff0 [/trunk] Changeset 176 by mikael mikael parents: 132 diff changeset	688 }
faf534be8ff0 [/trunk] Changeset 176 by mikael mikael parents: 132 diff changeset	689
faf534be8ff0 [/trunk] Changeset 176 by mikael mikael parents: 132 diff changeset	690 buddy_setflags(bud, ROSTER_FLAG_LOCK, TRUE);
faf534be8ff0 [/trunk] Changeset 176 by mikael mikael parents: 132 diff changeset	691 send_message(arg);
132 6531bcf030ae [/trunk] Changeset 145 by mikael mikael parents: 130 diff changeset	692 }
6531bcf030ae [/trunk] Changeset 145 by mikael mikael parents: 130 diff changeset	693
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	694 static void do_msay(char *arg)
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	695 {
636 f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	696 /* Parameters: begin verbatim abort send send_to */
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	697 char **paramlst;
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	698 char *subcmd;
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	699
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	700 paramlst = split_arg(arg, 2, 1); // subcmd, arg
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	701 subcmd = *paramlst;
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	702 arg = *(paramlst+1);
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	703
636 f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	704 if (!subcmd \|\| !*subcmd) {
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	705 scr_LogPrint(LPRINT_NORMAL, "Missing parameter");
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	706 scr_LogPrint(LPRINT_NORMAL, "Please read the manual before using "
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	707 "the /msay command.");
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	708 scr_LogPrint(LPRINT_NORMAL, "(Use \"/msay begin\" to enter "
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	709 "multi-line mode...)");
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	710 free_arg_lst(paramlst);
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	711 return;
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	712 }
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	713
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	714 if (!strcasecmp(subcmd, "abort")) {
315 65aa05520556 First Ctrl-C now also leaves multi-line message mode Mikael Berthe <mikael@lilotux.net> parents: 310 diff changeset	715 if (scr_get_multimode())
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	716 scr_LogPrint(LPRINT_NORMAL, "Leaving multi-line message mode");
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	717 scr_set_multimode(FALSE);
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	718 return;
636 f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	719 } else if ((!strcasecmp(subcmd, "begin")) \|\|
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	720 (!strcasecmp(subcmd, "verbatim"))) {
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	721 if (!strcasecmp(subcmd, "verbatim"))
260 33e1a05864a6 Add "verbatim multi-line" mode, with commands disabled mikael@frmp8452 parents: 244 diff changeset	722 scr_set_multimode(2);
33e1a05864a6 Add "verbatim multi-line" mode, with commands disabled mikael@frmp8452 parents: 244 diff changeset	723 else
33e1a05864a6 Add "verbatim multi-line" mode, with commands disabled mikael@frmp8452 parents: 244 diff changeset	724 scr_set_multimode(1);
33e1a05864a6 Add "verbatim multi-line" mode, with commands disabled mikael@frmp8452 parents: 244 diff changeset	725
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	726 scr_LogPrint(LPRINT_NORMAL, "Entered multi-line message mode.");
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	727 scr_LogPrint(LPRINT_NORMAL, "Select a buddy and use \"/msay send\" "
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	728 "when your message is ready.");
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	729 return;
636 f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	730 } else if (strcasecmp(subcmd, "send") && strcasecmp(subcmd, "send_to")) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	731 scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	732 return;
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	733 }
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	734
636 f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	735 /* send/send_to command */
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	736
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	737 if (!scr_get_multimode()) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	738 scr_LogPrint(LPRINT_NORMAL, "No message to send. "
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	739 "Use \"/msay begin\" first.");
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	740 return;
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	741 }
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	742
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	743 scr_set_chatmode(TRUE);
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	744
636 f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	745 if (!strcasecmp(subcmd, "send_to")) {
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	746 // Let's send to the specified JID. We leave now if there
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	747 // has been an error (so we don't leave multi-line mode).
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	748 if (send_message_to(arg, scr_get_multiline()))
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	749 return;
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	750 } else { // Send to currently selected buddy
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	751 gpointer bud;
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	752
636 f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	753 if (!current_buddy) {
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	754 scr_LogPrint(LPRINT_NORMAL, "Who are you talking to??");
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	755 return;
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	756 }
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	757
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	758 bud = BUDDATA(current_buddy);
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	759 if (!(buddy_gettype(bud) & (ROSTER_TYPE_USER\|ROSTER_TYPE_ROOM))) {
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	760 scr_LogPrint(LPRINT_NORMAL, "This is not a user");
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	761 return;
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	762 }
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	763
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	764 buddy_setflags(bud, ROSTER_FLAG_LOCK, TRUE);
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	765 send_message(scr_get_multiline());
238 8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	766 }
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	767 scr_set_multimode(FALSE);
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	768 }
8e30b2bb380e [/trunk] Changeset 251 by mikael mikael parents: 236 diff changeset	769
480 882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 475 diff changeset	770 static void do_say_to(char *arg)
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 475 diff changeset	771 {
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	772 char **paramlst;
480 882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 475 diff changeset	773 char jid, msg;
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 475 diff changeset	774
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 475 diff changeset	775 if (!jb_getonline()) {
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 475 diff changeset	776 scr_LogPrint(LPRINT_NORMAL, "You are not connected");
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 475 diff changeset	777 return;
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 475 diff changeset	778 }
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 475 diff changeset	779
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	780 paramlst = split_arg(arg, 2, 1); // jid, message
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	781 jid = *paramlst;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	782 msg = *(paramlst+1);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	783
636 f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	784 if (!jid) {
f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	785 scr_LogPrint(LPRINT_NORMAL, "Wrong usage");
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	786 free_arg_lst(paramlst);
480 882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 475 diff changeset	787 return;
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 475 diff changeset	788 }
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 475 diff changeset	789
636 f84cce8382e8 Add "/msay send_to" Mikael Berthe <mikael@lilotux.net> parents: 631 diff changeset	790 send_message_to(jid, msg);
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	791 free_arg_lst(paramlst);
480 882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 475 diff changeset	792 }
882e1acae422 Add /say_to command Mikael Berthe <mikael@lilotux.net> parents: 475 diff changeset	793
558 db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	794 // buffer_updown(updown, nblines)
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	795 // updown: -1=up, +1=down
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	796 inline static void buffer_updown(int updown, char *nlines)
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	797 {
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	798 int nblines;
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	799
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	800 if (!nlines \|\| !*nlines)
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	801 nblines = 0;
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	802 else
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	803 nblines = atoi(nlines);
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	804
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	805 if (nblines >= 0)
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	806 scr_BufferScrollUpDown(updown, nblines);
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	807 }
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	808
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	809 static void buffer_search(int direction, char *arg)
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	810 {
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	811 if (!arg \|\| !*arg) {
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	812 scr_LogPrint(LPRINT_NORMAL, "Missing parameter");
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	813 return;
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	814 }
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	815
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	816 scr_BufferSearch(direction, arg);
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	817 }
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	818
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	819 static void buffer_date(char *date)
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	820 {
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	821 time_t t;
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	822
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	823 if (!date \|\| !*date) {
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	824 scr_LogPrint(LPRINT_NORMAL, "Missing parameter");
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	825 return;
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	826 }
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	827
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	828 strip_arg_special_chars(date);
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	829
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	830 t = from_iso8601(date, 0);
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	831 if (t)
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	832 scr_BufferDate(t);
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	833 else
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	834 scr_LogPrint(LPRINT_NORMAL, "Wrong parameter");
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	835 }
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	836
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	837 static void buffer_percent(char arg1, char arg2)
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	838 {
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	839 // Basically, user has typed "%arg1 arg2"
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	840 // "%50" -> arg1 = 50, arg2 null pointer
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	841 // "% 50" -> arg1 = \0, arg2 = 50
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	842
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	843 if (!arg1 && (!arg2 \|\| !arg2)) { // No value
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	844 scr_LogPrint(LPRINT_NORMAL, "Missing parameter");
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	845 return;
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	846 }
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	847
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	848 if (arg1 && arg2 && arg2) { // Two values
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	849 scr_LogPrint(LPRINT_NORMAL, "Wrong parameters");
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	850 return;
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	851 }
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	852
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	853 scr_BufferPercent(atoi((*arg1 ? arg1 : arg2)));
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	854 }
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	855
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	856 static void do_buffer(char *arg)
187 4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 166 diff changeset	857 {
558 db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	858 char **paramlst;
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	859 char *subcmd;
370 dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	860
471 82a27508fb85 Fix segfaults when using /buffer and /room while not connected Mikael Berthe <mikael@lilotux.net> parents: 470 diff changeset	861 if (!current_buddy) return;
558 db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	862
446 9f4e9e9aaf08 Minor changes & cleanup Mikael Berthe <mikael@lilotux.net> parents: 444 diff changeset	863 if (buddy_gettype(BUDDATA(current_buddy)) & ROSTER_TYPE_GROUP) {
9f4e9e9aaf08 Minor changes & cleanup Mikael Berthe <mikael@lilotux.net> parents: 444 diff changeset	864 scr_LogPrint(LPRINT_NORMAL, "Groups have no buffer");
9f4e9e9aaf08 Minor changes & cleanup Mikael Berthe <mikael@lilotux.net> parents: 444 diff changeset	865 return;
9f4e9e9aaf08 Minor changes & cleanup Mikael Berthe <mikael@lilotux.net> parents: 444 diff changeset	866 }
9f4e9e9aaf08 Minor changes & cleanup Mikael Berthe <mikael@lilotux.net> parents: 444 diff changeset	867
558 db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	868 paramlst = split_arg(arg, 2, 1); // subcmd, arg
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	869 subcmd = *paramlst;
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	870 arg = *(paramlst+1);
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	871
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	872 if (!subcmd \|\| !*subcmd) {
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	873 scr_LogPrint(LPRINT_NORMAL, "Missing parameter");
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	874 free_arg_lst(paramlst);
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	875 return;
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	876 }
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	877
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	878 if (!strcasecmp(subcmd, "top")) {
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 336 diff changeset	879 scr_BufferTopBottom(-1);
558 db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	880 } else if (!strcasecmp(subcmd, "bottom")) {
361 51ff319947c3 Code cleanup/optimization Mikael Berthe <mikael@lilotux.net> parents: 336 diff changeset	881 scr_BufferTopBottom(1);
558 db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	882 } else if (!strcasecmp(subcmd, "clear")) {
369 499170ed71c9 Rename some buffer commands, for homogeneity Mikael Berthe <mikael@lilotux.net> parents: 364 diff changeset	883 scr_BufferClear();
558 db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	884 } else if (!strcasecmp(subcmd, "up")) {
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	885 buffer_updown(-1, arg);
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	886 } else if (!strcasecmp(subcmd, "down")) {
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	887 buffer_updown(1, arg);
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	888 } else if (!strcasecmp(subcmd, "search_backward")) {
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	889 buffer_search(-1, arg);
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	890 } else if (!strcasecmp(subcmd, "search_forward")) {
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	891 buffer_search(1, arg);
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	892 } else if (!strcasecmp(subcmd, "date")) {
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	893 buffer_date(arg);
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	894 } else if (*subcmd == '%') {
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	895 buffer_percent(subcmd+1, arg);
db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	896 } else {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	897 scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
558 db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	898 }
370 dd9e2eb52916 Add /buffer search_{backward,forward} Mikael Berthe <mikael@lilotux.net> parents: 369 diff changeset	899
558 db019a5f874f Split do_buffer() and use split_arg() Mikael Berthe <mikael@lilotux.net> parents: 557 diff changeset	900 free_arg_lst(paramlst);
187 4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 166 diff changeset	901 }
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 166 diff changeset	902
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	903 static void do_clear(char *arg) // Alias for "/buffer clear"
187 4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 166 diff changeset	904 {
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 166 diff changeset	905 do_buffer("clear");
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 166 diff changeset	906 }
4ce9ff808baa [/trunk] Changeset 199 by mikael mikael parents: 166 diff changeset	907
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	908 static void do_info(char *arg)
191 24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	909 {
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	910 gpointer bud;
439 63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	911 const char jid, name;
191 24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	912 guint type;
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	913 char *buffer;
604 2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	914 enum subscr esub;
191 24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	915
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	916 if (!current_buddy) return;
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	917 bud = BUDDATA(current_buddy);
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	918
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	919 jid = buddy_getjid(bud);
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	920 name = buddy_getname(bud);
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	921 type = buddy_gettype(bud);
604 2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	922 esub = buddy_getsubscription(bud);
191 24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	923
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	924 buffer = g_new(char, 4096);
191 24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	925
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	926 if (jid) {
439 63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	927 GSList *resources;
604 2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	928 char *bstr = "unknown";
191 24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	929
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	930 snprintf(buffer, 4095, "jid: <%s>", jid);
191 24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	931 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	932 if (name) {
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	933 snprintf(buffer, 4095, "Name: %s", name);
191 24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	934 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	935 }
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	936
604 2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	937 if (type == ROSTER_TYPE_USER) bstr = "user";
2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	938 else if (type == ROSTER_TYPE_ROOM) bstr = "chatroom";
2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	939 else if (type == ROSTER_TYPE_AGENT) bstr = "agent";
2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	940 snprintf(buffer, 127, "Type: %s", bstr);
2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	941 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	942
2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	943 if (esub == sub_both) bstr = "both";
2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	944 else if (esub & sub_from) bstr = "from";
2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	945 else if (esub & sub_to) bstr = "to";
2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	946 else bstr = "none";
2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	947 snprintf(buffer, 64, "Subscription: %s", bstr);
2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	948 if (esub & sub_pending)
2e8342168ebc "/info" shows buddy subscription Mikael Berthe <mikael@lilotux.net> parents: 600 diff changeset	949 strcat(buffer, " (pending)");
191 24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	950 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
439 63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	951
63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	952 resources = buddy_getresources(bud);
63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	953 for ( ; resources ; resources = g_slist_next(resources) ) {
63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	954 gchar rprio;
63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	955 enum imstatus rstatus;
63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	956 const char *rst_msg;
625 028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	957 time_t rst_time;
439 63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	958
63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	959 rprio = buddy_getresourceprio(bud, resources->data);
63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	960 rstatus = buddy_getstatus(bud, resources->data);
63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	961 rst_msg = buddy_getstatusmsg(bud, resources->data);
625 028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	962 rst_time = buddy_getstatustime(bud, resources->data);
439 63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	963
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	964 snprintf(buffer, 4095, "Resource: [%c] (%d) %s", imstatus2char[rstatus],
439 63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	965 rprio, (char*)resources->data);
63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	966 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	967 if (rst_msg) {
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	968 snprintf(buffer, 4095, "Status message: %s", rst_msg);
439 63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	969 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	970 }
625 028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	971 if (rst_time) {
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	972 char tbuf[128];
625 028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	973
028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	974 strftime(tbuf, sizeof(tbuf), "%Y-%m-%d %H:%M:%S", localtime(&rst_time));
028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	975 snprintf(buffer, 127, "Status timestamp: %s", tbuf);
028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	976 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	977 }
439 63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	978 }
191 24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	979 } else {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	980 if (name) scr_LogPrint(LPRINT_NORMAL, "Name: %s", name);
bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	981 scr_LogPrint(LPRINT_NORMAL, "Type: %s",
439 63562fd409a1 /info can show multiple resources Mikael Berthe <mikael@lilotux.net> parents: 438 diff changeset	982 ((type == ROSTER_TYPE_GROUP) ? "group" : "unknown"));
191 24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	983 }
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	984
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	985 g_free(buffer);
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	986 }
24e6bcb589b0 [/trunk] Changeset 203 by mikael mikael parents: 187 diff changeset	987
504 321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	988 // room_names() is a variation of do_info(), for chatrooms only
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	989 static void room_names(gpointer bud, char *arg)
504 321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	990 {
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	991 const char *jid;
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	992 char *buffer;
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	993 GSList *resources;
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	994
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	995 if (*arg) {
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	996 scr_LogPrint(LPRINT_NORMAL, "Unknown parameter");
504 321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	997 return;
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	998 }
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	999
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1000 jid = buddy_getjid(bud);
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1001
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	1002 buffer = g_new(char, 4096);
b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	1003 strncpy(buffer, "Room members:", 127);
504 321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1004 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1005
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1006 resources = buddy_getresources(bud);
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1007 for ( ; resources ; resources = g_slist_next(resources) ) {
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1008 enum imstatus rstatus;
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1009 const char *rst_msg;
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1010
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1011 rstatus = buddy_getstatus(bud, resources->data);
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1012 rst_msg = buddy_getstatusmsg(bud, resources->data);
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1013
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	1014 snprintf(buffer, 4095, "[%c] %s", imstatus2char[rstatus],
504 321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1015 (char*)resources->data);
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1016 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1017 if (rst_msg) {
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	1018 snprintf(buffer, 4095, "Status message: %s", rst_msg);
504 321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1019 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1020 }
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1021 }
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1022
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1023 g_free(buffer);
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1024 }
321ae11e7ddb Prettier display for "/room names" Mikael Berthe <mikael@lilotux.net> parents: 490 diff changeset	1025
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	1026 static void do_rename(char *arg)
208 8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1027 {
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1028 gpointer bud;
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1029 const char jid, group;
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1030 guint type;
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1031 char newname, p;
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1032
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1033 if (!*arg) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	1034 scr_LogPrint(LPRINT_NORMAL, "Missing parameter");
208 8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1035 return;
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1036 }
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1037
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1038 if (!current_buddy) return;
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1039 bud = BUDDATA(current_buddy);
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1040
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1041 jid = buddy_getjid(bud);
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1042 group = buddy_getgroupname(bud);
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1043 type = buddy_gettype(bud);
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1044
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1045 if (type & ROSTER_TYPE_GROUP) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	1046 scr_LogPrint(LPRINT_NORMAL, "You can't rename groups");
208 8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1047 return;
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1048 }
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1049
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1050 newname = g_strdup(arg);
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1051 // Remove trailing space
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1052 for (p = newname; *p; p++) ;
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1053 while (p > newname && p == ' ') p = 0;
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1054
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1055 strip_arg_special_chars(newname);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1056
208 8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1057 buddy_setname(bud, newname);
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1058 jb_updatebuddy(jid, newname, group);
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1059
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1060 g_free(newname);
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1061 update_roster = TRUE;
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1062 }
8b08f34922c5 [/trunk] Changeset 220 by mikael mikael parents: 206 diff changeset	1063
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	1064 static void do_move(char *arg)
210 f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1065 {
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1066 gpointer bud;
620 97dd14e22b2a Rewrite buddy_setgroup() Mikael Berthe <mikael@lilotux.net> parents: 617 diff changeset	1067 const char jid, name, *oldgroupname;
210 f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1068 guint type;
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1069 char newgroupname, p;
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1070
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1071 if (!current_buddy) return;
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1072 bud = BUDDATA(current_buddy);
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1073
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1074 jid = buddy_getjid(bud);
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1075 name = buddy_getname(bud);
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1076 type = buddy_gettype(bud);
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1077
620 97dd14e22b2a Rewrite buddy_setgroup() Mikael Berthe <mikael@lilotux.net> parents: 617 diff changeset	1078 oldgroupname = buddy_getgroupname(bud);
97dd14e22b2a Rewrite buddy_setgroup() Mikael Berthe <mikael@lilotux.net> parents: 617 diff changeset	1079
210 f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1080 if (type & ROSTER_TYPE_GROUP) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	1081 scr_LogPrint(LPRINT_NORMAL, "You can't move groups!");
210 f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1082 return;
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1083 }
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1084
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1085 newgroupname = g_strdup(arg);
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1086 // Remove trailing space
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1087 for (p = newgroupname; *p; p++) ;
608 89f5672eb523 /move: really strip trailing space, and assign to no group if no group is specified Mikael Berthe <mikael@lilotux.net> parents: 604 diff changeset	1088 while (p > newgroupname && p == ' ') p-- = 0;
210 f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1089
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1090 strip_arg_special_chars(newgroupname);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1091
620 97dd14e22b2a Rewrite buddy_setgroup() Mikael Berthe <mikael@lilotux.net> parents: 617 diff changeset	1092 if (strcmp(oldgroupname, newgroupname)) {
97dd14e22b2a Rewrite buddy_setgroup() Mikael Berthe <mikael@lilotux.net> parents: 617 diff changeset	1093 jb_updatebuddy(jid, name, *newgroupname ? newgroupname : NULL);
97dd14e22b2a Rewrite buddy_setgroup() Mikael Berthe <mikael@lilotux.net> parents: 617 diff changeset	1094 scr_RosterUp();
97dd14e22b2a Rewrite buddy_setgroup() Mikael Berthe <mikael@lilotux.net> parents: 617 diff changeset	1095 buddy_setgroup(bud, newgroupname);
97dd14e22b2a Rewrite buddy_setgroup() Mikael Berthe <mikael@lilotux.net> parents: 617 diff changeset	1096 }
210 f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1097
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1098 g_free(newgroupname);
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1099 update_roster = TRUE;
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1100 }
f64818ba3503 [/trunk] Changeset 222 by mikael mikael parents: 208 diff changeset	1101
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	1102 static void do_set(char *arg)
283 00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1103 {
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1104 guint assign;
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1105 const gchar option, value;
393 f8f3c7493457 Whitespace cleanup Mikael Berthe <mikael@lilotux.net> parents: 384 diff changeset	1106
283 00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1107 assign = parse_assigment(arg, &option, &value);
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1108 if (!option) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	1109 scr_LogPrint(LPRINT_NORMAL, "Huh?");
283 00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1110 return;
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1111 }
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1112 if (!assign) {
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1113 // This is a query
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1114 value = settings_opt_get(option);
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1115 if (value) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	1116 scr_LogPrint(LPRINT_NORMAL, "%s = [%s]", option, value);
283 00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1117 } else
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	1118 scr_LogPrint(LPRINT_NORMAL, "Option %s is not set", option);
283 00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1119 return;
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1120 }
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1121 // Update the option
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1122 // XXX Maybe some options should be protected when user is connected
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1123 // (server, username, etc.). And we should catch some options here, too
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1124 // (hide_offline_buddies for ex.)
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1125 if (!value) {
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1126 settings_del(SETTINGS_TYPE_OPTION, option);
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1127 } else {
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1128 settings_set(SETTINGS_TYPE_OPTION, option, value);
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1129 }
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1130 }
00b2377539ac Add /set command (to get/set/unset options values) Mikael Berthe <mikael@lilotux.net> parents: 277 diff changeset	1131
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	1132 static void do_alias(char *arg)
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1133 {
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1134 guint assign;
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1135 const gchar alias, value;
393 f8f3c7493457 Whitespace cleanup Mikael Berthe <mikael@lilotux.net> parents: 384 diff changeset	1136
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1137 assign = parse_assigment(arg, &alias, &value);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1138 if (!alias) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	1139 scr_LogPrint(LPRINT_NORMAL, "Huh?");
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1140 return;
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1141 }
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1142 if (!assign) {
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1143 // This is a query
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1144 value = settings_get(SETTINGS_TYPE_ALIAS, alias);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1145 if (value) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	1146 scr_LogPrint(LPRINT_NORMAL, "%s = %s", alias, value);
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1147 } else
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	1148 scr_LogPrint(LPRINT_NORMAL, "Alias '%s' does not exist", alias);
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1149 return;
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1150 }
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1151 // Check the alias does not conflict with a registered command
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1152 if (cmd_get(alias)) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	1153 scr_LogPrint(LPRINT_NORMAL, "'%s' is a reserved word!", alias);
285 edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1154 return;
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1155 }
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1156 // Update the alias
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1157 if (!value) {
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1158 if (settings_get(SETTINGS_TYPE_ALIAS, alias)) {
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1159 settings_del(SETTINGS_TYPE_ALIAS, alias);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1160 // Remove alias from the completion list
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1161 compl_del_category_word(COMPL_CMD, alias);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1162 }
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1163 } else {
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1164 // Add alias to the completion list, if not already in
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1165 if (!settings_get(SETTINGS_TYPE_ALIAS, alias))
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1166 compl_add_category_word(COMPL_CMD, alias);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1167 settings_set(SETTINGS_TYPE_ALIAS, alias, value);
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1168 }
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1169 }
edc263a5d350 Add /alias command Mikael Berthe <mikael@lilotux.net> parents: 283 diff changeset	1170
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	1171 static void do_bind(char *arg)
288 1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1172 {
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1173 guint assign;
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1174 const gchar keycode, value;
393 f8f3c7493457 Whitespace cleanup Mikael Berthe <mikael@lilotux.net> parents: 384 diff changeset	1175
288 1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1176 assign = parse_assigment(arg, &keycode, &value);
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1177 if (!keycode) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	1178 scr_LogPrint(LPRINT_NORMAL, "Huh?");
288 1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1179 return;
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1180 }
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1181 if (!assign) {
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1182 // This is a query
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1183 value = settings_get(SETTINGS_TYPE_BINDING, keycode);
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1184 if (value) {
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	1185 scr_LogPrint(LPRINT_NORMAL, "Key %s is bound to: %s", keycode, value);
288 1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1186 } else
374 bd5638c21834 Improve logging system (traces) Mikael Berthe <mikael@lilotux.net> parents: 371 diff changeset	1187 scr_LogPrint(LPRINT_NORMAL, "Key %s is not bound", keycode);
288 1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1188 return;
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1189 }
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1190 // Update the key binding
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1191 if (!value)
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1192 settings_del(SETTINGS_TYPE_BINDING, keycode);
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1193 else
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1194 settings_set(SETTINGS_TYPE_BINDING, keycode, value);
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1195 }
1eea0fa0955e Add /bind command Mikael Berthe <mikael@lilotux.net> parents: 285 diff changeset	1196
436 802da817a684 Add /rawxml command Mikael Berthe <mikael@lilotux.net> parents: 416 diff changeset	1197 static void do_rawxml(char *arg)
802da817a684 Add /rawxml command Mikael Berthe <mikael@lilotux.net> parents: 416 diff changeset	1198 {
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1199 char **paramlst;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1200 char *subcmd;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1201
472 75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	1202 if (!jb_getonline()) {
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	1203 scr_LogPrint(LPRINT_NORMAL, "You are not connected");
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	1204 return;
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	1205 }
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	1206
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1207 paramlst = split_arg(arg, 2, 1); // subcmd, arg
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1208 subcmd = *paramlst;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1209 arg = *(paramlst+1);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1210
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1211 if (!subcmd \|\| !*subcmd) {
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1212 scr_LogPrint(LPRINT_NORMAL, "Please read the manual page"
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1213 " before using /rawxml :-)");
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1214 free_arg_lst(paramlst);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1215 return;
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1216 }
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1217
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1218 if (!strcasecmp(subcmd, "send")) {
461 1d8f5b3a5f2b Convert /rawxml argument to UTF8 Mikael Berthe <mikael@lilotux.net> parents: 454 diff changeset	1219 gchar *buffer;
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1220
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1221 if (!subcmd \|\| !*subcmd) {
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1222 scr_LogPrint(LPRINT_NORMAL, "Missing parameter");
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1223 free_arg_lst(paramlst);
461 1d8f5b3a5f2b Convert /rawxml argument to UTF8 Mikael Berthe <mikael@lilotux.net> parents: 454 diff changeset	1224 return;
1d8f5b3a5f2b Convert /rawxml argument to UTF8 Mikael Berthe <mikael@lilotux.net> parents: 454 diff changeset	1225 }
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1226
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1227 // We don't strip_arg_special_chars() here, because it would be a pain for
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1228 // the user to escape quotes in a XML stream...
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1229
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1230 buffer = to_utf8(arg);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1231 if (buffer) {
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1232 scr_LogPrint(LPRINT_NORMAL, "Sending XML string");
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1233 jb_send_raw(buffer);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1234 g_free(buffer);
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1235 } else {
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1236 scr_LogPrint(LPRINT_NORMAL, "Conversion error in XML string");
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1237 }
436 802da817a684 Add /rawxml command Mikael Berthe <mikael@lilotux.net> parents: 416 diff changeset	1238 } else {
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1239 scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
436 802da817a684 Add /rawxml command Mikael Berthe <mikael@lilotux.net> parents: 416 diff changeset	1240 }
557 c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1241
c72a66dfd2d4 Use split_arg() in most commands Mikael Berthe <mikael@lilotux.net> parents: 555 diff changeset	1242 free_arg_lst(paramlst);
436 802da817a684 Add /rawxml command Mikael Berthe <mikael@lilotux.net> parents: 416 diff changeset	1243 }
802da817a684 Add /rawxml command Mikael Berthe <mikael@lilotux.net> parents: 416 diff changeset	1244
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1245 // check_room_subcommand(arg, param_needed, buddy_must_be_a_room)
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1246 // - Check if this is a room, if buddy_must_be_a_room is not null
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1247 // - Check there is at least 1 parameter, if param_needed is true
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1248 // - Return null if one of the checks fails, or a pointer to the first
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1249 // non-space character.
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1250 static char check_room_subcommand(char arg, bool param_needed,
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1251 gpointer buddy_must_be_a_room)
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1252 {
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1253 if (buddy_must_be_a_room &&
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1254 !(buddy_gettype(buddy_must_be_a_room) & ROSTER_TYPE_ROOM)) {
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1255 scr_LogPrint(LPRINT_NORMAL, "This isn't a chatroom");
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1256 return NULL;
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1257 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1258
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1259 if (param_needed) {
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1260 if (!arg) {
568 eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1261 scr_LogPrint(LPRINT_NORMAL, "Missing parameter");
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1262 return NULL;
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1263 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1264 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1265
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1266 if (arg)
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1267 return arg;
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1268 else
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1269 return "";
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1270 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1271
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1272 static void room_join(gpointer bud, char *arg)
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1273 {
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1274 char **paramlst;
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1275 char roomname, nick;
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1276
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1277 paramlst = split_arg(arg, 2, 0); // roomid, nickname
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1278 roomname = *paramlst;
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1279 nick = *(paramlst+1);
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1280
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1281
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1282 if (!roomname \|\| strchr(roomname, '/')) {
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1283 scr_LogPrint(LPRINT_NORMAL, "Invalid room name");
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1284 free_arg_lst(paramlst);
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1285 return;
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1286 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1287
565 89c347b3e4c1 MUC: Make "/room nick" display the current nickname Mikael Berthe <mikael@lilotux.net> parents: 558 diff changeset	1288 if (!nick \|\| !*nick) {
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1289 scr_LogPrint(LPRINT_NORMAL, "Missing parameter (nickname)");
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1290 free_arg_lst(paramlst);
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1291 return;
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1292 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1293
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1294 // Note that roomname is part of the array allocated by split_arg(),
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1295 // so we can modify it.
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1296 mc_strtolower(roomname);
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1297 jb_room_join(roomname, nick);
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1298
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1299 buddylist_build();
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1300 update_roster = TRUE;
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1301 free_arg_lst(paramlst);
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1302 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1303
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1304 static void room_invite(gpointer bud, char *arg)
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1305 {
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1306 char **paramlst;
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1307 const gchar *roomname;
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1308 char* jid;
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1309
570 29806b0fe830 Some parsing improvements Mikael Berthe <mikael@lilotux.net> parents: 568 diff changeset	1310 paramlst = split_arg(arg, 2, 1); // jid, [reason]
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1311 jid = *paramlst;
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1312 arg = *(paramlst+1);
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1313 // An empty reason is no reason...
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1314 if (arg && !*arg)
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1315 arg = NULL;
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1316
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1317 if (!jid \|\| !*jid) {
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1318 scr_LogPrint(LPRINT_NORMAL, "Missing or incorrect parameter");
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1319 free_arg_lst(paramlst);
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1320 return;
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1321 }
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1322
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1323 roomname = buddy_getjid(bud);
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1324 jb_room_invite(roomname, jid, arg);
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1325 scr_LogPrint(LPRINT_LOGNORM, "Invitation sent to <%s>", jid);
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1326 free_arg_lst(paramlst);
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1327 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1328
585 7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1329 static void room_affil(gpointer bud, char *arg)
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1330 {
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1331 char **paramlst;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1332 gchar jid, rolename;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1333 struct role_affil ra;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1334 const char *roomid = buddy_getjid(bud);
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1335
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1336 paramlst = split_arg(arg, 3, 1); // jid, new_affil, [reason]
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1337 jid = *paramlst;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1338 rolename = *(paramlst+1);
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1339 arg = *(paramlst+2);
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1340
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1341 if (!jid \|\| !jid \|\| !rolename \|\| !rolename) {
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1342 scr_LogPrint(LPRINT_NORMAL, "Missing parameter");
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1343 free_arg_lst(paramlst);
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1344 return;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1345 }
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1346
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1347 ra.type = type_affil;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1348 ra.val.affil = affil_none;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1349 for (; ra.val.affil < imaffiliation_size; ra.val.affil++)
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1350 if (!strcasecmp(rolename, straffil[ra.val.affil]))
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1351 break;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1352
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1353 if (ra.val.affil < imaffiliation_size)
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1354 jb_room_setattrib(roomid, jid, NULL, ra, arg);
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1355 else
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1356 scr_LogPrint(LPRINT_NORMAL, "Wrong affiliation parameter");
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1357
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1358 free_arg_lst(paramlst);
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1359 }
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1360
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1361 static void room_role(gpointer bud, char *arg)
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1362 {
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1363 char **paramlst;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1364 gchar jid, rolename;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1365 struct role_affil ra;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1366 const char *roomid = buddy_getjid(bud);
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1367
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1368 paramlst = split_arg(arg, 3, 1); // jid, new_role, [reason]
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1369 jid = *paramlst;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1370 rolename = *(paramlst+1);
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1371 arg = *(paramlst+2);
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1372
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1373 if (!jid \|\| !jid \|\| !rolename \|\| !rolename) {
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1374 scr_LogPrint(LPRINT_NORMAL, "Missing parameter");
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1375 free_arg_lst(paramlst);
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1376 return;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1377 }
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1378
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1379 ra.type = type_role;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1380 ra.val.role = role_none;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1381 for (; ra.val.role < imrole_size; ra.val.role++)
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1382 if (!strcasecmp(rolename, strrole[ra.val.role]))
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1383 break;
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1384
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1385 if (ra.val.role < imrole_size)
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1386 jb_room_setattrib(roomid, jid, NULL, ra, arg);
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1387 else
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1388 scr_LogPrint(LPRINT_NORMAL, "Wrong role parameter");
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1389
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1390 free_arg_lst(paramlst);
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1391 }
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1392
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1393
571 d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1394 // The expected argument is a Jabber id
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1395 static void room_ban(gpointer bud, char *arg)
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1396 {
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1397 char **paramlst;
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1398 gchar *jid;
584 414fbf558f1e jb_room_setattrib() Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	1399 struct role_affil ra;
571 d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1400 const char *roomid = buddy_getjid(bud);
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1401
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1402 paramlst = split_arg(arg, 2, 1); // jid, [reason]
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1403 jid = *paramlst;
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1404 arg = *(paramlst+1);
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1405
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1406 if (!jid \|\| !*jid) {
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1407 scr_LogPrint(LPRINT_NORMAL, "Missing parameter (Jabber id)");
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1408 free_arg_lst(paramlst);
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1409 return;
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1410 }
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1411
584 414fbf558f1e jb_room_setattrib() Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	1412 ra.type = type_affil;
414fbf558f1e jb_room_setattrib() Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	1413 ra.val.affil = affil_outcast;
414fbf558f1e jb_room_setattrib() Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	1414
414fbf558f1e jb_room_setattrib() Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	1415 jb_room_setattrib(roomid, jid, NULL, ra, arg);
571 d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1416
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1417 free_arg_lst(paramlst);
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1418 }
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1419
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1420 // The expected argument is a nickname
568 eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1421 static void room_kick(gpointer bud, char *arg)
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1422 {
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1423 char **paramlst;
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1424 gchar *nick;
584 414fbf558f1e jb_room_setattrib() Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	1425 struct role_affil ra;
568 eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1426 const char *roomid = buddy_getjid(bud);
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1427
571 d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1428 paramlst = split_arg(arg, 2, 1); // nickname, [reason]
568 eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1429 nick = *paramlst;
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1430 arg = *(paramlst+1);
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1431
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1432 if (!nick \|\| !*nick) {
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1433 scr_LogPrint(LPRINT_NORMAL, "Missing parameter (nickname)");
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1434 free_arg_lst(paramlst);
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1435 return;
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1436 }
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1437
584 414fbf558f1e jb_room_setattrib() Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	1438 ra.type = type_role;
414fbf558f1e jb_room_setattrib() Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	1439 ra.val.affil = role_none;
414fbf558f1e jb_room_setattrib() Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	1440
414fbf558f1e jb_room_setattrib() Mikael Berthe <mikael@lilotux.net> parents: 580 diff changeset	1441 jb_room_setattrib(roomid, NULL, nick, ra, arg);
568 eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1442
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1443 free_arg_lst(paramlst);
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1444 }
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1445
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1446 static void room_leave(gpointer bud, char *arg)
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1447 {
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1448 gchar roomid, utf8_nickname;
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1449
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1450 utf8_nickname = to_utf8(buddy_getnickname(bud));
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1451 roomid = g_strdup_printf("%s/%s", buddy_getjid(bud), utf8_nickname);
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1452 jb_setstatus(offline, roomid, arg);
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1453 g_free(utf8_nickname);
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1454 g_free(roomid);
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1455 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1456
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1457 static void room_nick(gpointer bud, char *arg)
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1458 {
565 89c347b3e4c1 MUC: Make "/room nick" display the current nickname Mikael Berthe <mikael@lilotux.net> parents: 558 diff changeset	1459 if (!arg \|\| !*arg) {
89c347b3e4c1 MUC: Make "/room nick" display the current nickname Mikael Berthe <mikael@lilotux.net> parents: 558 diff changeset	1460 const char *nick = buddy_getnickname(bud);
89c347b3e4c1 MUC: Make "/room nick" display the current nickname Mikael Berthe <mikael@lilotux.net> parents: 558 diff changeset	1461 if (nick)
89c347b3e4c1 MUC: Make "/room nick" display the current nickname Mikael Berthe <mikael@lilotux.net> parents: 558 diff changeset	1462 scr_LogPrint(LPRINT_NORMAL, "Your nickname is: %s", nick);
89c347b3e4c1 MUC: Make "/room nick" display the current nickname Mikael Berthe <mikael@lilotux.net> parents: 558 diff changeset	1463 else
89c347b3e4c1 MUC: Make "/room nick" display the current nickname Mikael Berthe <mikael@lilotux.net> parents: 558 diff changeset	1464 scr_LogPrint(LPRINT_NORMAL, "You have no nickname");
89c347b3e4c1 MUC: Make "/room nick" display the current nickname Mikael Berthe <mikael@lilotux.net> parents: 558 diff changeset	1465 } else {
89c347b3e4c1 MUC: Make "/room nick" display the current nickname Mikael Berthe <mikael@lilotux.net> parents: 558 diff changeset	1466 gchar *cmd;
89c347b3e4c1 MUC: Make "/room nick" display the current nickname Mikael Berthe <mikael@lilotux.net> parents: 558 diff changeset	1467 cmd = g_strdup_printf("%s %s", buddy_getjid(bud), arg);
89c347b3e4c1 MUC: Make "/room nick" display the current nickname Mikael Berthe <mikael@lilotux.net> parents: 558 diff changeset	1468 room_join(bud, cmd);
89c347b3e4c1 MUC: Make "/room nick" display the current nickname Mikael Berthe <mikael@lilotux.net> parents: 558 diff changeset	1469 g_free(cmd);
89c347b3e4c1 MUC: Make "/room nick" display the current nickname Mikael Berthe <mikael@lilotux.net> parents: 558 diff changeset	1470 }
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1471 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1472
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1473 static void room_privmsg(gpointer bud, char *arg)
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1474 {
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1475 char **paramlst;
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1476 gchar nick, cmd;
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1477
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1478 paramlst = split_arg(arg, 2, 0); // nickname, message
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1479 nick = *paramlst;
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1480 arg = *(paramlst+1);
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1481
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1482 if (!nick \|\| !nick \|\| !arg \|\| !arg) {
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1483 scr_LogPrint(LPRINT_NORMAL, "Missing parameter");
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1484 free_arg_lst(paramlst);
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1485 return;
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1486 }
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1487
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1488 cmd = g_strdup_printf("%s/%s %s", buddy_getjid(bud), nick, arg);
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1489 do_say_to(cmd);
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1490 g_free(cmd);
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1491 free_arg_lst(paramlst);
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1492 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1493
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1494 static void room_remove(gpointer bud, char *arg)
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1495 {
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1496 if (*arg) {
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1497 scr_LogPrint(LPRINT_NORMAL, "Unknown parameter");
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1498 return;
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1499 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1500
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1501 // Quick check: if there are resources, we haven't left
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1502 if (buddy_isresource(bud)) {
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1503 scr_LogPrint(LPRINT_NORMAL, "You haven't left this room!");
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1504 return;
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1505 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1506 // Delete the room
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1507 roster_del_user(buddy_getjid(bud));
598 a3db3ee8b99e Fix some display issues Mikael Berthe <mikael@lilotux.net> parents: 590 diff changeset	1508 scr_ShowBuddyWindow();
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1509 buddylist_build();
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1510 update_roster = TRUE;
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1511 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1512
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1513 static void room_topic(gpointer bud, char *arg)
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1514 {
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1515 gchar *msg;
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1516
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1517 // If no parameter is given, display the current topic
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1518 if (!*arg) {
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1519 const char *topic = buddy_gettopic(bud);
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1520 if (topic)
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1521 scr_LogPrint(LPRINT_NORMAL, "Topic: %s", topic);
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1522 else
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1523 scr_LogPrint(LPRINT_NORMAL, "No topic has been set");
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1524 return;
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1525 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1526
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1527 // Set the topic
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1528 msg = g_strdup_printf("/me has set the topic to: %s", arg);
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1529 jb_send_msg(buddy_getjid(bud), msg, ROSTER_TYPE_ROOM, arg);
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1530 g_free(msg);
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1531 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1532
599 fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	1533 static void room_destroy(gpointer bud, char *arg)
fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	1534 {
fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	1535 gchar *msg;
fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	1536
fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	1537 if (arg && *arg)
fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	1538 msg = arg;
fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	1539 else
fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	1540 msg = NULL;
fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	1541
fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	1542 jb_room_destroy(buddy_getjid(bud), NULL, msg);
fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	1543 }
fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	1544
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1545 static void room_unlock(gpointer bud, char *arg)
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1546 {
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1547 if (*arg) {
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1548 scr_LogPrint(LPRINT_NORMAL, "Unknown parameter");
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1549 return;
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1550 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1551
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1552 jb_room_unlock(buddy_getjid(bud));
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1553 }
ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1554
572 afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1555 static void room_whois(gpointer bud, char *arg)
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1556 {
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1557 char **paramlst;
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1558 gchar nick, buffer;
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1559 const char jid, realjid;
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1560 const char *rst_msg;
575 1b8e024c3a10 Improve /room whois Mikael Berthe <mikael@lilotux.net> parents: 572 diff changeset	1561 gchar rprio;
572 afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1562 enum imstatus rstatus;
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1563 enum imrole role;
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1564 enum imaffiliation affil;
625 028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	1565 time_t rst_time;
572 afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1566
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1567 char *strroles[] = { "none", "moderator", "participant", "visitor" };
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1568 char *straffil[] = { "none", "owner", "admin", "member", "outcast" };
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1569
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1570 paramlst = split_arg(arg, 1, 0); // nickname
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1571 nick = *paramlst;
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1572
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1573 if (!nick \|\| !*nick) {
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1574 scr_LogPrint(LPRINT_NORMAL, "Missing parameter (nickname)");
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1575 free_arg_lst(paramlst);
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1576 return;
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1577 }
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1578
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1579 jid = buddy_getjid(bud);
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1580 rstatus = buddy_getstatus(bud, nick);
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1581
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1582 if (rstatus == offline) {
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1583 scr_LogPrint(LPRINT_NORMAL, "No such member: %s", nick);
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1584 free_arg_lst(paramlst);
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1585 return;
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1586 }
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1587
625 028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	1588 rst_time = buddy_getstatustime(bud, nick);
575 1b8e024c3a10 Improve /room whois Mikael Berthe <mikael@lilotux.net> parents: 572 diff changeset	1589 rprio = buddy_getresourceprio(bud, nick);
572 afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1590 rst_msg = buddy_getstatusmsg(bud, nick);
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1591 if (!rst_msg) rst_msg = "";
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1592
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1593 role = buddy_getrole(bud, nick);
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1594 affil = buddy_getaffil(bud, nick);
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1595 realjid = buddy_getrjid(bud, nick);
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1596
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	1597 buffer = g_new(char, 4096);
572 afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1598
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	1599 snprintf(buffer, 4095, "Whois [%s]", nick);
572 afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1600 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	1601 snprintf(buffer, 4095, "Status : [%c] %s", imstatus2char[rstatus],
572 afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1602 rst_msg);
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1603 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1604
625 028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	1605 if (rst_time) {
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	1606 char tbuf[128];
625 028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	1607
028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	1608 strftime(tbuf, sizeof(tbuf), "%Y-%m-%d %H:%M:%S", localtime(&rst_time));
028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	1609 snprintf(buffer, 127, "Timestamp: %s", tbuf);
028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	1610 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	1611 }
028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	1612
572 afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1613 if (realjid) {
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	1614 snprintf(buffer, 4095, "JID : <%s>", realjid);
572 afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1615 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1616 }
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1617
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	1618 snprintf(buffer, 4095, "Role : %s", strroles[role]);
575 1b8e024c3a10 Improve /room whois Mikael Berthe <mikael@lilotux.net> parents: 572 diff changeset	1619 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	1620 snprintf(buffer, 4095, "Affiliat.: %s", straffil[affil]);
572 afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1621 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
626 b75f4105ce32 Use a larger buffer for commands like /info Mikael Berthe <mikael@lilotux.net> parents: 625 diff changeset	1622 snprintf(buffer, 4095, "Priority : %d", rprio);
572 afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1623 scr_WriteIncomingMessage(jid, buffer, 0, HBB_PREFIX_INFO);
625 028c01940490 Show presence timestamps in "/info" and "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 622 diff changeset	1624
575 1b8e024c3a10 Improve /room whois Mikael Berthe <mikael@lilotux.net> parents: 572 diff changeset	1625 scr_WriteIncomingMessage(jid, "End of WHOIS", 0, HBB_PREFIX_INFO);
572 afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1626
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1627 g_free(buffer);
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1628 free_arg_lst(paramlst);
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1629 }
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1630
447 03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	1631 static void do_room(char *arg)
03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	1632 {
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1633 char **paramlst;
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1634 char *subcmd;
447 03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	1635 gpointer bud;
03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	1636
472 75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	1637 if (!jb_getonline()) {
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	1638 scr_LogPrint(LPRINT_NORMAL, "You are not connected");
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	1639 return;
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	1640 }
75442262c082 Disable some commands when not connected Mikael Berthe <mikael@lilotux.net> parents: 471 diff changeset	1641
471 82a27508fb85 Fix segfaults when using /buffer and /room while not connected Mikael Berthe <mikael@lilotux.net> parents: 470 diff changeset	1642 if (!current_buddy) return;
447 03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	1643 bud = BUDDATA(current_buddy);
03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	1644
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1645 paramlst = split_arg(arg, 2, 1); // subcmd, arg
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1646 subcmd = *paramlst;
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1647 arg = *(paramlst+1);
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1648
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1649 if (!subcmd \|\| !*subcmd) {
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1650 scr_LogPrint(LPRINT_NORMAL, "Missing parameter");
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1651 free_arg_lst(paramlst);
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1652 return;
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1653 }
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1654
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1655 if (!strcasecmp(subcmd, "join")) {
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1656 if ((arg = check_room_subcommand(arg, TRUE, NULL)) != NULL)
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1657 room_join(bud, arg);
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1658 } else if (!strcasecmp(subcmd, "invite")) {
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1659 if ((arg = check_room_subcommand(arg, TRUE, bud)) != NULL)
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1660 room_invite(bud, arg);
585 7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1661 } else if (!strcasecmp(subcmd, "affil")) {
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1662 if ((arg = check_room_subcommand(arg, TRUE, bud)) != NULL)
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1663 room_affil(bud, arg);
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1664 } else if (!strcasecmp(subcmd, "role")) {
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1665 if ((arg = check_room_subcommand(arg, TRUE, bud)) != NULL)
7eff2c1481fa Add "/room affil" and "/room role" Mikael Berthe <mikael@lilotux.net> parents: 584 diff changeset	1666 room_role(bud, arg);
571 d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1667 } else if (!strcasecmp(subcmd, "ban")) {
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1668 if ((arg = check_room_subcommand(arg, TRUE, bud)) != NULL)
d63e6cbdc297 Add "/room ban" Mikael Berthe <mikael@lilotux.net> parents: 570 diff changeset	1669 room_ban(bud, arg);
568 eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1670 } else if (!strcasecmp(subcmd, "kick")) {
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1671 if ((arg = check_room_subcommand(arg, TRUE, bud)) != NULL)
eb1df2371581 Add "/room kick" Mikael Berthe <mikael@lilotux.net> parents: 566 diff changeset	1672 room_kick(bud, arg);
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1673 } else if (!strcasecmp(subcmd, "leave")) {
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1674 if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1675 room_leave(bud, arg);
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1676 } else if (!strcasecmp(subcmd, "names")) {
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1677 if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1678 room_names(bud, arg);
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1679 } else if (!strcasecmp(subcmd, "nick")) {
565 89c347b3e4c1 MUC: Make "/room nick" display the current nickname Mikael Berthe <mikael@lilotux.net> parents: 558 diff changeset	1680 if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1681 room_nick(bud, arg);
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1682 } else if (!strcasecmp(subcmd, "privmsg")) {
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1683 if ((arg = check_room_subcommand(arg, TRUE, bud)) != NULL)
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1684 room_privmsg(bud, arg);
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1685 } else if (!strcasecmp(subcmd, "remove")) {
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1686 if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1687 room_remove(bud, arg);
599 fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	1688 } else if (!strcasecmp(subcmd, "destroy")) {
fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	1689 if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
fb67bf62f4eb Add "/room destroy" Mikael Berthe <mikael@lilotux.net> parents: 598 diff changeset	1690 room_destroy(bud, arg);
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1691 } else if (!strcasecmp(subcmd, "unlock")) {
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1692 if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1693 room_unlock(bud, arg);
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1694 } else if (!strcasecmp(subcmd, "topic")) {
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1695 if ((arg = check_room_subcommand(arg, FALSE, bud)) != NULL)
552 ba5271b49f21 Split do_room() Mikael Berthe <mikael@lilotux.net> parents: 549 diff changeset	1696 room_topic(bud, arg);
572 afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1697 } else if (!strcasecmp(subcmd, "whois")) {
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1698 if ((arg = check_room_subcommand(arg, TRUE, bud)) != NULL)
afc2bd38b15c Implement affiliations handling, add "/room whois" Mikael Berthe <mikael@lilotux.net> parents: 571 diff changeset	1699 room_whois(bud, arg);
447 03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	1700 } else {
03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	1701 scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	1702 }
554 2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1703
2424bbf0a6db Some more work on do_room() Mikael Berthe <mikael@lilotux.net> parents: 552 diff changeset	1704 free_arg_lst(paramlst);
447 03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	1705 }
03bb57383cea Initial Multi-User Chat support Mikael Berthe <mikael@lilotux.net> parents: 446 diff changeset	1706
617 d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1707 static void do_authorization(char *arg)
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1708 {
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1709 char **paramlst;
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1710 char *subcmd;
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1711
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1712 if (!jb_getonline()) {
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1713 scr_LogPrint(LPRINT_NORMAL, "You are not connected");
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1714 return;
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1715 }
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1716
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1717 paramlst = split_arg(arg, 2, 0); // subcmd, [jid]
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1718 subcmd = *paramlst;
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1719 arg = *(paramlst+1);
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1720
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1721 if (!subcmd \|\| !*subcmd) {
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1722 scr_LogPrint(LPRINT_NORMAL, "Missing parameter");
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1723 free_arg_lst(paramlst);
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1724 return;
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1725 }
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1726
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1727 // Use the provided jid, if it looks valid
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1728 if (arg) {
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1729 if (!*arg) {
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1730 // If no jid is provided, we use the current selected buddy
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1731 arg = NULL;
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1732 } else {
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1733 if (check_jid_syntax(arg)) {
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1734 scr_LogPrint(LPRINT_NORMAL, "<%s> is not a valid Jabber id", arg);
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1735 free_arg_lst(paramlst);
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1736 return;
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1737 }
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1738 }
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1739 }
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1740
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1741 if (!arg) { // Use the current selected buddy's jid
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1742 gpointer bud;
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1743 guint type;
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1744
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1745 if (!current_buddy) return;
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1746 bud = BUDDATA(current_buddy);
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1747
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1748 arg = (char*)buddy_getjid(bud);
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1749 type = buddy_gettype(bud);
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1750
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1751 if (!(type & (ROSTER_TYPE_USER\|ROSTER_TYPE_AGENT))) {
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1752 scr_LogPrint(LPRINT_NORMAL, "Invalid buddy");
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1753 return;
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1754 }
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1755 }
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1756
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1757 if (!strcasecmp(subcmd, "allow")) {
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1758 jb_subscr_send_auth(arg);
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1759 scr_LogPrint(LPRINT_LOGNORM,
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1760 "<%s> is allowed to receive your presence updates", arg);
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1761 } else if (!strcasecmp(subcmd, "cancel")) {
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1762 jb_subscr_cancel_auth(arg);
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1763 scr_LogPrint(LPRINT_LOGNORM,
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1764 "<%s> is no more allowed to receive your presence updates",
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1765 arg);
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1766 } else if (!strcasecmp(subcmd, "request")) {
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1767 jb_subscr_request_auth(arg);
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1768 scr_LogPrint(LPRINT_LOGNORM,
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1769 "Sent presence notification request to <%s>", arg);
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1770 } else {
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1771 scr_LogPrint(LPRINT_NORMAL, "Unrecognized parameter!");
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1772 }
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1773
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1774 free_arg_lst(paramlst);
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1775 }
d3a8b43bf9e7 Add "/authorization" command Mikael Berthe <mikael@lilotux.net> parents: 608 diff changeset	1776
622 2b7ef605ddc6 Add /version command Mikael Berthe <mikael@lilotux.net> parents: 620 diff changeset	1777 static void do_version(char *arg)
2b7ef605ddc6 Add /version command Mikael Berthe <mikael@lilotux.net> parents: 620 diff changeset	1778 {
2b7ef605ddc6 Add /version command Mikael Berthe <mikael@lilotux.net> parents: 620 diff changeset	1779 scr_LogPrint(LPRINT_NORMAL, "This is mcabber version %s", PACKAGE_VERSION);
2b7ef605ddc6 Add /version command Mikael Berthe <mikael@lilotux.net> parents: 620 diff changeset	1780 }
2b7ef605ddc6 Add /version command Mikael Berthe <mikael@lilotux.net> parents: 620 diff changeset	1781
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	1782 static void do_connect(char *arg)
298 35cda94e570d Add /connect and /disconnect commands Mikael Berthe <mikael@lilotux.net> parents: 290 diff changeset	1783 {
35cda94e570d Add /connect and /disconnect commands Mikael Berthe <mikael@lilotux.net> parents: 290 diff changeset	1784 mcabber_connect();
35cda94e570d Add /connect and /disconnect commands Mikael Berthe <mikael@lilotux.net> parents: 290 diff changeset	1785 }
35cda94e570d Add /connect and /disconnect commands Mikael Berthe <mikael@lilotux.net> parents: 290 diff changeset	1786
336 eb994ee40029 Make some functions static Mikael Berthe <mikael@lilotux.net> parents: 330 diff changeset	1787 static void do_disconnect(char *arg)
298 35cda94e570d Add /connect and /disconnect commands Mikael Berthe <mikael@lilotux.net> parents: 290 diff changeset	1788 {
35cda94e570d Add /connect and /disconnect commands Mikael Berthe <mikael@lilotux.net> parents: 290 diff changeset	1789 jb_disconnect();
35cda94e570d Add /connect and /disconnect commands Mikael Berthe <mikael@lilotux.net> parents: 290 diff changeset	1790 }
576 8b3db0b555a1 Add Vim modelines Mikael Berthe <mikael@lilotux.net> parents: 575 diff changeset	1791
580 fed6d1e4d7a9 Fix modelines Mikael Berthe <mikael@lilotux.net> parents: 576 diff changeset	1792 /* vim: set expandtab cindent cinoptions=>2\:2(0: For Vim users... */

Mercurial > ~mikael > mcabber > hg

annotate mcabber/src/commands.c @ 638:f6946251acdf