Mercurial > pidgin
diff libgaim/protocols/irc/parse.c @ 14192:60b1bc8dbf37
[gaim-migrate @ 16863]
Renamed 'core' to 'libgaim'
committer: Tailor Script <tailor@pidgin.im>
author | Evan Schoenberg <evan.s@dreskin.net> |
---|---|
date | Sat, 19 Aug 2006 01:50:10 +0000 |
parents | |
children | a5c7db7be826 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/libgaim/protocols/irc/parse.c Sat Aug 19 01:50:10 2006 +0000 @@ -0,0 +1,618 @@ +/** + * @file parse.c + * + * gaim + * + * Copyright (C) 2003, Ethan Blanton <eblanton@cs.purdue.edu> + * + * This program is free software; you can redistribute it and/or modify + * it under the terms of the GNU General Public License as published by + * the Free Software Foundation; either version 2 of the License, or + * (at your option) any later version. + * + * This program is distributed in the hope that it will be useful, + * but WITHOUT ANY WARRANTY; without even the implied warranty of + * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + * GNU General Public License for more details. + * + * You should have received a copy of the GNU General Public License + * along with this program; if not, write to the Free Software + * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA + */ + +#include "internal.h" + +#include "accountopt.h" +#include "conversation.h" +#include "notify.h" +#include "debug.h" +#include "util.h" +#include "cmds.h" +#include "irc.h" + +#include <stdio.h> +#include <stdlib.h> +#include <ctype.h> + +static char *irc_send_convert(struct irc_conn *irc, const char *string); +static char *irc_recv_convert(struct irc_conn *irc, const char *string); + +static void irc_parse_error_cb(struct irc_conn *irc, char *input); + +static char *irc_mirc_colors[16] = { + "white", "black", "blue", "dark green", "red", "brown", "purple", + "orange", "yellow", "green", "teal", "cyan", "light blue", + "pink", "grey", "light grey" }; + +/*typedef void (*IRCMsgCallback)(struct irc_conn *irc, char *from, char *name, char **args);*/ +static struct _irc_msg { + char *name; + char *format; + void (*cb)(struct irc_conn *irc, const char *name, const char *from, char **args); +} _irc_msgs[] = { + { "301", "nn:", irc_msg_away }, /* User is away */ + { "303", "n:", irc_msg_ison }, /* ISON reply */ + { "311", "nnvvv:", irc_msg_whois }, /* Whois user */ + { "312", "nnv:", irc_msg_whois }, /* Whois server */ + { "313", "nn:", irc_msg_whois }, /* Whois ircop */ + { "317", "nnvv", irc_msg_whois }, /* Whois idle */ + { "318", "nt:", irc_msg_endwhois }, /* End of WHOIS */ + { "319", "nn:", irc_msg_whois }, /* Whois channels */ + { "320", "nn:", irc_msg_whois }, /* Whois (fn ident) */ + { "321", "*", irc_msg_list }, /* Start of list */ + { "322", "ncv:", irc_msg_list }, /* List. */ + { "323", ":", irc_msg_list }, /* End of list. */ + { "324", "ncv:", irc_msg_chanmode }, /* Channel modes */ + { "331", "nc:", irc_msg_topic }, /* No channel topic */ + { "332", "nc:", irc_msg_topic }, /* Channel topic */ + { "333", "*", irc_msg_ignore }, /* Topic setter stuff */ + { "353", "nvc:", irc_msg_names }, /* Names list */ + { "366", "nc:", irc_msg_names }, /* End of names */ + { "372", "n:", irc_msg_motd }, /* MOTD */ + { "375", "n:", irc_msg_motd }, /* Start MOTD */ + { "376", "n:", irc_msg_endmotd }, /* End of MOTD */ + { "391", "nv:", irc_msg_time }, /* Time reply */ + { "401", "nt:", irc_msg_nonick }, /* No such nick/chan */ + { "403", "nc:", irc_msg_nochan }, /* No such channel */ + { "404", "nt:", irc_msg_nosend }, /* Cannot send to chan */ + { "421", "nv:", irc_msg_unknown }, /* Unknown command */ + { "422", "nv:", irc_msg_endmotd }, /* No MOTD available */ + { "432", "vn:", irc_msg_badnick }, /* Erroneous nickname */ + { "433", "vn:", irc_msg_nickused }, /* Nickname already in use */ + { "437", "nc:", irc_msg_unavailable }, /* Nick/channel is unavailable */ + { "438", "nn:", irc_msg_nochangenick }, /* Nick may not change */ + { "442", "nc:", irc_msg_notinchan }, /* Not in channel */ + { "473", "nc:", irc_msg_inviteonly }, /* Tried to join invite-only */ + { "474", "nc:", irc_msg_banned }, /* Banned from channel */ + { "478", "nct:", irc_msg_banfull }, /* Banlist is full */ + { "482", "nc:", irc_msg_notop }, /* Need to be op to do that */ + { "501", "n:", irc_msg_badmode }, /* Unknown mode flag */ + { "506", "nc:", irc_msg_nosend }, /* Must identify to send */ + { "515", "nc:", irc_msg_regonly }, /* Registration required */ + { "invite", "n:", irc_msg_invite }, /* Invited */ + { "join", ":", irc_msg_join }, /* Joined a channel */ + { "kick", "cn:", irc_msg_kick }, /* KICK */ + { "mode", "tv:", irc_msg_mode }, /* MODE for channel */ + { "nick", ":", irc_msg_nick }, /* Nick change */ + { "notice", "t:", irc_msg_notice }, /* NOTICE recv */ + { "part", "c:", irc_msg_part }, /* Parted a channel */ + { "ping", ":", irc_msg_ping }, /* Received PING from server */ + { "pong", "v:", irc_msg_pong }, /* Received PONG from server */ + { "privmsg", "t:", irc_msg_privmsg }, /* Received private message */ + { "topic", "c:", irc_msg_topic }, /* TOPIC command */ + { "quit", ":", irc_msg_quit }, /* QUIT notice */ + { "wallops", ":", irc_msg_wallops }, /* WALLOPS command */ + { NULL, NULL, NULL } +}; + +static struct _irc_user_cmd { + char *name; + char *format; + IRCCmdCallback cb; + char *help; +} _irc_cmds[] = { + { "action", ":", irc_cmd_ctcp_action, N_("action <action to perform>: Perform an action.") }, + { "away", ":", irc_cmd_away, N_("away [message]: Set an away message, or use no message to return from being away.") }, + { "chanserv", ":", irc_cmd_service, N_("chanserv: Send a command to chanserv") }, + { "deop", ":", irc_cmd_op, N_("deop <nick1> [nick2] ...: Remove channel operator status from someone. You must be a channel operator to do this.") }, + { "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.") }, + { "invite", ":", irc_cmd_invite, N_("invite <nick> [room]: Invite someone to join you in the specified channel, or the current channel.") }, + { "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.") }, + { "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.") }, + { "kick", "n:", irc_cmd_kick, N_("kick <nick> [message]: Remove someone from a channel. You must be a channel operator to do this.") }, + { "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>") }, + { "me", ":", irc_cmd_ctcp_action, N_("me <action to perform>: Perform an action.") }, + { "memoserv", ":", irc_cmd_service, N_("memoserv: Send a command to memoserv") }, + { "mode", ":", irc_cmd_mode, N_("mode <+|-><A-Za-z> <nick|channel>: Set or unset a channel or user mode.") }, + { "msg", "t:", irc_cmd_privmsg, N_("msg <nick> <message>: Send a private message to a user (as opposed to a channel).") }, + { "names", "c", irc_cmd_names, N_("names [channel]: List the users currently in a channel.") }, + { "nick", "n", irc_cmd_nick, N_("nick <new nickname>: Change your nickname.") }, + { "nickserv", ":", irc_cmd_service, N_("nickserv: Send a command to nickserv") }, + { "op", ":", irc_cmd_op, N_("op <nick1> [nick2] ...: Grant channel operator status to someone. You must be a channel operator to do this.") }, + { "operwall", ":", irc_cmd_wallops, N_("operwall <message>: If you don't know what this is, you probably can't use it.") }, + { "operserv", ":", irc_cmd_service, N_("operserv: Send a command to operserv") }, + { "part", "c:", irc_cmd_part, N_("part [room] [message]: Leave the current channel, or a specified channel, with an optional message.") }, + { "ping", "n", irc_cmd_ping, N_("ping [nick]: Asks how much lag a user (or the server if no user specified) has.") }, + { "query", "n:", irc_cmd_query, N_("query <nick> <message>: Send a private message to a user (as opposed to a channel).") }, + { "quit", ":", irc_cmd_quit, N_("quit [message]: Disconnect from the server, with an optional message.") }, + { "quote", "*", irc_cmd_quote, N_("quote [...]: Send a raw command to the server.") }, + { "remove", "n:", irc_cmd_remove, N_("remove <nick> [message]: Remove someone from a room. You must be a channel operator to do this.") }, + { "time", "", irc_cmd_time, N_("time: Displays the current local time at the IRC server.") }, + { "topic", ":", irc_cmd_topic, N_("topic [new topic]: View or change the channel topic.") }, + { "umode", ":", irc_cmd_mode, N_("umode <+|-><A-Za-z>: Set or unset a user mode.") }, + { "version", ":", irc_cmd_ctcp_version, N_("version [nick]: send CTCP VERSION request to a user") }, + { "voice", ":", irc_cmd_op, N_("voice <nick1> [nick2] ...: Grant channel voice status to someone. You must be a channel operator to do this.") }, + { "wallops", ":", irc_cmd_wallops, N_("wallops <message>: If you don't know what this is, you probably can't use it.") }, + { "whois", "tt", irc_cmd_whois, N_("whois [server] <nick>: Get information on a user.") }, + { NULL, NULL, NULL, NULL } +}; + +static GaimCmdRet irc_parse_gaim_cmd(GaimConversation *conv, const gchar *cmd, + gchar **args, gchar **error, void *data) +{ + GaimConnection *gc; + struct irc_conn *irc; + struct _irc_user_cmd *cmdent; + + gc = gaim_conversation_get_gc(conv); + if (!gc) + return GAIM_CMD_RET_FAILED; + + irc = gc->proto_data; + + if ((cmdent = g_hash_table_lookup(irc->cmds, cmd)) == NULL) + return GAIM_CMD_RET_FAILED; + + (cmdent->cb)(irc, cmd, gaim_conversation_get_name(conv), (const char **)args); + + return GAIM_CMD_RET_OK; +} + +static void irc_register_command(struct _irc_user_cmd *c) +{ + GaimCmdFlag f; + char args[10]; + char *format; + size_t i; + + f = GAIM_CMD_FLAG_CHAT | GAIM_CMD_FLAG_IM | GAIM_CMD_FLAG_PRPL_ONLY + | GAIM_CMD_FLAG_ALLOW_WRONG_ARGS; + + format = c->format; + + for (i = 0; (i < (sizeof(args) - 1)) && *format; i++, format++) + switch (*format) { + case 'v': + case 'n': + case 'c': + case 't': + args[i] = 'w'; + break; + case ':': + case '*': + args[i] = 's'; + break; + } + + args[i] = '\0'; + + gaim_cmd_register(c->name, args, GAIM_CMD_P_PRPL, f, "prpl-irc", + irc_parse_gaim_cmd, _(c->help), NULL); +} + +void irc_register_commands(void) +{ + struct _irc_user_cmd *c; + + for (c = _irc_cmds; c && c->name; c++) + irc_register_command(c); +} + +static char *irc_send_convert(struct irc_conn *irc, const char *string) +{ + char *utf8; + GError *err = NULL; + gchar **encodings; + const gchar *enclist; + + enclist = gaim_account_get_string(irc->account, "encoding", IRC_DEFAULT_CHARSET); + encodings = g_strsplit(enclist, ",", 2); + + if (encodings[0] == NULL || !strcasecmp("UTF-8", encodings[0])) { + g_strfreev(encodings); + return g_strdup(string); + } + + utf8 = g_convert(string, strlen(string), encodings[0], "UTF-8", NULL, NULL, &err); + if (err) { + gaim_debug(GAIM_DEBUG_ERROR, "irc", "Send conversion error: %s\n", err->message); + gaim_debug(GAIM_DEBUG_ERROR, "irc", "Sending as UTF-8 instead of %s\n", encodings[0]); + utf8 = g_strdup(string); + g_error_free(err); + } + g_strfreev(encodings); + + return utf8; +} + +static char *irc_recv_convert(struct irc_conn *irc, const char *string) +{ + char *utf8 = NULL; + const gchar *charset, *enclist; + gchar **encodings; + int i; + + enclist = gaim_account_get_string(irc->account, "encoding", IRC_DEFAULT_CHARSET); + encodings = g_strsplit(enclist, ",", -1); + + if (encodings[0] == NULL) { + g_strfreev(encodings); + return gaim_utf8_salvage(string); + } + + for (i = 0; encodings[i] != NULL; i++) { + charset = encodings[i]; + while (*charset == ' ') + charset++; + + if (!strcasecmp("UTF-8", charset)) { + if (g_utf8_validate(string, -1, NULL)) + utf8 = g_strdup(string); + } else { + utf8 = g_convert(string, -1, "UTF-8", charset, NULL, NULL, NULL); + } + + if (utf8) { + g_strfreev(encodings); + return utf8; + } + } + g_strfreev(encodings); + + return gaim_utf8_salvage(string); +} + +/* XXX tag closings are not necessarily correctly nested here! If we + * get a ^O or reach the end of the string and there are open + * tags, they are closed in a fixed order ... this means, for + * example, you might see <FONT COLOR="blue">some text <B>with + * various attributes</FONT></B> (notice that B and FONT overlap + * and are not cleanly nested). This is imminently fixable but + * I am not fixing it right now. + */ +char *irc_mirc2html(const char *string) +{ + const char *cur, *end; + char fg[3] = "\0\0", bg[3] = "\0\0"; + int fgnum, bgnum; + int font = 0, bold = 0, underline = 0, italic = 0; + GString *decoded = g_string_sized_new(strlen(string)); + + cur = string; + do { + end = strpbrk(cur, "\002\003\007\017\026\037"); + + decoded = g_string_append_len(decoded, cur, end ? end - cur : strlen(cur)); + cur = end ? end : cur + strlen(cur); + + switch (*cur) { + case '\002': + cur++; + if (!bold) { + decoded = g_string_append(decoded, "<B>"); + bold = TRUE; + } else { + decoded = g_string_append(decoded, "</B>"); + bold = FALSE; + } + break; + case '\003': + cur++; + fg[0] = fg[1] = bg[0] = bg[1] = '\0'; + if (isdigit(*cur)) + fg[0] = *cur++; + if (isdigit(*cur)) + fg[1] = *cur++; + if (*cur == ',') { + cur++; + if (isdigit(*cur)) + bg[0] = *cur++; + if (isdigit(*cur)) + bg[1] = *cur++; + } + if (font) { + decoded = g_string_append(decoded, "</FONT>"); + font = FALSE; + } + + if (fg[0]) { + fgnum = atoi(fg); + if (fgnum < 0 || fgnum > 15) + continue; + font = TRUE; + g_string_append_printf(decoded, "<FONT COLOR=\"%s\"", irc_mirc_colors[fgnum]); + if (bg[0]) { + bgnum = atoi(bg); + if (bgnum >= 0 && bgnum < 16) + g_string_append_printf(decoded, " BACK=\"%s\"", irc_mirc_colors[bgnum]); + } + decoded = g_string_append_c(decoded, '>'); + } + break; + case '\011': + cur++; + if (!italic) { + decoded = g_string_append(decoded, "<I>"); + italic = TRUE; + } else { + decoded = g_string_append(decoded, "</I>"); + italic = FALSE; + } + break; + case '\037': + cur++; + if (!underline) { + decoded = g_string_append(decoded, "<U>"); + underline = TRUE; + } else { + decoded = g_string_append(decoded, "</U>"); + underline = FALSE; + } + break; + case '\007': + case '\026': + cur++; + break; + case '\017': + cur++; + /* fallthrough */ + case '\000': + if (bold) + decoded = g_string_append(decoded, "</B>"); + if (italic) + decoded = g_string_append(decoded, "</I>"); + if (underline) + decoded = g_string_append(decoded, "</U>"); + if (font) + decoded = g_string_append(decoded, "</FONT>"); + break; + default: + gaim_debug(GAIM_DEBUG_ERROR, "irc", "Unexpected mIRC formatting character %d\n", *cur); + } + } while (*cur); + + return g_string_free(decoded, FALSE); +} + +char *irc_mirc2txt (const char *string) +{ + char *result = g_strdup (string); + int i, j; + + for (i = 0, j = 0; result[i]; i++) { + switch (result[i]) { + case '\002': + case '\003': + case '\007': + case '\017': + case '\026': + case '\037': + continue; + default: + result[j++] = result[i]; + } + } + result[j] = '\0'; + return result; +} + +gboolean irc_ischannel(const char *string) +{ + return (string[0] == '#' || string[0] == '&'); +} + +char *irc_parse_ctcp(struct irc_conn *irc, const char *from, const char *to, const char *msg, int notice) +{ + GaimConnection *gc; + const char *cur = msg + 1; + char *buf, *ctcp; + time_t timestamp; + + /* Note that this is NOT correct w.r.t. multiple CTCPs in one + * message and low-level quoting ... but if you want that crap, + * use a real IRC client. */ + + if (msg[0] != '\001' || msg[strlen(msg) - 1] != '\001') + return g_strdup(msg); + + if (!strncmp(cur, "ACTION ", 7)) { + cur += 7; + buf = g_strdup_printf("/me %s", cur); + buf[strlen(buf) - 1] = '\0'; + return buf; + } else if (!strncmp(cur, "PING ", 5)) { + if (notice) { /* reply */ + /* TODO: Should this read in the timestamp as a double? */ + sscanf(cur, "PING %lu", ×tamp); + gc = gaim_account_get_connection(irc->account); + if (!gc) + return NULL; + buf = g_strdup_printf(_("Reply time from %s: %lu seconds"), from, time(NULL) - timestamp); + gaim_notify_info(gc, _("PONG"), _("CTCP PING reply"), buf); + g_free(buf); + return NULL; + } else { + buf = irc_format(irc, "vt:", "NOTICE", from, msg); + irc_send(irc, buf); + g_free(buf); + } + } else if (!strncmp(cur, "VERSION", 7) && !notice) { + buf = irc_format(irc, "vt:", "NOTICE", from, "\001VERSION Gaim IRC\001"); + irc_send(irc, buf); + g_free(buf); + } else if (!strncmp(cur, "DCC SEND ", 9)) { + irc_dccsend_recv(irc, from, msg + 10); + return NULL; + } + + ctcp = g_strdup(msg + 1); + ctcp[strlen(ctcp) - 1] = '\0'; + buf = g_strdup_printf("Received CTCP '%s' (to %s) from %s", ctcp, to, from); + g_free(ctcp); + return buf; +} + +void irc_msg_table_build(struct irc_conn *irc) +{ + int i; + + if (!irc || !irc->msgs) { + gaim_debug(GAIM_DEBUG_ERROR, "irc", "Attempt to build a message table on a bogus structure\n"); + return; + } + + for (i = 0; _irc_msgs[i].name; i++) { + g_hash_table_insert(irc->msgs, (gpointer)_irc_msgs[i].name, (gpointer)&_irc_msgs[i]); + } +} + +void irc_cmd_table_build(struct irc_conn *irc) +{ + int i; + + if (!irc || !irc->cmds) { + gaim_debug(GAIM_DEBUG_ERROR, "irc", "Attempt to build a command table on a bogus structure\n"); + return; + } + + for (i = 0; _irc_cmds[i].name ; i++) { + g_hash_table_insert(irc->cmds, (gpointer)_irc_cmds[i].name, (gpointer)&_irc_cmds[i]); + } +} + +char *irc_format(struct irc_conn *irc, const char *format, ...) +{ + GString *string = g_string_new(""); + char *tok, *tmp; + const char *cur; + va_list ap; + + va_start(ap, format); + for (cur = format; *cur; cur++) { + if (cur != format) + g_string_append_c(string, ' '); + + tok = va_arg(ap, char *); + switch (*cur) { + case 'v': + g_string_append(string, tok); + break; + case ':': + g_string_append_c(string, ':'); + /* no break! */ + case 't': + case 'n': + case 'c': + tmp = irc_send_convert(irc, tok); + g_string_append(string, tmp); + g_free(tmp); + break; + default: + gaim_debug(GAIM_DEBUG_ERROR, "irc", "Invalid format character '%c'\n", *cur); + break; + } + } + va_end(ap); + g_string_append(string, "\r\n"); + return (g_string_free(string, FALSE)); +} + +void irc_parse_msg(struct irc_conn *irc, char *input) +{ + struct _irc_msg *msgent; + char *cur, *end, *tmp, *from, *msgname, *fmt, **args, *msg; + guint i; + + if (!strncmp(input, "PING ", 5)) { + msg = irc_format(irc, "vv", "PONG", input + 5); + irc_send(irc, msg); + g_free(msg); + return; + } else if (!strncmp(input, "ERROR ", 6)) { + if (g_utf8_validate(input, -1, NULL)) { + char *tmp = g_strdup_printf("%s\n%s", _("Disconnected."), input); + gaim_connection_error(gaim_account_get_connection(irc->account), tmp); + g_free(tmp); + } else + gaim_connection_error(gaim_account_get_connection(irc->account), _("Disconnected.")); + return; + } + + if (input[0] != ':' || (cur = strchr(input, ' ')) == NULL) { + irc_parse_error_cb(irc, input); + return; + } + + from = g_strndup(&input[1], cur - &input[1]); + cur++; + end = strchr(cur, ' '); + if (!end) + end = cur + strlen(cur); + + tmp = g_strndup(cur, end - cur); + msgname = g_ascii_strdown(tmp, -1); + g_free(tmp); + + if ((msgent = g_hash_table_lookup(irc->msgs, msgname)) == NULL) { + irc_msg_default(irc, "", from, &input); + g_free(msgname); + g_free(from); + return; + } + g_free(msgname); + + args = g_new0(char *, strlen(msgent->format)); + for (cur = end, fmt = msgent->format, i = 0; fmt[i] && *cur++; i++) { + switch (fmt[i]) { + case 'v': + if (!(end = strchr(cur, ' '))) end = cur + strlen(cur); + args[i] = g_strndup(cur, end - cur); + cur += end - cur; + break; + case 't': + case 'n': + case 'c': + if (!(end = strchr(cur, ' '))) end = cur + strlen(cur); + tmp = g_strndup(cur, end - cur); + args[i] = irc_recv_convert(irc, tmp); + g_free(tmp); + cur += end - cur; + break; + case ':': + if (*cur == ':') cur++; + args[i] = irc_recv_convert(irc, cur); + cur = cur + strlen(cur); + break; + case '*': + args[i] = g_strdup(cur); + cur = cur + strlen(cur); + break; + default: + gaim_debug(GAIM_DEBUG_ERROR, "irc", "invalid message format character '%c'\n", fmt[i]); + break; + } + } + tmp = irc_recv_convert(irc, from); + (msgent->cb)(irc, msgent->name, tmp, args); + g_free(tmp); + for (i = 0; i < strlen(msgent->format); i++) { + g_free(args[i]); + } + g_free(args); + g_free(from); +} + +static void irc_parse_error_cb(struct irc_conn *irc, char *input) +{ + gaim_debug(GAIM_DEBUG_WARNING, "irc", "Unrecognized string: %s\n", input); +}