| |
1 /** |
| |
2 * @file parse.c |
| |
3 * |
| |
4 * gaim |
| |
5 * |
| |
6 * Copyright (C) 2003, Ethan Blanton <eblanton@cs.purdue.edu> |
| |
7 * |
| |
8 * This program is free software; you can redistribute it and/or modify |
| |
9 * it under the terms of the GNU General Public License as published by |
| |
10 * the Free Software Foundation; either version 2 of the License, or |
| |
11 * (at your option) any later version. |
| |
12 * |
| |
13 * This program is distributed in the hope that it will be useful, |
| |
14 * but WITHOUT ANY WARRANTY; without even the implied warranty of |
| |
15 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| |
16 * GNU General Public License for more details. |
| |
17 * |
| |
18 * You should have received a copy of the GNU General Public License |
| |
19 * along with this program; if not, write to the Free Software |
| |
20 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA |
| |
21 */ |
| |
22 |
| |
23 #include "internal.h" |
| |
24 |
| |
25 #include "accountopt.h" |
| |
26 #include "conversation.h" |
| |
27 #include "notify.h" |
| |
28 #include "debug.h" |
| |
29 #include "util.h" |
| |
30 #include "cmds.h" |
| |
31 #include "irc.h" |
| |
32 |
| |
33 #include <stdio.h> |
| |
34 #include <stdlib.h> |
| |
35 #include <ctype.h> |
| |
36 |
| |
37 static char *irc_send_convert(struct irc_conn *irc, const char *string); |
| |
38 static char *irc_recv_convert(struct irc_conn *irc, const char *string); |
| |
39 |
| |
40 static void irc_parse_error_cb(struct irc_conn *irc, char *input); |
| |
41 |
| |
42 static char *irc_mirc_colors[16] = { |
| |
43 "white", "black", "blue", "dark green", "red", "brown", "purple", |
| |
44 "orange", "yellow", "green", "teal", "cyan", "light blue", |
| |
45 "pink", "grey", "light grey" }; |
| |
46 |
| |
47 /*typedef void (*IRCMsgCallback)(struct irc_conn *irc, char *from, char *name, char **args);*/ |
| |
48 static struct _irc_msg { |
| |
49 char *name; |
| |
50 char *format; |
| |
51 void (*cb)(struct irc_conn *irc, const char *name, const char *from, char **args); |
| |
52 } _irc_msgs[] = { |
| |
53 { "301", "nn:", irc_msg_away }, /* User is away */ |
| |
54 { "303", "n:", irc_msg_ison }, /* ISON reply */ |
| |
55 { "311", "nnvvv:", irc_msg_whois }, /* Whois user */ |
| |
56 { "312", "nnv:", irc_msg_whois }, /* Whois server */ |
| |
57 { "313", "nn:", irc_msg_whois }, /* Whois ircop */ |
| |
58 { "317", "nnvv", irc_msg_whois }, /* Whois idle */ |
| |
59 { "318", "nt:", irc_msg_endwhois }, /* End of WHOIS */ |
| |
60 { "319", "nn:", irc_msg_whois }, /* Whois channels */ |
| |
61 { "320", "nn:", irc_msg_whois }, /* Whois (fn ident) */ |
| |
62 { "321", "*", irc_msg_list }, /* Start of list */ |
| |
63 { "322", "ncv:", irc_msg_list }, /* List. */ |
| |
64 { "323", ":", irc_msg_list }, /* End of list. */ |
| |
65 { "324", "ncv:", irc_msg_chanmode }, /* Channel modes */ |
| |
66 { "331", "nc:", irc_msg_topic }, /* No channel topic */ |
| |
67 { "332", "nc:", irc_msg_topic }, /* Channel topic */ |
| |
68 { "333", "*", irc_msg_ignore }, /* Topic setter stuff */ |
| |
69 { "353", "nvc:", irc_msg_names }, /* Names list */ |
| |
70 { "366", "nc:", irc_msg_names }, /* End of names */ |
| |
71 { "372", "n:", irc_msg_motd }, /* MOTD */ |
| |
72 { "375", "n:", irc_msg_motd }, /* Start MOTD */ |
| |
73 { "376", "n:", irc_msg_endmotd }, /* End of MOTD */ |
| |
74 { "391", "nv:", irc_msg_time }, /* Time reply */ |
| |
75 { "401", "nt:", irc_msg_nonick }, /* No such nick/chan */ |
| |
76 { "403", "nc:", irc_msg_nochan }, /* No such channel */ |
| |
77 { "404", "nt:", irc_msg_nosend }, /* Cannot send to chan */ |
| |
78 { "421", "nv:", irc_msg_unknown }, /* Unknown command */ |
| |
79 { "422", "nv:", irc_msg_endmotd }, /* No MOTD available */ |
| |
80 { "432", "vn:", irc_msg_badnick }, /* Erroneous nickname */ |
| |
81 { "433", "vn:", irc_msg_nickused }, /* Nickname already in use */ |
| |
82 { "437", "nc:", irc_msg_unavailable }, /* Nick/channel is unavailable */ |
| |
83 { "438", "nn:", irc_msg_nochangenick }, /* Nick may not change */ |
| |
84 { "442", "nc:", irc_msg_notinchan }, /* Not in channel */ |
| |
85 { "473", "nc:", irc_msg_inviteonly }, /* Tried to join invite-only */ |
| |
86 { "474", "nc:", irc_msg_banned }, /* Banned from channel */ |
| |
87 { "478", "nct:", irc_msg_banfull }, /* Banlist is full */ |
| |
88 { "482", "nc:", irc_msg_notop }, /* Need to be op to do that */ |
| |
89 { "501", "n:", irc_msg_badmode }, /* Unknown mode flag */ |
| |
90 { "506", "nc:", irc_msg_nosend }, /* Must identify to send */ |
| |
91 { "515", "nc:", irc_msg_regonly }, /* Registration required */ |
| |
92 { "invite", "n:", irc_msg_invite }, /* Invited */ |
| |
93 { "join", ":", irc_msg_join }, /* Joined a channel */ |
| |
94 { "kick", "cn:", irc_msg_kick }, /* KICK */ |
| |
95 { "mode", "tv:", irc_msg_mode }, /* MODE for channel */ |
| |
96 { "nick", ":", irc_msg_nick }, /* Nick change */ |
| |
97 { "notice", "t:", irc_msg_notice }, /* NOTICE recv */ |
| |
98 { "part", "c:", irc_msg_part }, /* Parted a channel */ |
| |
99 { "ping", ":", irc_msg_ping }, /* Received PING from server */ |
| |
100 { "pong", "v:", irc_msg_pong }, /* Received PONG from server */ |
| |
101 { "privmsg", "t:", irc_msg_privmsg }, /* Received private message */ |
| |
102 { "topic", "c:", irc_msg_topic }, /* TOPIC command */ |
| |
103 { "quit", ":", irc_msg_quit }, /* QUIT notice */ |
| |
104 { "wallops", ":", irc_msg_wallops }, /* WALLOPS command */ |
| |
105 { NULL, NULL, NULL } |
| |
106 }; |
| |
107 |
| |
108 static struct _irc_user_cmd { |
| |
109 char *name; |
| |
110 char *format; |
| |
111 IRCCmdCallback cb; |
| |
112 char *help; |
| |
113 } _irc_cmds[] = { |
| |
114 { "action", ":", irc_cmd_ctcp_action, N_("action <action to perform>: Perform an action.") }, |
| |
115 { "away", ":", irc_cmd_away, N_("away [message]: Set an away message, or use no message to return from being away.") }, |
| |
116 { "chanserv", ":", irc_cmd_service, N_("chanserv: Send a command to chanserv") }, |
| |
117 { "deop", ":", irc_cmd_op, N_("deop <nick1> [nick2] ...: Remove channel operator status from someone. You must be a channel operator to do this.") }, |
| |
118 { "devoice", ":", irc_cmd_op, N_("devoice <nick1> [nick2] ...: Remove channel voice status from someone, preventing them from speaking if the channel is moderated (+m). You must be a channel operator to do this.") }, |
| |
119 { "invite", ":", irc_cmd_invite, N_("invite <nick> [room]: Invite someone to join you in the specified channel, or the current channel.") }, |
| |
120 { "j", "cv", irc_cmd_join, N_("j <room1>[,room2][,...] [key1[,key2][,...]]: Enter one or more channels, optionally providing a channel key for each if needed.") }, |
| |
121 { "join", "cv", irc_cmd_join, N_("join <room1>[,room2][,...] [key1[,key2][,...]]: Enter one or more channels, optionally providing a channel key for each if needed.") }, |
| |
122 { "kick", "n:", irc_cmd_kick, N_("kick <nick> [message]: Remove someone from a channel. You must be a channel operator to do this.") }, |
| |
123 { "list", ":", irc_cmd_list, N_("list: Display a list of chat rooms on the network. <i>Warning, some servers may disconnect you upon doing this.</i>") }, |
| |
124 { "me", ":", irc_cmd_ctcp_action, N_("me <action to perform>: Perform an action.") }, |
| |
125 { "memoserv", ":", irc_cmd_service, N_("memoserv: Send a command to memoserv") }, |
| |
126 { "mode", ":", irc_cmd_mode, N_("mode <+|-><A-Za-z> <nick|channel>: Set or unset a channel or user mode.") }, |
| |
127 { "msg", "t:", irc_cmd_privmsg, N_("msg <nick> <message>: Send a private message to a user (as opposed to a channel).") }, |
| |
128 { "names", "c", irc_cmd_names, N_("names [channel]: List the users currently in a channel.") }, |
| |
129 { "nick", "n", irc_cmd_nick, N_("nick <new nickname>: Change your nickname.") }, |
| |
130 { "nickserv", ":", irc_cmd_service, N_("nickserv: Send a command to nickserv") }, |
| |
131 { "op", ":", irc_cmd_op, N_("op <nick1> [nick2] ...: Grant channel operator status to someone. You must be a channel operator to do this.") }, |
| |
132 { "operwall", ":", irc_cmd_wallops, N_("operwall <message>: If you don't know what this is, you probably can't use it.") }, |
| |
133 { "operserv", ":", irc_cmd_service, N_("operserv: Send a command to operserv") }, |
| |
134 { "part", "c:", irc_cmd_part, N_("part [room] [message]: Leave the current channel, or a specified channel, with an optional message.") }, |
| |
135 { "ping", "n", irc_cmd_ping, N_("ping [nick]: Asks how much lag a user (or the server if no user specified) has.") }, |
| |
136 { "query", "n:", irc_cmd_query, N_("query <nick> <message>: Send a private message to a user (as opposed to a channel).") }, |
| |
137 { "quit", ":", irc_cmd_quit, N_("quit [message]: Disconnect from the server, with an optional message.") }, |
| |
138 { "quote", "*", irc_cmd_quote, N_("quote [...]: Send a raw command to the server.") }, |
| |
139 { "remove", "n:", irc_cmd_remove, N_("remove <nick> [message]: Remove someone from a room. You must be a channel operator to do this.") }, |
| |
140 { "time", "", irc_cmd_time, N_("time: Displays the current local time at the IRC server.") }, |
| |
141 { "topic", ":", irc_cmd_topic, N_("topic [new topic]: View or change the channel topic.") }, |
| |
142 { "umode", ":", irc_cmd_mode, N_("umode <+|-><A-Za-z>: Set or unset a user mode.") }, |
| |
143 { "version", ":", irc_cmd_ctcp_version, N_("version [nick]: send CTCP VERSION request to a user") }, |
| |
144 { "voice", ":", irc_cmd_op, N_("voice <nick1> [nick2] ...: Grant channel voice status to someone. You must be a channel operator to do this.") }, |
| |
145 { "wallops", ":", irc_cmd_wallops, N_("wallops <message>: If you don't know what this is, you probably can't use it.") }, |
| |
146 { "whois", "tt", irc_cmd_whois, N_("whois [server] <nick>: Get information on a user.") }, |
| |
147 { NULL, NULL, NULL, NULL } |
| |
148 }; |
| |
149 |
| |
150 static GaimCmdRet irc_parse_gaim_cmd(GaimConversation *conv, const gchar *cmd, |
| |
151 gchar **args, gchar **error, void *data) |
| |
152 { |
| |
153 GaimConnection *gc; |
| |
154 struct irc_conn *irc; |
| |
155 struct _irc_user_cmd *cmdent; |
| |
156 |
| |
157 gc = gaim_conversation_get_gc(conv); |
| |
158 if (!gc) |
| |
159 return GAIM_CMD_RET_FAILED; |
| |
160 |
| |
161 irc = gc->proto_data; |
| |
162 |
| |
163 if ((cmdent = g_hash_table_lookup(irc->cmds, cmd)) == NULL) |
| |
164 return GAIM_CMD_RET_FAILED; |
| |
165 |
| |
166 (cmdent->cb)(irc, cmd, gaim_conversation_get_name(conv), (const char **)args); |
| |
167 |
| |
168 return GAIM_CMD_RET_OK; |
| |
169 } |
| |
170 |
| |
171 static void irc_register_command(struct _irc_user_cmd *c) |
| |
172 { |
| |
173 GaimCmdFlag f; |
| |
174 char args[10]; |
| |
175 char *format; |
| |
176 size_t i; |
| |
177 |
| |
178 f = GAIM_CMD_FLAG_CHAT | GAIM_CMD_FLAG_IM | GAIM_CMD_FLAG_PRPL_ONLY |
| |
179 | GAIM_CMD_FLAG_ALLOW_WRONG_ARGS; |
| |
180 |
| |
181 format = c->format; |
| |
182 |
| |
183 for (i = 0; (i < (sizeof(args) - 1)) && *format; i++, format++) |
| |
184 switch (*format) { |
| |
185 case 'v': |
| |
186 case 'n': |
| |
187 case 'c': |
| |
188 case 't': |
| |
189 args[i] = 'w'; |
| |
190 break; |
| |
191 case ':': |
| |
192 case '*': |
| |
193 args[i] = 's'; |
| |
194 break; |
| |
195 } |
| |
196 |
| |
197 args[i] = '\0'; |
| |
198 |
| |
199 gaim_cmd_register(c->name, args, GAIM_CMD_P_PRPL, f, "prpl-irc", |
| |
200 irc_parse_gaim_cmd, _(c->help), NULL); |
| |
201 } |
| |
202 |
| |
203 void irc_register_commands(void) |
| |
204 { |
| |
205 struct _irc_user_cmd *c; |
| |
206 |
| |
207 for (c = _irc_cmds; c && c->name; c++) |
| |
208 irc_register_command(c); |
| |
209 } |
| |
210 |
| |
211 static char *irc_send_convert(struct irc_conn *irc, const char *string) |
| |
212 { |
| |
213 char *utf8; |
| |
214 GError *err = NULL; |
| |
215 gchar **encodings; |
| |
216 const gchar *enclist; |
| |
217 |
| |
218 enclist = gaim_account_get_string(irc->account, "encoding", IRC_DEFAULT_CHARSET); |
| |
219 encodings = g_strsplit(enclist, ",", 2); |
| |
220 |
| |
221 if (encodings[0] == NULL || !strcasecmp("UTF-8", encodings[0])) { |
| |
222 g_strfreev(encodings); |
| |
223 return g_strdup(string); |
| |
224 } |
| |
225 |
| |
226 utf8 = g_convert(string, strlen(string), encodings[0], "UTF-8", NULL, NULL, &err); |
| |
227 if (err) { |
| |
228 gaim_debug(GAIM_DEBUG_ERROR, "irc", "Send conversion error: %s\n", err->message); |
| |
229 gaim_debug(GAIM_DEBUG_ERROR, "irc", "Sending as UTF-8 instead of %s\n", encodings[0]); |
| |
230 utf8 = g_strdup(string); |
| |
231 g_error_free(err); |
| |
232 } |
| |
233 g_strfreev(encodings); |
| |
234 |
| |
235 return utf8; |
| |
236 } |
| |
237 |
| |
238 static char *irc_recv_convert(struct irc_conn *irc, const char *string) |
| |
239 { |
| |
240 char *utf8 = NULL; |
| |
241 const gchar *charset, *enclist; |
| |
242 gchar **encodings; |
| |
243 int i; |
| |
244 |
| |
245 enclist = gaim_account_get_string(irc->account, "encoding", IRC_DEFAULT_CHARSET); |
| |
246 encodings = g_strsplit(enclist, ",", -1); |
| |
247 |
| |
248 if (encodings[0] == NULL) { |
| |
249 g_strfreev(encodings); |
| |
250 return gaim_utf8_salvage(string); |
| |
251 } |
| |
252 |
| |
253 for (i = 0; encodings[i] != NULL; i++) { |
| |
254 charset = encodings[i]; |
| |
255 while (*charset == ' ') |
| |
256 charset++; |
| |
257 |
| |
258 if (!strcasecmp("UTF-8", charset)) { |
| |
259 if (g_utf8_validate(string, -1, NULL)) |
| |
260 utf8 = g_strdup(string); |
| |
261 } else { |
| |
262 utf8 = g_convert(string, -1, "UTF-8", charset, NULL, NULL, NULL); |
| |
263 } |
| |
264 |
| |
265 if (utf8) { |
| |
266 g_strfreev(encodings); |
| |
267 return utf8; |
| |
268 } |
| |
269 } |
| |
270 g_strfreev(encodings); |
| |
271 |
| |
272 return gaim_utf8_salvage(string); |
| |
273 } |
| |
274 |
| |
275 /* XXX tag closings are not necessarily correctly nested here! If we |
| |
276 * get a ^O or reach the end of the string and there are open |
| |
277 * tags, they are closed in a fixed order ... this means, for |
| |
278 * example, you might see <FONT COLOR="blue">some text <B>with |
| |
279 * various attributes</FONT></B> (notice that B and FONT overlap |
| |
280 * and are not cleanly nested). This is imminently fixable but |
| |
281 * I am not fixing it right now. |
| |
282 */ |
| |
283 char *irc_mirc2html(const char *string) |
| |
284 { |
| |
285 const char *cur, *end; |
| |
286 char fg[3] = "\0\0", bg[3] = "\0\0"; |
| |
287 int fgnum, bgnum; |
| |
288 int font = 0, bold = 0, underline = 0, italic = 0; |
| |
289 GString *decoded = g_string_sized_new(strlen(string)); |
| |
290 |
| |
291 cur = string; |
| |
292 do { |
| |
293 end = strpbrk(cur, "\002\003\007\017\026\037"); |
| |
294 |
| |
295 decoded = g_string_append_len(decoded, cur, end ? end - cur : strlen(cur)); |
| |
296 cur = end ? end : cur + strlen(cur); |
| |
297 |
| |
298 switch (*cur) { |
| |
299 case '\002': |
| |
300 cur++; |
| |
301 if (!bold) { |
| |
302 decoded = g_string_append(decoded, "<B>"); |
| |
303 bold = TRUE; |
| |
304 } else { |
| |
305 decoded = g_string_append(decoded, "</B>"); |
| |
306 bold = FALSE; |
| |
307 } |
| |
308 break; |
| |
309 case '\003': |
| |
310 cur++; |
| |
311 fg[0] = fg[1] = bg[0] = bg[1] = '\0'; |
| |
312 if (isdigit(*cur)) |
| |
313 fg[0] = *cur++; |
| |
314 if (isdigit(*cur)) |
| |
315 fg[1] = *cur++; |
| |
316 if (*cur == ',') { |
| |
317 cur++; |
| |
318 if (isdigit(*cur)) |
| |
319 bg[0] = *cur++; |
| |
320 if (isdigit(*cur)) |
| |
321 bg[1] = *cur++; |
| |
322 } |
| |
323 if (font) { |
| |
324 decoded = g_string_append(decoded, "</FONT>"); |
| |
325 font = FALSE; |
| |
326 } |
| |
327 |
| |
328 if (fg[0]) { |
| |
329 fgnum = atoi(fg); |
| |
330 if (fgnum < 0 || fgnum > 15) |
| |
331 continue; |
| |
332 font = TRUE; |
| |
333 g_string_append_printf(decoded, "<FONT COLOR=\"%s\"", irc_mirc_colors[fgnum]); |
| |
334 if (bg[0]) { |
| |
335 bgnum = atoi(bg); |
| |
336 if (bgnum >= 0 && bgnum < 16) |
| |
337 g_string_append_printf(decoded, " BACK=\"%s\"", irc_mirc_colors[bgnum]); |
| |
338 } |
| |
339 decoded = g_string_append_c(decoded, '>'); |
| |
340 } |
| |
341 break; |
| |
342 case '\011': |
| |
343 cur++; |
| |
344 if (!italic) { |
| |
345 decoded = g_string_append(decoded, "<I>"); |
| |
346 italic = TRUE; |
| |
347 } else { |
| |
348 decoded = g_string_append(decoded, "</I>"); |
| |
349 italic = FALSE; |
| |
350 } |
| |
351 break; |
| |
352 case '\037': |
| |
353 cur++; |
| |
354 if (!underline) { |
| |
355 decoded = g_string_append(decoded, "<U>"); |
| |
356 underline = TRUE; |
| |
357 } else { |
| |
358 decoded = g_string_append(decoded, "</U>"); |
| |
359 underline = FALSE; |
| |
360 } |
| |
361 break; |
| |
362 case '\007': |
| |
363 case '\026': |
| |
364 cur++; |
| |
365 break; |
| |
366 case '\017': |
| |
367 cur++; |
| |
368 /* fallthrough */ |
| |
369 case '\000': |
| |
370 if (bold) |
| |
371 decoded = g_string_append(decoded, "</B>"); |
| |
372 if (italic) |
| |
373 decoded = g_string_append(decoded, "</I>"); |
| |
374 if (underline) |
| |
375 decoded = g_string_append(decoded, "</U>"); |
| |
376 if (font) |
| |
377 decoded = g_string_append(decoded, "</FONT>"); |
| |
378 break; |
| |
379 default: |
| |
380 gaim_debug(GAIM_DEBUG_ERROR, "irc", "Unexpected mIRC formatting character %d\n", *cur); |
| |
381 } |
| |
382 } while (*cur); |
| |
383 |
| |
384 return g_string_free(decoded, FALSE); |
| |
385 } |
| |
386 |
| |
387 char *irc_mirc2txt (const char *string) |
| |
388 { |
| |
389 char *result = g_strdup (string); |
| |
390 int i, j; |
| |
391 |
| |
392 for (i = 0, j = 0; result[i]; i++) { |
| |
393 switch (result[i]) { |
| |
394 case '\002': |
| |
395 case '\003': |
| |
396 case '\007': |
| |
397 case '\017': |
| |
398 case '\026': |
| |
399 case '\037': |
| |
400 continue; |
| |
401 default: |
| |
402 result[j++] = result[i]; |
| |
403 } |
| |
404 } |
| |
405 result[j] = '\0'; |
| |
406 return result; |
| |
407 } |
| |
408 |
| |
409 gboolean irc_ischannel(const char *string) |
| |
410 { |
| |
411 return (string[0] == '#' || string[0] == '&'); |
| |
412 } |
| |
413 |
| |
414 char *irc_parse_ctcp(struct irc_conn *irc, const char *from, const char *to, const char *msg, int notice) |
| |
415 { |
| |
416 GaimConnection *gc; |
| |
417 const char *cur = msg + 1; |
| |
418 char *buf, *ctcp; |
| |
419 time_t timestamp; |
| |
420 |
| |
421 /* Note that this is NOT correct w.r.t. multiple CTCPs in one |
| |
422 * message and low-level quoting ... but if you want that crap, |
| |
423 * use a real IRC client. */ |
| |
424 |
| |
425 if (msg[0] != '\001' || msg[strlen(msg) - 1] != '\001') |
| |
426 return g_strdup(msg); |
| |
427 |
| |
428 if (!strncmp(cur, "ACTION ", 7)) { |
| |
429 cur += 7; |
| |
430 buf = g_strdup_printf("/me %s", cur); |
| |
431 buf[strlen(buf) - 1] = '\0'; |
| |
432 return buf; |
| |
433 } else if (!strncmp(cur, "PING ", 5)) { |
| |
434 if (notice) { /* reply */ |
| |
435 /* TODO: Should this read in the timestamp as a double? */ |
| |
436 sscanf(cur, "PING %lu", ×tamp); |
| |
437 gc = gaim_account_get_connection(irc->account); |
| |
438 if (!gc) |
| |
439 return NULL; |
| |
440 buf = g_strdup_printf(_("Reply time from %s: %lu seconds"), from, time(NULL) - timestamp); |
| |
441 gaim_notify_info(gc, _("PONG"), _("CTCP PING reply"), buf); |
| |
442 g_free(buf); |
| |
443 return NULL; |
| |
444 } else { |
| |
445 buf = irc_format(irc, "vt:", "NOTICE", from, msg); |
| |
446 irc_send(irc, buf); |
| |
447 g_free(buf); |
| |
448 } |
| |
449 } else if (!strncmp(cur, "VERSION", 7) && !notice) { |
| |
450 buf = irc_format(irc, "vt:", "NOTICE", from, "\001VERSION Gaim IRC\001"); |
| |
451 irc_send(irc, buf); |
| |
452 g_free(buf); |
| |
453 } else if (!strncmp(cur, "DCC SEND ", 9)) { |
| |
454 irc_dccsend_recv(irc, from, msg + 10); |
| |
455 return NULL; |
| |
456 } |
| |
457 |
| |
458 ctcp = g_strdup(msg + 1); |
| |
459 ctcp[strlen(ctcp) - 1] = '\0'; |
| |
460 buf = g_strdup_printf("Received CTCP '%s' (to %s) from %s", ctcp, to, from); |
| |
461 g_free(ctcp); |
| |
462 return buf; |
| |
463 } |
| |
464 |
| |
465 void irc_msg_table_build(struct irc_conn *irc) |
| |
466 { |
| |
467 int i; |
| |
468 |
| |
469 if (!irc || !irc->msgs) { |
| |
470 gaim_debug(GAIM_DEBUG_ERROR, "irc", "Attempt to build a message table on a bogus structure\n"); |
| |
471 return; |
| |
472 } |
| |
473 |
| |
474 for (i = 0; _irc_msgs[i].name; i++) { |
| |
475 g_hash_table_insert(irc->msgs, (gpointer)_irc_msgs[i].name, (gpointer)&_irc_msgs[i]); |
| |
476 } |
| |
477 } |
| |
478 |
| |
479 void irc_cmd_table_build(struct irc_conn *irc) |
| |
480 { |
| |
481 int i; |
| |
482 |
| |
483 if (!irc || !irc->cmds) { |
| |
484 gaim_debug(GAIM_DEBUG_ERROR, "irc", "Attempt to build a command table on a bogus structure\n"); |
| |
485 return; |
| |
486 } |
| |
487 |
| |
488 for (i = 0; _irc_cmds[i].name ; i++) { |
| |
489 g_hash_table_insert(irc->cmds, (gpointer)_irc_cmds[i].name, (gpointer)&_irc_cmds[i]); |
| |
490 } |
| |
491 } |
| |
492 |
| |
493 char *irc_format(struct irc_conn *irc, const char *format, ...) |
| |
494 { |
| |
495 GString *string = g_string_new(""); |
| |
496 char *tok, *tmp; |
| |
497 const char *cur; |
| |
498 va_list ap; |
| |
499 |
| |
500 va_start(ap, format); |
| |
501 for (cur = format; *cur; cur++) { |
| |
502 if (cur != format) |
| |
503 g_string_append_c(string, ' '); |
| |
504 |
| |
505 tok = va_arg(ap, char *); |
| |
506 switch (*cur) { |
| |
507 case 'v': |
| |
508 g_string_append(string, tok); |
| |
509 break; |
| |
510 case ':': |
| |
511 g_string_append_c(string, ':'); |
| |
512 /* no break! */ |
| |
513 case 't': |
| |
514 case 'n': |
| |
515 case 'c': |
| |
516 tmp = irc_send_convert(irc, tok); |
| |
517 g_string_append(string, tmp); |
| |
518 g_free(tmp); |
| |
519 break; |
| |
520 default: |
| |
521 gaim_debug(GAIM_DEBUG_ERROR, "irc", "Invalid format character '%c'\n", *cur); |
| |
522 break; |
| |
523 } |
| |
524 } |
| |
525 va_end(ap); |
| |
526 g_string_append(string, "\r\n"); |
| |
527 return (g_string_free(string, FALSE)); |
| |
528 } |
| |
529 |
| |
530 void irc_parse_msg(struct irc_conn *irc, char *input) |
| |
531 { |
| |
532 struct _irc_msg *msgent; |
| |
533 char *cur, *end, *tmp, *from, *msgname, *fmt, **args, *msg; |
| |
534 guint i; |
| |
535 |
| |
536 if (!strncmp(input, "PING ", 5)) { |
| |
537 msg = irc_format(irc, "vv", "PONG", input + 5); |
| |
538 irc_send(irc, msg); |
| |
539 g_free(msg); |
| |
540 return; |
| |
541 } else if (!strncmp(input, "ERROR ", 6)) { |
| |
542 if (g_utf8_validate(input, -1, NULL)) { |
| |
543 char *tmp = g_strdup_printf("%s\n%s", _("Disconnected."), input); |
| |
544 gaim_connection_error(gaim_account_get_connection(irc->account), tmp); |
| |
545 g_free(tmp); |
| |
546 } else |
| |
547 gaim_connection_error(gaim_account_get_connection(irc->account), _("Disconnected.")); |
| |
548 return; |
| |
549 } |
| |
550 |
| |
551 if (input[0] != ':' || (cur = strchr(input, ' ')) == NULL) { |
| |
552 irc_parse_error_cb(irc, input); |
| |
553 return; |
| |
554 } |
| |
555 |
| |
556 from = g_strndup(&input[1], cur - &input[1]); |
| |
557 cur++; |
| |
558 end = strchr(cur, ' '); |
| |
559 if (!end) |
| |
560 end = cur + strlen(cur); |
| |
561 |
| |
562 tmp = g_strndup(cur, end - cur); |
| |
563 msgname = g_ascii_strdown(tmp, -1); |
| |
564 g_free(tmp); |
| |
565 |
| |
566 if ((msgent = g_hash_table_lookup(irc->msgs, msgname)) == NULL) { |
| |
567 irc_msg_default(irc, "", from, &input); |
| |
568 g_free(msgname); |
| |
569 g_free(from); |
| |
570 return; |
| |
571 } |
| |
572 g_free(msgname); |
| |
573 |
| |
574 args = g_new0(char *, strlen(msgent->format)); |
| |
575 for (cur = end, fmt = msgent->format, i = 0; fmt[i] && *cur++; i++) { |
| |
576 switch (fmt[i]) { |
| |
577 case 'v': |
| |
578 if (!(end = strchr(cur, ' '))) end = cur + strlen(cur); |
| |
579 args[i] = g_strndup(cur, end - cur); |
| |
580 cur += end - cur; |
| |
581 break; |
| |
582 case 't': |
| |
583 case 'n': |
| |
584 case 'c': |
| |
585 if (!(end = strchr(cur, ' '))) end = cur + strlen(cur); |
| |
586 tmp = g_strndup(cur, end - cur); |
| |
587 args[i] = irc_recv_convert(irc, tmp); |
| |
588 g_free(tmp); |
| |
589 cur += end - cur; |
| |
590 break; |
| |
591 case ':': |
| |
592 if (*cur == ':') cur++; |
| |
593 args[i] = irc_recv_convert(irc, cur); |
| |
594 cur = cur + strlen(cur); |
| |
595 break; |
| |
596 case '*': |
| |
597 args[i] = g_strdup(cur); |
| |
598 cur = cur + strlen(cur); |
| |
599 break; |
| |
600 default: |
| |
601 gaim_debug(GAIM_DEBUG_ERROR, "irc", "invalid message format character '%c'\n", fmt[i]); |
| |
602 break; |
| |
603 } |
| |
604 } |
| |
605 tmp = irc_recv_convert(irc, from); |
| |
606 (msgent->cb)(irc, msgent->name, tmp, args); |
| |
607 g_free(tmp); |
| |
608 for (i = 0; i < strlen(msgent->format); i++) { |
| |
609 g_free(args[i]); |
| |
610 } |
| |
611 g_free(args); |
| |
612 g_free(from); |
| |
613 } |
| |
614 |
| |
615 static void irc_parse_error_cb(struct irc_conn *irc, char *input) |
| |
616 { |
| |
617 gaim_debug(GAIM_DEBUG_WARNING, "irc", "Unrecognized string: %s\n", input); |
| |
618 } |