Mercurial > pidgin
view libpurple/protocols/oscar/oscar.c @ 29960:815bd8b41638
I before E, except after C
author | Stu Tomlinson <stu@nosnilmot.com> |
---|---|
date | Mon, 17 May 2010 01:01:13 +0000 |
parents | 859bb4ab3efe |
children | f18b6eb0ed02 |
line wrap: on
line source
/* * purple * * Some code copyright (C) 1998-1999, Mark Spencer <markster@marko.net> * Some code copyright (C) 1999-2001, Eric Warmenhoven * Some code copyright (C) 2001-2003, Sean Egan * Some code copyright (C) 2001-2007, Mark Doliner <thekingant@users.sourceforge.net> * Some code copyright (C) 2005, Jonathan Clark <ardentlygnarly@users.sourceforge.net> * Some code copyright (C) 2007, ComBOTS Product GmbH (htfv) <foss@combots.com> * Some code copyright (C) 2008, Aman Gupta * * Most libfaim code copyright (C) 1998-2001 Adam Fritzler <afritz@auk.cx> * Some libfaim code copyright (C) 2001-2004 Mark Doliner <thekingant@users.sourceforge.net> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02111-1301 USA * */ #include "internal.h" #include "account.h" #include "accountopt.h" #include "buddyicon.h" #include "cipher.h" #include "conversation.h" #include "core.h" #include "debug.h" #include "imgstore.h" #include "network.h" #include "notify.h" #include "privacy.h" #include "prpl.h" #include "proxy.h" #include "request.h" #include "util.h" #include "version.h" #include "oscarcommon.h" #include "oscar.h" #include "peer.h" #define OSCAR_STATUS_ID_INVISIBLE "invisible" #define OSCAR_STATUS_ID_OFFLINE "offline" #define OSCAR_STATUS_ID_AVAILABLE "available" #define OSCAR_STATUS_ID_AWAY "away" #define OSCAR_STATUS_ID_DND "dnd" #define OSCAR_STATUS_ID_NA "na" #define OSCAR_STATUS_ID_OCCUPIED "occupied" #define OSCAR_STATUS_ID_FREE4CHAT "free4chat" #define OSCAR_STATUS_ID_CUSTOM "custom" #define OSCAR_STATUS_ID_MOBILE "mobile" #define OSCAR_STATUS_ID_EVIL "evil" #define OSCAR_STATUS_ID_DEPRESSION "depression" #define OSCAR_STATUS_ID_ATHOME "athome" #define OSCAR_STATUS_ID_ATWORK "atwork" #define OSCAR_STATUS_ID_LUNCH "lunch" #define AIMHASHDATA "http://pidgin.im/aim_data.php3" #define OSCAR_CONNECT_STEPS 6 static guint64 purple_caps = OSCAR_CAPABILITY_CHAT | OSCAR_CAPABILITY_BUDDYICON | OSCAR_CAPABILITY_DIRECTIM | OSCAR_CAPABILITY_SENDFILE | OSCAR_CAPABILITY_UNICODE | OSCAR_CAPABILITY_INTEROPERATE | OSCAR_CAPABILITY_SHORTCAPS | OSCAR_CAPABILITY_TYPING | OSCAR_CAPABILITY_ICQSERVERRELAY | OSCAR_CAPABILITY_NEWCAPS | OSCAR_CAPABILITY_XTRAZ; static guint8 features_aim[] = {0x01, 0x01, 0x01, 0x02}; static guint8 features_icq[] = {0x01}; static guint8 ck[] = {0x00, 0x00, 0x00, 0x00, 0x00, 0x00}; struct create_room { char *name; int exchange; }; struct oscar_ask_directim_data { OscarData *od; char *who; }; /* * Various PRPL-specific buddy info that we want to keep track of * Some other info is maintained by locate.c, and I'd like to move * the rest of this to libfaim, mostly im.c * * TODO: More of this should use the status API. */ struct buddyinfo { gboolean typingnot; guint32 ipaddr; unsigned long ico_me_len; unsigned long ico_me_csum; time_t ico_me_time; gboolean ico_informed; unsigned long ico_len; unsigned long ico_csum; time_t ico_time; gboolean ico_need; gboolean ico_sent; }; struct name_data { PurpleConnection *gc; gchar *name; gchar *nick; }; static const char * const msgerrreason[] = { N_("Invalid error"), N_("Invalid SNAC"), N_("Rate to host"), N_("Rate to client"), N_("Not logged in"), N_("Service unavailable"), N_("Service not defined"), N_("Obsolete SNAC"), N_("Not supported by host"), N_("Not supported by client"), N_("Refused by client"), N_("Reply too big"), N_("Responses lost"), N_("Request denied"), N_("Busted SNAC payload"), N_("Insufficient rights"), N_("In local permit/deny"), N_("Warning level too high (sender)"), N_("Warning level too high (receiver)"), N_("User temporarily unavailable"), N_("No match"), N_("List overflow"), N_("Request ambiguous"), N_("Queue full"), N_("Not while on AOL") }; static const int msgerrreasonlen = G_N_ELEMENTS(msgerrreason); static const char * const errcodereason[] = { N_("Invalid error"), N_("Not logged in"), N_("Cannot receive IM due to parental controls"), N_("Cannot send SMS without accepting terms"), N_("Cannot send SMS"), /* SMS_WITHOUT_DISCLAIMER is weird */ N_("Cannot send SMS to this country"), N_("Unknown error"), /* Undocumented */ N_("Unknown error"), /* Undocumented */ N_("Cannot send SMS to unknown country"), N_("Bot accounts cannot initiate IMs"), N_("Bot account cannot IM this user"), N_("Bot account reached IM limit"), N_("Bot account reached daily IM limit"), N_("Bot account reached monthly IM limit"), N_("Unable to receive offline messages"), N_("Offline message store full") }; static const int errcodereasonlen = G_N_ELEMENTS(errcodereason); /* All the libfaim->purple callback functions */ /* Only used when connecting with the old-style BUCP login */ static int purple_parse_auth_resp (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_login (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_auth_securid_request(OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_handle_redirect (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_info_change (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_account_confirm (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_oncoming (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_offgoing (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_incoming_im(OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_misses (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_clientauto (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_userinfo (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_motd (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_chatnav_info (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_conv_chat_join (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_conv_chat_leave (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_conv_chat_info_update (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_conv_chat_incoming_msg(OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_email_parseupdate(OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_icon_parseicon (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_msgack (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_evilnotify (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_searcherror(OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_searchreply(OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_bosrights (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_connerr (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_msgerr (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_mtn (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_locaterights(OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_buddyrights(OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_locerr (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_parse_genericerr (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_memrequest (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_selfinfo (OscarData *, FlapConnection *, FlapFrame *, ...); #ifdef OLDSTYLE_ICQ_OFFLINEMSGS static int purple_offlinemsg (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_offlinemsgdone (OscarData *, FlapConnection *, FlapFrame *, ...); #endif /* OLDSTYLE_ICQ_OFFLINEMSGS */ static int purple_icqalias (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_icqinfo (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_popup (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_ssi_parseerr (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_ssi_parserights (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_ssi_parselist (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_ssi_parseack (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_ssi_parseaddmod (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_ssi_authgiven (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_ssi_authrequest (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_ssi_authreply (OscarData *, FlapConnection *, FlapFrame *, ...); static int purple_ssi_gotadded (OscarData *, FlapConnection *, FlapFrame *, ...); static void purple_icons_fetch(PurpleConnection *gc); void oscar_set_info(PurpleConnection *gc, const char *info); static void oscar_set_info_and_status(PurpleAccount *account, gboolean setinfo, const char *rawinfo, gboolean setstatus, PurpleStatus *status); static void oscar_set_extendedstatus(PurpleConnection *gc); static gboolean purple_ssi_rerequestdata(gpointer data); static void oscar_free_name_data(struct name_data *data) { g_free(data->name); g_free(data->nick); g_free(data); } #ifdef _WIN32 const char *oscar_get_locale_charset(void) { static const char *charset = NULL; if (charset == NULL) g_get_charset(&charset); return charset; } #endif /** * Determine how we can send this message. Per the warnings elsewhere * in this file, these little checks determine the simplest encoding * we can use for a given message send using it. */ static guint32 oscar_charset_check(const char *utf8) { int i = 0; int charset = AIM_CHARSET_ASCII; /* * Can we get away with using our custom encoding? */ while (utf8[i]) { if ((unsigned char)utf8[i] > 0x7f) { /* not ASCII! */ charset = AIM_CHARSET_LATIN_1; break; } i++; } /* * Must we send this message as UNICODE (in the UTF-16BE encoding)? */ while (utf8[i]) { /* ISO-8859-1 is 0x00-0xbf in the first byte * followed by 0xc0-0xc3 in the second */ if ((unsigned char)utf8[i] < 0x80) { i++; continue; } else if (((unsigned char)utf8[i] & 0xfc) == 0xc0 && ((unsigned char)utf8[i + 1] & 0xc0) == 0x80) { i += 2; continue; } charset = AIM_CHARSET_UNICODE; break; } return charset; } /** * Take a string of the form charset="bleh" where bleh is * one of us-ascii, utf-8, iso-8859-1, or unicode-2-0, and * return a newly allocated string containing bleh. */ gchar * oscar_encoding_extract(const char *encoding) { gchar *ret = NULL; char *begin, *end; g_return_val_if_fail(encoding != NULL, NULL); /* Make sure encoding begins with charset= */ if (strncmp(encoding, "text/aolrtf; charset=", 21) && strncmp(encoding, "text/x-aolrtf; charset=", 23) && strncmp(encoding, "text/plain; charset=", 20)) { return NULL; } begin = strchr(encoding, '"'); end = strrchr(encoding, '"'); if ((begin == NULL) || (end == NULL) || (begin >= end)) return NULL; ret = g_strndup(begin+1, (end-1) - begin); return ret; } gchar * oscar_encoding_to_utf8(PurpleAccount *account, const char *encoding, const char *text, int textlen) { gchar *utf8 = NULL; if ((encoding == NULL) || encoding[0] == '\0') { purple_debug_info("oscar", "Empty encoding, assuming UTF-8\n"); } else if (!g_ascii_strcasecmp(encoding, "iso-8859-1")) { utf8 = g_convert(text, textlen, "UTF-8", "iso-8859-1", NULL, NULL, NULL); } else if (!g_ascii_strcasecmp(encoding, "ISO-8859-1-Windows-3.1-Latin-1") || !g_ascii_strcasecmp(encoding, "us-ascii")) { utf8 = g_convert(text, textlen, "UTF-8", "Windows-1252", NULL, NULL, NULL); } else if (!g_ascii_strcasecmp(encoding, "unicode-2-0")) { /* Some official ICQ clients are apparently total crack, * and have been known to save a UTF-8 string converted * from the locale character set to UTF-16 (not from UTF-8 * to UTF-16!) in the away message. This hack should find * and do something (un)reasonable with that, and not * mess up too much else. */ const gchar *charset = purple_account_get_string(account, "encoding", NULL); if (charset) { gsize len; utf8 = g_convert(text, textlen, charset, "UTF-16BE", &len, NULL, NULL); if (!utf8 || len != textlen || !g_utf8_validate(utf8, -1, NULL)) { g_free(utf8); utf8 = NULL; } else { purple_debug_info("oscar", "Used broken ICQ fallback encoding\n"); } } if (!utf8) utf8 = g_convert(text, textlen, "UTF-8", "UTF-16BE", NULL, NULL, NULL); } else if (g_ascii_strcasecmp(encoding, "utf-8")) { purple_debug_warning("oscar", "Unrecognized character encoding \"%s\", " "attempting to convert to UTF-8 anyway\n", encoding); utf8 = g_convert(text, textlen, "UTF-8", encoding, NULL, NULL, NULL); } /* * If utf8 is still NULL then either the encoding is utf-8 or * we have been unable to convert the text to utf-8 from the encoding * that was specified. So we check if the text is valid utf-8 then * just copy it. */ if (utf8 == NULL) { if (textlen != 0 && *text != '\0' && !g_utf8_validate(text, textlen, NULL)) utf8 = g_strdup(_("(There was an error receiving this message. The buddy you are speaking with is probably using a different encoding than expected. If you know what encoding he is using, you can specify it in the advanced account options for your AIM/ICQ account.)")); else utf8 = g_strndup(text, textlen); } return utf8; } static gchar * oscar_utf8_try_convert(PurpleAccount *account, OscarData *od, const gchar *msg) { const char *charset = NULL; char *ret = NULL; if (od->icq) charset = purple_account_get_string(account, "encoding", NULL); if(charset && *charset) ret = g_convert(msg, -1, "UTF-8", charset, NULL, NULL, NULL); if(!ret) ret = purple_utf8_try_convert(msg); return ret; } static gchar * purple_plugin_oscar_convert_to_utf8(const gchar *data, gsize datalen, const char *charsetstr, gboolean fallback) { gchar *ret = NULL; GError *err = NULL; if ((charsetstr == NULL) || (*charsetstr == '\0')) return NULL; if (g_ascii_strcasecmp("UTF-8", charsetstr)) { if (fallback) ret = g_convert_with_fallback(data, datalen, "UTF-8", charsetstr, "?", NULL, NULL, &err); else ret = g_convert(data, datalen, "UTF-8", charsetstr, NULL, NULL, &err); if (err != NULL) { purple_debug_warning("oscar", "Conversion from %s failed: %s.\n", charsetstr, err->message); g_error_free(err); } } else { if (g_utf8_validate(data, datalen, NULL)) ret = g_strndup(data, datalen); else purple_debug_warning("oscar", "String is not valid UTF-8.\n"); } return ret; } /** * This attemps to decode an incoming IM into a UTF8 string. * * We try decoding using two different character sets. The charset * specified in the IM determines the order in which we attempt to * decode. We do this because there are lots of broken ICQ clients * that don't correctly send non-ASCII messages. And if Purple isn't * able to deal with that crap, then people complain like banshees. * charsetstr1 is always set to what the correct encoding should be. */ gchar * purple_plugin_oscar_decode_im_part(PurpleAccount *account, const char *sourcebn, guint16 charset, guint16 charsubset, const gchar *data, gsize datalen) { gchar *ret = NULL; const gchar *charsetstr1, *charsetstr2, *charsetstr3 = NULL; if ((datalen == 0) || (data == NULL)) return NULL; if (charset == AIM_CHARSET_UNICODE) { charsetstr1 = "UTF-16BE"; charsetstr2 = "UTF-8"; } else if (charset == AIM_CHARSET_LATIN_1) { if ((sourcebn != NULL) && oscar_util_valid_name_icq(sourcebn)) charsetstr1 = purple_account_get_string(account, "encoding", OSCAR_DEFAULT_CUSTOM_ENCODING); else charsetstr1 = "ISO-8859-1"; charsetstr2 = "UTF-8"; } else if (charset == AIM_CHARSET_ASCII) { /* Should just be "ASCII" */ charsetstr1 = "ASCII"; charsetstr2 = purple_account_get_string(account, "encoding", OSCAR_DEFAULT_CUSTOM_ENCODING); } else if (charset == 0x000d) { /* iChat sending unicode over a Direct IM connection = UTF-8 */ /* Mobile AIM client on multiple devices (including Blackberry Tour, Nokia 3100, and LG VX6000) = ISO-8859-1 */ charsetstr1 = "UTF-8"; charsetstr2 = "ISO-8859-1"; charsetstr3 = purple_account_get_string(account, "encoding", OSCAR_DEFAULT_CUSTOM_ENCODING); } else { /* Unknown, hope for valid UTF-8... */ charsetstr1 = "UTF-8"; charsetstr2 = purple_account_get_string(account, "encoding", OSCAR_DEFAULT_CUSTOM_ENCODING); } purple_debug_info("oscar", "Parsing IM part, charset=0x%04hx, charsubset=0x%04hx, datalen=%" G_GSIZE_FORMAT ", choice1=%s, choice2=%s, choice3=%s\n", charset, charsubset, datalen, charsetstr1, charsetstr2, (charsetstr3 ? charsetstr3 : "")); ret = purple_plugin_oscar_convert_to_utf8(data, datalen, charsetstr1, FALSE); if (ret == NULL) { if (charsetstr3 != NULL) { /* Try charsetstr2 without allowing substitutions, then fall through to charsetstr3 if needed */ ret = purple_plugin_oscar_convert_to_utf8(data, datalen, charsetstr2, FALSE); if (ret == NULL) ret = purple_plugin_oscar_convert_to_utf8(data, datalen, charsetstr3, TRUE); } else { /* Try charsetstr2, allowing substitutions */ ret = purple_plugin_oscar_convert_to_utf8(data, datalen, charsetstr2, TRUE); } } if (ret == NULL) { char *str, *salvage, *tmp; str = g_malloc(datalen + 1); strncpy(str, data, datalen); str[datalen] = '\0'; salvage = purple_utf8_salvage(str); tmp = g_strdup_printf(_("(There was an error receiving this message. Either you and %s have different encodings selected, or %s has a buggy client.)"), sourcebn, sourcebn); ret = g_strdup_printf("%s %s", salvage, tmp); g_free(tmp); g_free(str); g_free(salvage); } return ret; } /** * Figure out what encoding to use when sending a given outgoing message. */ static void purple_plugin_oscar_convert_to_best_encoding(PurpleConnection *gc, const char *destbn, const gchar *from, gchar **msg, int *msglen_int, guint16 *charset, guint16 *charsubset) { OscarData *od = purple_connection_get_protocol_data(gc); PurpleAccount *account = purple_connection_get_account(gc); GError *err = NULL; aim_userinfo_t *userinfo = NULL; const gchar *charsetstr; gsize msglen; /* Attempt to send as ASCII */ if (oscar_charset_check(from) == AIM_CHARSET_ASCII) { *msg = g_convert(from, -1, "ASCII", "UTF-8", NULL, &msglen, NULL); *charset = AIM_CHARSET_ASCII; *charsubset = 0x0000; *msglen_int = msglen; return; } /* * If we're sending to an ICQ user, and they are in our * buddy list, and they are advertising the Unicode * capability, and they are online, then attempt to send * as UTF-16BE. */ if ((destbn != NULL) && oscar_util_valid_name_icq(destbn)) userinfo = aim_locate_finduserinfo(od, destbn); if ((userinfo != NULL) && (userinfo->capabilities & OSCAR_CAPABILITY_UNICODE)) { PurpleBuddy *b; b = purple_find_buddy(account, destbn); if ((b != NULL) && (PURPLE_BUDDY_IS_ONLINE(b))) { *msg = g_convert(from, -1, "UTF-16BE", "UTF-8", NULL, &msglen, &err); if (*msg != NULL) { *charset = AIM_CHARSET_UNICODE; *charsubset = 0x0000; *msglen_int = msglen; return; } purple_debug_error("oscar", "Conversion from UTF-8 to UTF-16BE failed: %s.\n", err->message); g_error_free(err); err = NULL; } } /* * If this is AIM then attempt to send as ISO-8859-1. If this is * ICQ then attempt to send as the user specified character encoding. */ charsetstr = "ISO-8859-1"; if ((destbn != NULL) && oscar_util_valid_name_icq(destbn)) charsetstr = purple_account_get_string(account, "encoding", OSCAR_DEFAULT_CUSTOM_ENCODING); /* * XXX - We need a way to only attempt to convert if we KNOW "from" * can be converted to "charsetstr" */ *msg = g_convert(from, -1, charsetstr, "UTF-8", NULL, &msglen, &err); if (*msg != NULL) { *charset = AIM_CHARSET_LATIN_1; *charsubset = 0x0000; *msglen_int = msglen; return; } purple_debug_info("oscar", "Conversion from UTF-8 to %s failed (%s). Falling back to unicode.\n", charsetstr, err->message); g_error_free(err); err = NULL; /* * Nothing else worked, so send as UTF-16BE. */ *msg = g_convert(from, -1, "UTF-16BE", "UTF-8", NULL, &msglen, &err); if (*msg != NULL) { *charset = AIM_CHARSET_UNICODE; *charsubset = 0x0000; *msglen_int = msglen; return; } purple_debug_error("oscar", "Error converting a Unicode message: %s\n", err->message); g_error_free(err); err = NULL; purple_debug_error("oscar", "This should NEVER happen! Sending UTF-8 text flagged as ASCII.\n"); *msg = g_strdup(from); *msglen_int = strlen(*msg); *charset = AIM_CHARSET_ASCII; *charsubset = 0x0000; return; } /** * Looks for %n, %d, or %t in a string, and replaces them with the * specified name, date, and time, respectively. * * @param str The string that may contain the special variables. * @param name The sender name. * * @return A newly allocated string where the special variables are * expanded. This should be g_free'd by the caller. */ static gchar * purple_str_sub_away_formatters(const char *str, const char *name) { char *c; GString *cpy; time_t t; struct tm *tme; g_return_val_if_fail(str != NULL, NULL); g_return_val_if_fail(name != NULL, NULL); /* Create an empty GString that is hopefully big enough for most messages */ cpy = g_string_sized_new(1024); t = time(NULL); tme = localtime(&t); c = (char *)str; while (*c) { switch (*c) { case '%': if (*(c + 1)) { switch (*(c + 1)) { case 'n': /* append name */ g_string_append(cpy, name); c++; break; case 'd': /* append date */ g_string_append(cpy, purple_date_format_short(tme)); c++; break; case 't': /* append time */ g_string_append(cpy, purple_time_format(tme)); c++; break; default: g_string_append_c(cpy, *c); } } else { g_string_append_c(cpy, *c); } break; default: g_string_append_c(cpy, *c); } c++; } return g_string_free(cpy, FALSE); } static gchar *oscar_caps_to_string(guint64 caps) { GString *str; const gchar *tmp; guint64 bit = 1; str = g_string_new(""); if (!caps) { return NULL; } else while (bit <= OSCAR_CAPABILITY_LAST) { if (bit & caps) { switch (bit) { case OSCAR_CAPABILITY_BUDDYICON: tmp = _("Buddy Icon"); break; case OSCAR_CAPABILITY_TALK: tmp = _("Voice"); break; case OSCAR_CAPABILITY_DIRECTIM: tmp = _("AIM Direct IM"); break; case OSCAR_CAPABILITY_CHAT: tmp = _("Chat"); break; case OSCAR_CAPABILITY_GETFILE: tmp = _("Get File"); break; case OSCAR_CAPABILITY_SENDFILE: tmp = _("Send File"); break; case OSCAR_CAPABILITY_GAMES: case OSCAR_CAPABILITY_GAMES2: tmp = _("Games"); break; case OSCAR_CAPABILITY_XTRAZ: case OSCAR_CAPABILITY_NEWCAPS: tmp = _("ICQ Xtraz"); break; case OSCAR_CAPABILITY_ADDINS: tmp = _("Add-Ins"); break; case OSCAR_CAPABILITY_SENDBUDDYLIST: tmp = _("Send Buddy List"); break; case OSCAR_CAPABILITY_ICQ_DIRECT: tmp = _("ICQ Direct Connect"); break; case OSCAR_CAPABILITY_APINFO: tmp = _("AP User"); break; case OSCAR_CAPABILITY_ICQRTF: tmp = _("ICQ RTF"); break; case OSCAR_CAPABILITY_EMPTY: tmp = _("Nihilist"); break; case OSCAR_CAPABILITY_ICQSERVERRELAY: tmp = _("ICQ Server Relay"); break; case OSCAR_CAPABILITY_UNICODEOLD: tmp = _("Old ICQ UTF8"); break; case OSCAR_CAPABILITY_TRILLIANCRYPT: tmp = _("Trillian Encryption"); break; case OSCAR_CAPABILITY_UNICODE: tmp = _("ICQ UTF8"); break; case OSCAR_CAPABILITY_HIPTOP: tmp = _("Hiptop"); break; case OSCAR_CAPABILITY_SECUREIM: tmp = _("Security Enabled"); break; case OSCAR_CAPABILITY_VIDEO: tmp = _("Video Chat"); break; /* Not actually sure about this one... WinAIM doesn't show anything */ case OSCAR_CAPABILITY_ICHATAV: tmp = _("iChat AV"); break; case OSCAR_CAPABILITY_LIVEVIDEO: tmp = _("Live Video"); break; case OSCAR_CAPABILITY_CAMERA: tmp = _("Camera"); break; case OSCAR_CAPABILITY_ICHAT_SCREENSHARE: tmp = _("Screen Sharing"); break; default: tmp = NULL; break; } if (tmp) g_string_append_printf(str, "%s%s", (*(str->str) == '\0' ? "" : ", "), tmp); } bit <<= 1; } return g_string_free(str, FALSE); } static char *oscar_icqstatus(int state) { /* Make a cute little string that shows the status of the dude or dudet */ if (state & AIM_ICQ_STATE_CHAT) return g_strdup(_("Free For Chat")); else if (state & AIM_ICQ_STATE_DND) return g_strdup(_("Do Not Disturb")); else if (state & AIM_ICQ_STATE_OUT) return g_strdup(_("Not Available")); else if (state & AIM_ICQ_STATE_BUSY) return g_strdup(_("Occupied")); else if (state & AIM_ICQ_STATE_AWAY) return g_strdup(_("Away")); else if (state & AIM_ICQ_STATE_WEBAWARE) return g_strdup(_("Web Aware")); else if (state & AIM_ICQ_STATE_INVISIBLE) return g_strdup(_("Invisible")); else if (state & AIM_ICQ_STATE_EVIL) return g_strdup(_("Evil")); else if (state & AIM_ICQ_STATE_DEPRESSION) return g_strdup(_("Depression")); else if (state & AIM_ICQ_STATE_ATHOME) return g_strdup(_("At home")); else if (state & AIM_ICQ_STATE_ATWORK) return g_strdup(_("At work")); else if (state & AIM_ICQ_STATE_LUNCH) return g_strdup(_("At lunch")); else return g_strdup(_("Online")); } static void oscar_user_info_add_pair(PurpleNotifyUserInfo *user_info, const char *name, const char *value) { if (value && value[0]) { purple_notify_user_info_add_pair(user_info, name, value); } } static void oscar_user_info_convert_and_add_pair(PurpleAccount *account, OscarData *od, PurpleNotifyUserInfo *user_info, const char *name, const char *value) { gchar *utf8; if (value && value[0] && (utf8 = oscar_utf8_try_convert(account, od, value))) { purple_notify_user_info_add_pair(user_info, name, utf8); g_free(utf8); } } static void oscar_user_info_convert_and_add(PurpleAccount *account, OscarData *od, PurpleNotifyUserInfo *user_info, const char *name, const char *value) { gchar *utf8; if (value && value[0] && (utf8 = oscar_utf8_try_convert(account, od, value))) { purple_notify_user_info_add_pair(user_info, name, utf8); g_free(utf8); } } /** * @brief Append the status information to a user_info struct * * The returned information is HTML-ready, appropriately escaped, as all information in a user_info struct should be HTML. * * @param gc The PurpleConnection * @param user_info A PurpleNotifyUserInfo object to which status information will be added * @param b The PurpleBuddy whose status is desired. This or the aim_userinfo_t (or both) must be passed to oscar_user_info_append_status(). * @param userinfo The aim_userinfo_t of the buddy whose status is desired. This or the PurpleBuddy (or both) must be passed to oscar_user_info_append_status(). * @param strip_html_tags If strip_html_tags is TRUE, tags embedded in the status message will be stripped, returning a non-formatted string. The string will still be HTML escaped. */ static void oscar_user_info_append_status(PurpleConnection *gc, PurpleNotifyUserInfo *user_info, PurpleBuddy *b, aim_userinfo_t *userinfo, gboolean strip_html_tags) { PurpleAccount *account = purple_connection_get_account(gc); OscarData *od; PurplePresence *presence = NULL; PurpleStatus *status = NULL; gchar *message = NULL, *itmsurl = NULL, *tmp; gboolean is_away; od = purple_connection_get_protocol_data(gc); if (b == NULL && userinfo == NULL) return; if (b == NULL) b = purple_find_buddy(purple_connection_get_account(gc), userinfo->bn); else userinfo = aim_locate_finduserinfo(od, purple_buddy_get_name(b)); if (b) { presence = purple_buddy_get_presence(b); status = purple_presence_get_active_status(presence); } /* If we have both b and userinfo we favor userinfo, because if we're viewing someone's profile then we want the HTML away message, and the "message" attribute of the status contains only the plaintext message. */ if (userinfo) { if ((userinfo->flags & AIM_FLAG_AWAY) && userinfo->away_len > 0 && userinfo->away != NULL && userinfo->away_encoding != NULL) { /* Away message */ tmp = oscar_encoding_extract(userinfo->away_encoding); message = oscar_encoding_to_utf8(account, tmp, userinfo->away, userinfo->away_len); g_free(tmp); } else { /* * Available message or non-HTML away message (because that's * all we have right now. */ if ((userinfo->status != NULL) && userinfo->status[0] != '\0') { message = oscar_encoding_to_utf8(account, userinfo->status_encoding, userinfo->status, userinfo->status_len); } #if defined (_WIN32) || defined (__APPLE__) if (userinfo->itmsurl && (userinfo->itmsurl[0] != '\0')) itmsurl = oscar_encoding_to_utf8(account, userinfo->itmsurl_encoding, userinfo->itmsurl, userinfo->itmsurl_len); #endif } } else { message = g_strdup(purple_status_get_attr_string(status, "message")); itmsurl = g_strdup(purple_status_get_attr_string(status, "itmsurl")); } is_away = ((status && !purple_status_is_available(status)) || (userinfo && (userinfo->flags & AIM_FLAG_AWAY))); if (strip_html_tags) { /* Away messages are HTML, but available messages were originally plain text. * We therefore need to strip away messages but not available messages if we're asked to remove HTML tags. */ /* * It seems like the above comment no longer applies. All messages need * to be escaped. */ if (message) { gchar *tmp2; tmp = purple_markup_strip_html(message); g_free(message); tmp2 = g_markup_escape_text(tmp, -1); g_free(tmp); message = tmp2; } } else { if (itmsurl) { tmp = g_strdup_printf("<a href=\"%s\">%s</a>", itmsurl, message); g_free(message); message = tmp; } } g_free(itmsurl); if (message) { tmp = purple_str_sub_away_formatters(message, purple_account_get_username(account)); g_free(message); message = tmp; } if (b) { if (purple_presence_is_online(presence)) { if (oscar_util_valid_name_icq(purple_buddy_get_name(b)) || is_away || !message || !(*message)) { /* Append the status name for online ICQ statuses, away AIM statuses, and for all buddies with no message. * If the status name and the message are the same, only show one. */ const char *status_name = purple_status_get_name(status); if (status_name && message && !strcmp(status_name, message)) status_name = NULL; tmp = g_strdup_printf("%s%s%s", status_name ? status_name : "", ((status_name && message) && *message) ? ": " : "", (message && *message) ? message : ""); g_free(message); message = tmp; } } else if (aim_ssi_waitingforauth(od->ssi.local, aim_ssi_itemlist_findparentname(od->ssi.local, purple_buddy_get_name(b)), purple_buddy_get_name(b))) { /* Note if an offline buddy is not authorized */ tmp = g_strdup_printf("%s%s%s", _("Not Authorized"), (message && *message) ? ": " : "", (message && *message) ? message : ""); g_free(message); message = tmp; } else { g_free(message); message = g_strdup(_("Offline")); } } if (presence) { const char *mood; const char *description; status = purple_presence_get_status(presence, "mood"); mood = purple_status_get_attr_string(status, PURPLE_MOOD_NAME); description = icq_get_custom_icon_description(mood); if (description && *description) purple_notify_user_info_add_pair(user_info, _("Mood"), _(description)); } purple_notify_user_info_add_pair(user_info, _("Status"), message); g_free(message); } static void oscar_user_info_append_extra_info(PurpleConnection *gc, PurpleNotifyUserInfo *user_info, PurpleBuddy *b, aim_userinfo_t *userinfo) { OscarData *od; PurpleAccount *account; PurplePresence *presence = NULL; PurpleStatus *status = NULL; PurpleGroup *g = NULL; struct buddyinfo *bi = NULL; char *tmp; const char *bname = NULL, *gname = NULL; od = purple_connection_get_protocol_data(gc); account = purple_connection_get_account(gc); if ((user_info == NULL) || ((b == NULL) && (userinfo == NULL))) return; if (userinfo == NULL) userinfo = aim_locate_finduserinfo(od, purple_buddy_get_name(b)); if (b == NULL) b = purple_find_buddy(account, userinfo->bn); if (b != NULL) { bname = purple_buddy_get_name(b); g = purple_buddy_get_group(b); gname = purple_group_get_name(g); presence = purple_buddy_get_presence(b); status = purple_presence_get_active_status(presence); } if (userinfo != NULL) bi = g_hash_table_lookup(od->buddyinfo, purple_normalize(account, userinfo->bn)); if ((bi != NULL) && (bi->ipaddr != 0)) { tmp = g_strdup_printf("%hhu.%hhu.%hhu.%hhu", (bi->ipaddr & 0xff000000) >> 24, (bi->ipaddr & 0x00ff0000) >> 16, (bi->ipaddr & 0x0000ff00) >> 8, (bi->ipaddr & 0x000000ff)); oscar_user_info_add_pair(user_info, _("IP Address"), tmp); g_free(tmp); } if ((userinfo != NULL) && (userinfo->warnlevel != 0)) { tmp = g_strdup_printf("%d", (int)(userinfo->warnlevel/10.0 + .5)); oscar_user_info_add_pair(user_info, _("Warning Level"), tmp); g_free(tmp); } if ((b != NULL) && (bname != NULL) && (g != NULL) && (gname != NULL)) { tmp = aim_ssi_getcomment(od->ssi.local, gname, bname); if (tmp != NULL) { char *tmp2 = g_markup_escape_text(tmp, strlen(tmp)); g_free(tmp); oscar_user_info_convert_and_add_pair(account, od, user_info, _("Buddy Comment"), tmp2); g_free(tmp2); } } } static char *extract_name(const char *name) { char *tmp, *x; int i, j; if (!name) return NULL; x = strchr(name, '-'); if (!x) return NULL; x = strchr(x + 1, '-'); if (!x) return NULL; tmp = g_strdup(++x); for (i = 0, j = 0; x[i]; i++) { char hex[3]; if (x[i] != '%') { tmp[j++] = x[i]; continue; } strncpy(hex, x + ++i, 2); hex[2] = 0; i++; tmp[j++] = strtol(hex, NULL, 16); } tmp[j] = 0; return tmp; } static struct chat_connection * find_oscar_chat(PurpleConnection *gc, int id) { OscarData *od = purple_connection_get_protocol_data(gc); GSList *cur; struct chat_connection *cc; for (cur = od->oscar_chats; cur != NULL; cur = cur->next) { cc = (struct chat_connection *)cur->data; if (cc->id == id) return cc; } return NULL; } static struct chat_connection * find_oscar_chat_by_conn(PurpleConnection *gc, FlapConnection *conn) { OscarData *od = purple_connection_get_protocol_data(gc); GSList *cur; struct chat_connection *cc; for (cur = od->oscar_chats; cur != NULL; cur = cur->next) { cc = (struct chat_connection *)cur->data; if (cc->conn == conn) return cc; } return NULL; } static struct chat_connection * find_oscar_chat_by_conv(PurpleConnection *gc, PurpleConversation *conv) { OscarData *od = purple_connection_get_protocol_data(gc); GSList *cur; struct chat_connection *cc; for (cur = od->oscar_chats; cur != NULL; cur = cur->next) { cc = (struct chat_connection *)cur->data; if (cc->conv == conv) return cc; } return NULL; } void oscar_chat_destroy(struct chat_connection *cc) { g_free(cc->name); g_free(cc->show); g_free(cc); } static void oscar_chat_kill(PurpleConnection *gc, struct chat_connection *cc) { OscarData *od = purple_connection_get_protocol_data(gc); /* Notify the conversation window that we've left the chat */ serv_got_chat_left(gc, purple_conv_chat_get_id(PURPLE_CONV_CHAT(cc->conv))); /* Destroy the chat_connection */ od->oscar_chats = g_slist_remove(od->oscar_chats, cc); flap_connection_schedule_destroy(cc->conn, OSCAR_DISCONNECT_DONE, NULL); oscar_chat_destroy(cc); } /** * This is called from the callback functions for establishing * a TCP connection with an oscar host if an error occurred. */ static void connection_common_error_cb(FlapConnection *conn, const gchar *error_message) { OscarData *od; PurpleConnection *gc; od = conn->od; gc = od->gc; purple_debug_error("oscar", "unable to connect to FLAP " "server of type 0x%04hx\n", conn->type); if (conn->type == SNAC_FAMILY_AUTH) { /* This only happens when connecting with the old-style BUCP login */ gchar *msg; msg = g_strdup_printf(_("Unable to connect to authentication server: %s"), error_message); purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_NETWORK_ERROR, msg); g_free(msg); } else if (conn->type == SNAC_FAMILY_LOCATE) { gchar *msg; msg = g_strdup_printf(_("Unable to connect to BOS server: %s"), error_message); purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_NETWORK_ERROR, msg); g_free(msg); } else { /* Maybe we should call this for BOS connections, too? */ flap_connection_schedule_destroy(conn, OSCAR_DISCONNECT_COULD_NOT_CONNECT, error_message); } } /** * This is called from the callback functions for establishing * a TCP connection with an oscar host. Depending on the type * of host, we do a few different things here. */ static void connection_common_established_cb(FlapConnection *conn) { OscarData *od; PurpleConnection *gc; PurpleAccount *account; od = conn->od; gc = od->gc; account = purple_connection_get_account(gc); purple_debug_info("oscar", "connected to FLAP server of type 0x%04hx\n", conn->type); if (conn->cookie == NULL) flap_connection_send_version(od, conn); else { if (purple_account_get_bool(account, "use_clientlogin", OSCAR_DEFAULT_USE_CLIENTLOGIN)) { ClientInfo aiminfo = CLIENTINFO_PURPLE_AIM; ClientInfo icqinfo = CLIENTINFO_PURPLE_ICQ; flap_connection_send_version_with_cookie_and_clientinfo(od, conn, conn->cookielen, conn->cookie, od->icq ? &icqinfo : &aiminfo, purple_account_get_bool(account, "allow_multiple_logins", OSCAR_DEFAULT_ALLOW_MULTIPLE_LOGINS)); } else { flap_connection_send_version_with_cookie(od, conn, conn->cookielen, conn->cookie); } g_free(conn->cookie); conn->cookie = NULL; } if (conn->type == SNAC_FAMILY_AUTH) { /* This only happens when connecting with the old-style BUCP login */ aim_request_login(od, conn, purple_account_get_username(account)); purple_debug_info("oscar", "Username sent, waiting for response\n"); purple_connection_update_progress(gc, _("Username sent"), 1, OSCAR_CONNECT_STEPS); ck[1] = 0x65; } else if (conn->type == SNAC_FAMILY_LOCATE) { purple_connection_update_progress(gc, _("Connection established, cookie sent"), 4, OSCAR_CONNECT_STEPS); ck[4] = 0x61; } else if (conn->type == SNAC_FAMILY_CHAT) { od->oscar_chats = g_slist_prepend(od->oscar_chats, conn->new_conn_data); conn->new_conn_data = NULL; } } static void connection_established_cb(gpointer data, gint source, const gchar *error_message) { FlapConnection *conn; conn = data; conn->connect_data = NULL; conn->fd = source; if (source < 0) { connection_common_error_cb(conn, error_message); return; } conn->watcher_incoming = purple_input_add(conn->fd, PURPLE_INPUT_READ, flap_connection_recv_cb, conn); connection_common_established_cb(conn); } static void ssl_connection_established_cb(gpointer data, PurpleSslConnection *gsc, PurpleInputCondition cond) { FlapConnection *conn; conn = data; purple_ssl_input_add(gsc, flap_connection_recv_cb_ssl, conn); connection_common_established_cb(conn); } static void ssl_connection_error_cb(PurpleSslConnection *gsc, PurpleSslErrorType error, gpointer data) { FlapConnection *conn; conn = data; if (conn->watcher_outgoing) { purple_input_remove(conn->watcher_outgoing); conn->watcher_outgoing = 0; } /* sslconn frees the connection on error */ conn->gsc = NULL; connection_common_error_cb(conn, purple_ssl_strerror(error)); } static void flap_connection_established_bos(OscarData *od, FlapConnection *conn) { PurpleConnection *gc = od->gc; aim_srv_reqpersonalinfo(od, conn); purple_debug_info("oscar", "ssi: requesting rights and list\n"); aim_ssi_reqrights(od); aim_ssi_reqdata(od); if (od->getblisttimer > 0) purple_timeout_remove(od->getblisttimer); od->getblisttimer = purple_timeout_add_seconds(30, purple_ssi_rerequestdata, od); aim_locate_reqrights(od); aim_buddylist_reqrights(od, conn); aim_im_reqparams(od); aim_bos_reqrights(od, conn); /* TODO: Don't call this with ssi */ purple_connection_update_progress(gc, _("Finalizing connection"), 5, OSCAR_CONNECT_STEPS); } static void flap_connection_established_admin(OscarData *od, FlapConnection *conn) { aim_srv_clientready(od, conn); purple_debug_info("oscar", "connected to admin\n"); if (od->chpass) { purple_debug_info("oscar", "changing password\n"); aim_admin_changepasswd(od, conn, od->newp, od->oldp); g_free(od->oldp); od->oldp = NULL; g_free(od->newp); od->newp = NULL; od->chpass = FALSE; } if (od->setnick) { purple_debug_info("oscar", "formatting username\n"); aim_admin_setnick(od, conn, od->newformatting); g_free(od->newformatting); od->newformatting = NULL; od->setnick = FALSE; } if (od->conf) { purple_debug_info("oscar", "confirming account\n"); aim_admin_reqconfirm(od, conn); od->conf = FALSE; } if (od->reqemail) { purple_debug_info("oscar", "requesting email address\n"); aim_admin_getinfo(od, conn, 0x0011); od->reqemail = FALSE; } if (od->setemail) { purple_debug_info("oscar", "setting email address\n"); aim_admin_setemail(od, conn, od->email); g_free(od->email); od->email = NULL; od->setemail = FALSE; } } static void flap_connection_established_chat(OscarData *od, FlapConnection *conn) { PurpleConnection *gc = od->gc; struct chat_connection *chatcon; static int id = 1; aim_srv_clientready(od, conn); chatcon = find_oscar_chat_by_conn(gc, conn); if (chatcon) { chatcon->id = id; chatcon->conv = serv_got_joined_chat(gc, id++, chatcon->show); } } static void flap_connection_established_chatnav(OscarData *od, FlapConnection *conn) { aim_srv_clientready(od, conn); aim_chatnav_reqrights(od, conn); } static void flap_connection_established_alert(OscarData *od, FlapConnection *conn) { aim_email_sendcookies(od); aim_email_activate(od); aim_srv_clientready(od, conn); } static void flap_connection_established_bart(OscarData *od, FlapConnection *conn) { PurpleConnection *gc = od->gc; aim_srv_clientready(od, conn); od->iconconnecting = FALSE; purple_icons_fetch(gc); } static int flap_connection_established(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { purple_debug_info("oscar", "FLAP connection of type 0x%04hx is " "now fully connected\n", conn->type); if (conn->type == SNAC_FAMILY_LOCATE) flap_connection_established_bos(od, conn); else if (conn->type == SNAC_FAMILY_ADMIN) flap_connection_established_admin(od, conn); else if (conn->type == SNAC_FAMILY_CHAT) flap_connection_established_chat(od, conn); else if (conn->type == SNAC_FAMILY_CHATNAV) flap_connection_established_chatnav(od, conn); else if (conn->type == SNAC_FAMILY_ALERT) flap_connection_established_alert(od, conn); else if (conn->type == SNAC_FAMILY_BART) flap_connection_established_bart(od, conn); return 1; } static void idle_reporting_pref_cb(const char *name, PurplePrefType type, gconstpointer value, gpointer data) { PurpleConnection *gc; OscarData *od; gboolean report_idle; guint32 presence; gc = data; od = purple_connection_get_protocol_data(gc); report_idle = strcmp((const char *)value, "none") != 0; presence = aim_ssi_getpresence(od->ssi.local); if (report_idle) aim_ssi_setpresence(od, presence | AIM_SSI_PRESENCE_FLAG_SHOWIDLE); else aim_ssi_setpresence(od, presence & ~AIM_SSI_PRESENCE_FLAG_SHOWIDLE); } /** * Should probably make a "Use recent buddies group" account preference * so that this option is surfaced to the user. */ static void recent_buddies_pref_cb(const char *name, PurplePrefType type, gconstpointer value, gpointer data) { PurpleConnection *gc; OscarData *od; guint32 presence; gc = data; od = purple_connection_get_protocol_data(gc); presence = aim_ssi_getpresence(od->ssi.local); if (value) aim_ssi_setpresence(od, presence & ~AIM_SSI_PRESENCE_FLAG_NORECENTBUDDIES); else aim_ssi_setpresence(od, presence | AIM_SSI_PRESENCE_FLAG_NORECENTBUDDIES); } void oscar_login(PurpleAccount *account) { PurpleConnection *gc; OscarData *od; gc = purple_account_get_connection(account); od = oscar_data_new(); od->gc = gc; purple_connection_set_protocol_data(gc, od); oscar_data_addhandler(od, AIM_CB_FAM_SPECIAL, AIM_CB_SPECIAL_CONNERR, purple_connerr, 0); oscar_data_addhandler(od, AIM_CB_FAM_SPECIAL, AIM_CB_SPECIAL_CONNINITDONE, flap_connection_established, 0); oscar_data_addhandler(od, SNAC_FAMILY_ADMIN, 0x0003, purple_info_change, 0); oscar_data_addhandler(od, SNAC_FAMILY_ADMIN, 0x0005, purple_info_change, 0); oscar_data_addhandler(od, SNAC_FAMILY_ADMIN, 0x0007, purple_account_confirm, 0); oscar_data_addhandler(od, SNAC_FAMILY_ALERT, 0x0001, purple_parse_genericerr, 0); oscar_data_addhandler(od, SNAC_FAMILY_ALERT, SNAC_SUBTYPE_ALERT_MAILSTATUS, purple_email_parseupdate, 0); /* These are only needed when connecting with the old-style BUCP login */ oscar_data_addhandler(od, SNAC_FAMILY_AUTH, 0x0003, purple_parse_auth_resp, 0); oscar_data_addhandler(od, SNAC_FAMILY_AUTH, 0x0007, purple_parse_login, 0); oscar_data_addhandler(od, SNAC_FAMILY_AUTH, SNAC_SUBTYPE_AUTH_SECURID_REQUEST, purple_parse_auth_securid_request, 0); oscar_data_addhandler(od, SNAC_FAMILY_BART, SNAC_SUBTYPE_BART_RESPONSE, purple_icon_parseicon, 0); oscar_data_addhandler(od, SNAC_FAMILY_BOS, 0x0001, purple_parse_genericerr, 0); oscar_data_addhandler(od, SNAC_FAMILY_BOS, 0x0003, purple_bosrights, 0); oscar_data_addhandler(od, SNAC_FAMILY_BUDDY, 0x0001, purple_parse_genericerr, 0); oscar_data_addhandler(od, SNAC_FAMILY_BUDDY, SNAC_SUBTYPE_BUDDY_RIGHTSINFO, purple_parse_buddyrights, 0); oscar_data_addhandler(od, SNAC_FAMILY_BUDDY, SNAC_SUBTYPE_BUDDY_ONCOMING, purple_parse_oncoming, 0); oscar_data_addhandler(od, SNAC_FAMILY_BUDDY, SNAC_SUBTYPE_BUDDY_OFFGOING, purple_parse_offgoing, 0); oscar_data_addhandler(od, SNAC_FAMILY_CHAT, 0x0001, purple_parse_genericerr, 0); oscar_data_addhandler(od, SNAC_FAMILY_CHAT, SNAC_SUBTYPE_CHAT_USERJOIN, purple_conv_chat_join, 0); oscar_data_addhandler(od, SNAC_FAMILY_CHAT, SNAC_SUBTYPE_CHAT_USERLEAVE, purple_conv_chat_leave, 0); oscar_data_addhandler(od, SNAC_FAMILY_CHAT, SNAC_SUBTYPE_CHAT_ROOMINFOUPDATE, purple_conv_chat_info_update, 0); oscar_data_addhandler(od, SNAC_FAMILY_CHAT, SNAC_SUBTYPE_CHAT_INCOMINGMSG, purple_conv_chat_incoming_msg, 0); oscar_data_addhandler(od, SNAC_FAMILY_CHATNAV, 0x0001, purple_parse_genericerr, 0); oscar_data_addhandler(od, SNAC_FAMILY_CHATNAV, SNAC_SUBTYPE_CHATNAV_INFO, purple_chatnav_info, 0); oscar_data_addhandler(od, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_ERROR, purple_ssi_parseerr, 0); oscar_data_addhandler(od, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_RIGHTSINFO, purple_ssi_parserights, 0); oscar_data_addhandler(od, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_LIST, purple_ssi_parselist, 0); oscar_data_addhandler(od, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_SRVACK, purple_ssi_parseack, 0); oscar_data_addhandler(od, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_ADD, purple_ssi_parseaddmod, 0); oscar_data_addhandler(od, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_MOD, purple_ssi_parseaddmod, 0); oscar_data_addhandler(od, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_RECVAUTH, purple_ssi_authgiven, 0); oscar_data_addhandler(od, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_RECVAUTHREQ, purple_ssi_authrequest, 0); oscar_data_addhandler(od, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_RECVAUTHREP, purple_ssi_authreply, 0); oscar_data_addhandler(od, SNAC_FAMILY_FEEDBAG, SNAC_SUBTYPE_FEEDBAG_ADDED, purple_ssi_gotadded, 0); oscar_data_addhandler(od, SNAC_FAMILY_ICBM, SNAC_SUBTYPE_ICBM_INCOMING, purple_parse_incoming_im, 0); oscar_data_addhandler(od, SNAC_FAMILY_ICBM, SNAC_SUBTYPE_ICBM_MISSEDCALL, purple_parse_misses, 0); oscar_data_addhandler(od, SNAC_FAMILY_ICBM, SNAC_SUBTYPE_ICBM_CLIENTAUTORESP, purple_parse_clientauto, 0); oscar_data_addhandler(od, SNAC_FAMILY_ICBM, SNAC_SUBTYPE_ICBM_ERROR, purple_parse_msgerr, 0); oscar_data_addhandler(od, SNAC_FAMILY_ICBM, SNAC_SUBTYPE_ICBM_MTN, purple_parse_mtn, 0); oscar_data_addhandler(od, SNAC_FAMILY_ICBM, SNAC_SUBTYPE_ICBM_ACK, purple_parse_msgack, 0); #ifdef OLDSTYLE_ICQ_OFFLINEMSGS oscar_data_addhandler(od, SNAC_FAMILY_ICQ, SNAC_SUBTYPE_ICQ_OFFLINEMSG, purple_offlinemsg, 0); oscar_data_addhandler(od, SNAC_FAMILY_ICQ, SNAC_SUBTYPE_ICQ_OFFLINEMSGCOMPLETE, purple_offlinemsgdone, 0); #endif /* OLDSTYLE_ICQ_OFFLINEMSGS */ oscar_data_addhandler(od, SNAC_FAMILY_ICQ, SNAC_SUBTYPE_ICQ_ALIAS, purple_icqalias, 0); oscar_data_addhandler(od, SNAC_FAMILY_ICQ, SNAC_SUBTYPE_ICQ_INFO, purple_icqinfo, 0); oscar_data_addhandler(od, SNAC_FAMILY_LOCATE, SNAC_SUBTYPE_LOCATE_RIGHTSINFO, purple_parse_locaterights, 0); oscar_data_addhandler(od, SNAC_FAMILY_LOCATE, SNAC_SUBTYPE_LOCATE_USERINFO, purple_parse_userinfo, 0); oscar_data_addhandler(od, SNAC_FAMILY_LOCATE, SNAC_SUBTYPE_LOCATE_ERROR, purple_parse_locerr, 0); oscar_data_addhandler(od, SNAC_FAMILY_OSERVICE, 0x0001, purple_parse_genericerr, 0); oscar_data_addhandler(od, SNAC_FAMILY_OSERVICE, 0x000f, purple_selfinfo, 0); oscar_data_addhandler(od, SNAC_FAMILY_OSERVICE, 0x001f, purple_memrequest, 0); oscar_data_addhandler(od, SNAC_FAMILY_OSERVICE, SNAC_SUBTYPE_OSERVICE_REDIRECT, purple_handle_redirect, 0); oscar_data_addhandler(od, SNAC_FAMILY_OSERVICE, SNAC_SUBTYPE_OSERVICE_MOTD, purple_parse_motd, 0); oscar_data_addhandler(od, SNAC_FAMILY_OSERVICE, SNAC_SUBTYPE_OSERVICE_EVIL, purple_parse_evilnotify, 0); oscar_data_addhandler(od, SNAC_FAMILY_POPUP, 0x0002, purple_popup, 0); oscar_data_addhandler(od, SNAC_FAMILY_USERLOOKUP, SNAC_SUBTYPE_USERLOOKUP_ERROR, purple_parse_searcherror, 0); oscar_data_addhandler(od, SNAC_FAMILY_USERLOOKUP, 0x0003, purple_parse_searchreply, 0); purple_debug_misc("oscar", "oscar_login: gc = %p\n", gc); if (!oscar_util_valid_name(purple_account_get_username(account))) { gchar *buf; buf = g_strdup_printf(_("Unable to sign on as %s because the username is invalid. Usernames must be a valid email address, or start with a letter and contain only letters, numbers and spaces, or contain only numbers."), purple_account_get_username(account)); purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_INVALID_SETTINGS, buf); g_free(buf); return; } gc->flags |= PURPLE_CONNECTION_HTML; if (oscar_util_valid_name_icq((purple_account_get_username(account)))) { od->icq = TRUE; gc->flags |= PURPLE_CONNECTION_SUPPORT_MOODS; } else { gc->flags |= PURPLE_CONNECTION_AUTO_RESP; } od->default_port = purple_account_get_int(account, "port", OSCAR_DEFAULT_LOGIN_PORT); od->use_ssl = purple_account_get_bool(account, "use_ssl", OSCAR_DEFAULT_USE_SSL); /* Connect to core Purple signals */ purple_prefs_connect_callback(gc, "/purple/away/idle_reporting", idle_reporting_pref_cb, gc); purple_prefs_connect_callback(gc, "/plugins/prpl/oscar/recent_buddies", recent_buddies_pref_cb, gc); /* * On 2008-03-05 AOL released some documentation on the OSCAR protocol * which includes a new login method called clientLogin. It is similar * (though not the same?) as what the AIM 6.0 series uses to * authenticate. * * AIM 5.9 and lower use an MD5-based login procedure called "BUCP". * This authentication method is used for both ICQ and AIM when * clientLogin is not enabled. */ if (purple_account_get_bool(account, "use_clientlogin", OSCAR_DEFAULT_USE_CLIENTLOGIN)) { send_client_login(od, purple_account_get_username(account)); } else { FlapConnection *newconn; const char *server; newconn = flap_connection_new(od, SNAC_FAMILY_AUTH); if (od->use_ssl) { if (!purple_ssl_is_supported()) { purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_NO_SSL_SUPPORT, _("SSL support unavailable")); return; } server = purple_account_get_string(account, "server", OSCAR_DEFAULT_SSL_LOGIN_SERVER); /* * If the account's server is what the oscar prpl has offered as * the default login server through the vast eons (all two of * said default options, AFAIK) and the user wants SSL, we'll * do what we know is best for them and change the setting out * from under them to the SSL login server. */ if (!strcmp(server, OSCAR_DEFAULT_LOGIN_SERVER) || !strcmp(server, OSCAR_OLD_LOGIN_SERVER)) { purple_debug_info("oscar", "Account uses SSL, so changing server to default SSL server\n"); purple_account_set_string(account, "server", OSCAR_DEFAULT_SSL_LOGIN_SERVER); server = OSCAR_DEFAULT_SSL_LOGIN_SERVER; } newconn->gsc = purple_ssl_connect(account, server, purple_account_get_int(account, "port", OSCAR_DEFAULT_LOGIN_PORT), ssl_connection_established_cb, ssl_connection_error_cb, newconn); } else { server = purple_account_get_string(account, "server", OSCAR_DEFAULT_LOGIN_SERVER); /* * See the comment above. We do the reverse here. If they don't want * SSL but their server is set to OSCAR_DEFAULT_SSL_LOGIN_SERVER, * set it back to the default. */ if (!strcmp(server, OSCAR_DEFAULT_SSL_LOGIN_SERVER)) { purple_debug_info("oscar", "Account does not use SSL, so changing server back to non-SSL\n"); purple_account_set_string(account, "server", OSCAR_DEFAULT_LOGIN_SERVER); server = OSCAR_DEFAULT_LOGIN_SERVER; } newconn->connect_data = purple_proxy_connect(NULL, account, server, purple_account_get_int(account, "port", OSCAR_DEFAULT_LOGIN_PORT), connection_established_cb, newconn); } if (newconn->gsc == NULL && newconn->connect_data == NULL) { purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_NETWORK_ERROR, _("Unable to connect")); return; } } purple_connection_update_progress(gc, _("Connecting"), 0, OSCAR_CONNECT_STEPS); ck[0] = 0x5a; } void oscar_close(PurpleConnection *gc) { OscarData *od; od = purple_connection_get_protocol_data(gc); while (od->oscar_chats) { struct chat_connection *cc = od->oscar_chats->data; od->oscar_chats = g_slist_remove(od->oscar_chats, cc); oscar_chat_destroy(cc); } while (od->create_rooms) { struct create_room *cr = od->create_rooms->data; g_free(cr->name); od->create_rooms = g_slist_remove(od->create_rooms, cr); g_free(cr); } oscar_data_destroy(od); purple_connection_set_protocol_data(gc, NULL); purple_prefs_disconnect_by_handle(gc); purple_debug_info("oscar", "Signed off.\n"); } /* XXX - Should use purple_util_fetch_url for the below stuff */ struct pieceofcrap { PurpleConnection *gc; unsigned long offset; unsigned long len; char *modname; int fd; FlapConnection *conn; unsigned int inpa; }; static void damn_you(gpointer data, gint source, PurpleInputCondition c) { struct pieceofcrap *pos = data; OscarData *od = purple_connection_get_protocol_data(pos->gc); char in = '\0'; int x = 0; unsigned char m[17]; GString *msg; while (read(pos->fd, &in, 1) == 1) { if (in == '\n') x++; else if (in != '\r') x = 0; if (x == 2) break; in = '\0'; } if (in != '\n') { char buf[256]; g_snprintf(buf, sizeof(buf), _("You may be disconnected shortly. " "If so, check %s for updates."), oscar_get_ui_info_string("website", PURPLE_WEBSITE)); purple_notify_warning(pos->gc, NULL, _("Unable to get a valid AIM login hash."), buf); purple_input_remove(pos->inpa); close(pos->fd); g_free(pos); return; } if (read(pos->fd, m, 16) != 16) { purple_debug_warning("oscar", "Could not read full AIM login hash " "from " AIMHASHDATA "--that's bad.\n"); } m[16] = '\0'; msg = g_string_new("Sending hash: "); for (x = 0; x < 16; x++) g_string_append_printf(msg, "%02hhx ", (unsigned char)m[x]); g_string_append(msg, "\n"); purple_debug_misc("oscar", "%s", msg->str); g_string_free(msg, TRUE); purple_input_remove(pos->inpa); close(pos->fd); aim_sendmemblock(od, pos->conn, 0, 16, m, AIM_SENDMEMBLOCK_FLAG_ISHASH); g_free(pos); } static void straight_to_hell(gpointer data, gint source, const gchar *error_message) { struct pieceofcrap *pos = data; gchar *buf; gssize result; pos->fd = source; if (source < 0) { buf = g_strdup_printf(_("You may be disconnected shortly. " "If so, check %s for updates."), oscar_get_ui_info_string("website", PURPLE_WEBSITE)); purple_notify_warning(pos->gc, NULL, _("Unable to get a valid AIM login hash."), buf); g_free(buf); g_free(pos->modname); g_free(pos); return; } buf = g_strdup_printf("GET " AIMHASHDATA "?offset=%ld&len=%ld&modname=%s HTTP/1.0\n\n", pos->offset, pos->len, pos->modname ? pos->modname : ""); result = send(pos->fd, buf, strlen(buf), 0); if (result != strlen(buf)) { if (result < 0) purple_debug_error("oscar", "Error writing %" G_GSIZE_FORMAT " bytes to fetch AIM hash data: %s\n", strlen(buf), g_strerror(errno)); else purple_debug_error("oscar", "Tried to write %" G_GSIZE_FORMAT " bytes to fetch AIM hash data but " "instead wrote %" G_GSSIZE_FORMAT " bytes\n", strlen(buf), result); } g_free(buf); g_free(pos->modname); pos->inpa = purple_input_add(pos->fd, PURPLE_INPUT_READ, damn_you, pos); return; } /* size of icbmui.ocm, the largest module in AIM 3.5 */ #define AIM_MAX_FILE_SIZE 98304 static int purple_memrequest(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { va_list ap; struct pieceofcrap *pos; guint32 offset, len; char *modname; va_start(ap, fr); offset = va_arg(ap, guint32); len = va_arg(ap, guint32); modname = va_arg(ap, char *); va_end(ap); purple_debug_misc("oscar", "offset: %u, len: %u, file: %s\n", offset, len, (modname ? modname : "aim.exe")); if (len == 0) { purple_debug_misc("oscar", "len is 0, hashing NULL\n"); aim_sendmemblock(od, conn, offset, len, NULL, AIM_SENDMEMBLOCK_FLAG_ISREQUEST); return 1; } /* uncomment this when you're convinced it's right. remember, it's been wrong before. */ #if 0 if (offset > AIM_MAX_FILE_SIZE || len > AIM_MAX_FILE_SIZE) { char *buf; int i = 8; if (modname) i += strlen(modname); buf = g_malloc(i); i = 0; if (modname) { memcpy(buf, modname, strlen(modname)); i += strlen(modname); } buf[i++] = offset & 0xff; buf[i++] = (offset >> 8) & 0xff; buf[i++] = (offset >> 16) & 0xff; buf[i++] = (offset >> 24) & 0xff; buf[i++] = len & 0xff; buf[i++] = (len >> 8) & 0xff; buf[i++] = (len >> 16) & 0xff; buf[i++] = (len >> 24) & 0xff; purple_debug_misc("oscar", "len + offset is invalid, " "hashing request\n"); aim_sendmemblock(od, command->conn, offset, i, buf, AIM_SENDMEMBLOCK_FLAG_ISREQUEST); g_free(buf); return 1; } #endif pos = g_new0(struct pieceofcrap, 1); pos->gc = od->gc; pos->conn = conn; pos->offset = offset; pos->len = len; pos->modname = g_strdup(modname); if (purple_proxy_connect(pos->gc, pos->gc->account, "pidgin.im", 80, straight_to_hell, pos) == NULL) { char buf[256]; g_free(pos->modname); g_free(pos); g_snprintf(buf, sizeof(buf), _("You may be disconnected shortly. " "If so, check %s for updates."), oscar_get_ui_info_string("website", PURPLE_WEBSITE)); purple_notify_warning(pos->gc, NULL, _("Unable to get a valid login hash."), buf); } return 1; } int oscar_connect_to_bos(PurpleConnection *gc, OscarData *od, const char *host, guint16 port, guint8 *cookie, guint16 cookielen, const char *tls_certname) { PurpleAccount *account; FlapConnection *conn; account = purple_connection_get_account(gc); conn = flap_connection_new(od, SNAC_FAMILY_LOCATE); conn->cookielen = cookielen; conn->cookie = g_memdup(cookie, cookielen); /* * tls_certname is only set (and must be set if we get this far) if * SSL is enabled. */ if (tls_certname) { conn->gsc = purple_ssl_connect_with_ssl_cn(account, host, port, ssl_connection_established_cb, ssl_connection_error_cb, tls_certname, conn); } else { conn->connect_data = purple_proxy_connect(NULL, account, host, port, connection_established_cb, conn); } if (conn->gsc == NULL && conn->connect_data == NULL) { purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_NETWORK_ERROR, _("Unable to connect")); return 0; } od->default_port = port; purple_connection_update_progress(gc, _("Received authorization"), 3, OSCAR_CONNECT_STEPS); ck[3] = 0x64; return 1; } /** * Only used when connecting with the old-style BUCP login. */ static int purple_parse_auth_resp(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; PurpleAccount *account = purple_connection_get_account(gc); char *host; int port; int i; FlapConnection *newconn; va_list ap; struct aim_authresp_info *info; port = purple_account_get_int(account, "port", od->default_port); va_start(ap, fr); info = va_arg(ap, struct aim_authresp_info *); va_end(ap); purple_debug_info("oscar", "inside auth_resp (Username: %s)\n", info->bn); if (info->errorcode || !info->bosip || !info->cookielen || !info->cookie) { char buf[256]; switch (info->errorcode) { case 0x01: /* Unregistered username */ purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_INVALID_USERNAME, _("Username does not exist")); break; case 0x05: /* Incorrect password */ if (!purple_account_get_remember_password(account)) purple_account_set_password(account, NULL); purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_AUTHENTICATION_FAILED, _("Incorrect password")); break; case 0x11: /* Suspended account */ purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_AUTHENTICATION_FAILED, _("Your account is currently suspended")); break; case 0x02: case 0x14: /* service temporarily unavailable */ purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_NETWORK_ERROR, _("The AOL Instant Messenger service is temporarily unavailable.")); break; case 0x18: /* username connecting too frequently */ purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_OTHER_ERROR, _("Your username has been connecting and disconnecting too frequently. Wait ten minutes and try again. If you continue to try, you will need to wait even longer.")); break; case 0x1c: { /* client too old */ g_snprintf(buf, sizeof(buf), _("The client version you are using is too old. Please upgrade at %s"), oscar_get_ui_info_string("website", PURPLE_WEBSITE)); purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_OTHER_ERROR, buf); break; } case 0x1d: /* IP address connecting too frequently */ purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_OTHER_ERROR, _("Your IP address has been connecting and disconnecting too frequently. Wait a minute and try again. If you continue to try, you will need to wait even longer.")); break; default: purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_AUTHENTICATION_FAILED, _("Unknown reason")); break; } purple_debug_info("oscar", "Login Error Code 0x%04hx\n", info->errorcode); purple_debug_info("oscar", "Error URL: %s\n", info->errorurl ? info->errorurl : ""); return 1; } purple_debug_misc("oscar", "Reg status: %hu\n" "Email: %s\n" "BOSIP: %s\n", info->regstatus, info->email ? info->email : "null", info->bosip ? info->bosip : "null"); purple_debug_info("oscar", "Closing auth connection...\n"); flap_connection_schedule_destroy(conn, OSCAR_DISCONNECT_DONE, NULL); for (i = 0; i < strlen(info->bosip); i++) { if (info->bosip[i] == ':') { port = atoi(&(info->bosip[i+1])); break; } } host = g_strndup(info->bosip, i); newconn = flap_connection_new(od, SNAC_FAMILY_LOCATE); newconn->cookielen = info->cookielen; newconn->cookie = g_memdup(info->cookie, info->cookielen); if (od->use_ssl) { /* * This shouldn't be hardcoded to "bos.oscar.aol.com" except that * the server isn't sending us a name to use for comparing the * certificate common name. */ newconn->gsc = purple_ssl_connect_with_ssl_cn(account, host, port, ssl_connection_established_cb, ssl_connection_error_cb, "bos.oscar.aol.com", newconn); } else { newconn->connect_data = purple_proxy_connect(NULL, account, host, port, connection_established_cb, newconn); } g_free(host); if (newconn->gsc == NULL && newconn->connect_data == NULL) { purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_NETWORK_ERROR, _("Unable to connect")); return 0; } purple_connection_update_progress(gc, _("Received authorization"), 3, OSCAR_CONNECT_STEPS); ck[3] = 0x64; return 1; } /** * Only used when connecting with the old-style BUCP login. */ static void purple_parse_auth_securid_request_yes_cb(gpointer user_data, const char *msg) { PurpleConnection *gc = user_data; OscarData *od = purple_connection_get_protocol_data(gc); aim_auth_securid_send(od, msg); } /** * Only used when connecting with the old-style BUCP login. */ static void purple_parse_auth_securid_request_no_cb(gpointer user_data, const char *value) { PurpleConnection *gc = user_data; /* Disconnect */ purple_connection_error_reason(gc, PURPLE_CONNECTION_ERROR_AUTHENTICATION_FAILED, _("The SecurID key entered is invalid")); } /** * Only used when connecting with the old-style BUCP login. */ static int purple_parse_auth_securid_request(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; PurpleAccount *account = purple_connection_get_account(gc); gchar *primary; purple_debug_info("oscar", "Got SecurID request\n"); primary = g_strdup_printf("Enter the SecurID key for %s.", purple_account_get_username(account)); purple_request_input(gc, NULL, _("Enter SecurID"), primary, _("Enter the 6 digit number from the digital display."), FALSE, FALSE, NULL, _("_OK"), G_CALLBACK(purple_parse_auth_securid_request_yes_cb), _("_Cancel"), G_CALLBACK(purple_parse_auth_securid_request_no_cb), account, NULL, NULL, gc); g_free(primary); return 1; } /** * Only used when connecting with the old-style BUCP login. */ static int purple_parse_login(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc; PurpleAccount *account; ClientInfo aiminfo = CLIENTINFO_PURPLE_AIM; ClientInfo icqinfo = CLIENTINFO_PURPLE_ICQ; va_list ap; char *key; gboolean truncate_pass; gc = od->gc; account = purple_connection_get_account(gc); va_start(ap, fr); key = va_arg(ap, char *); truncate_pass = va_arg(ap, int); va_end(ap); aim_send_login(od, conn, purple_account_get_username(account), purple_connection_get_password(gc), truncate_pass, od->icq ? &icqinfo : &aiminfo, key, purple_account_get_bool(account, "allow_multiple_logins", OSCAR_DEFAULT_ALLOW_MULTIPLE_LOGINS)); purple_connection_update_progress(gc, _("Password sent"), 2, OSCAR_CONNECT_STEPS); ck[2] = 0x6c; return 1; } static int purple_handle_redirect(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; PurpleAccount *account = purple_connection_get_account(gc); char *host, *separator; int port; FlapConnection *newconn; va_list ap; struct aim_redirect_data *redir; va_start(ap, fr); redir = va_arg(ap, struct aim_redirect_data *); va_end(ap); port = od->default_port; separator = strchr(redir->ip, ':'); if (separator != NULL) { host = g_strndup(redir->ip, separator - redir->ip); port = atoi(separator + 1); } else host = g_strdup(redir->ip); /* * These FLAP servers advertise SSL (type "0x02"), but SSL connections to these hosts * die a painful death. iChat and Miranda, when using SSL, still do these in plaintext. */ if (redir->use_ssl && (redir->group == SNAC_FAMILY_ADMIN || redir->group == SNAC_FAMILY_BART)) { purple_debug_info("oscar", "Ignoring broken SSL for FLAP type 0x%04hx.\n", redir->group); redir->use_ssl = 0; } purple_debug_info("oscar", "Connecting to FLAP server %s:%d of type 0x%04hx%s\n", host, port, redir->group, od->use_ssl && !redir->use_ssl ? " without SSL, despite main stream encryption" : ""); newconn = flap_connection_new(od, redir->group); newconn->cookielen = redir->cookielen; newconn->cookie = g_memdup(redir->cookie, redir->cookielen); if (newconn->type == SNAC_FAMILY_CHAT) { struct chat_connection *cc; cc = g_new0(struct chat_connection, 1); cc->conn = newconn; cc->gc = gc; cc->name = g_strdup(redir->chat.room); cc->exchange = redir->chat.exchange; cc->instance = redir->chat.instance; cc->show = extract_name(redir->chat.room); newconn->new_conn_data = cc; purple_debug_info("oscar", "Connecting to chat room %s exchange %hu\n", cc->name, cc->exchange); } if (redir->use_ssl) { newconn->gsc = purple_ssl_connect_with_ssl_cn(account, host, port, ssl_connection_established_cb, ssl_connection_error_cb, redir->ssl_cert_cn, newconn); } else { newconn->connect_data = purple_proxy_connect(NULL, account, host, port, connection_established_cb, newconn); } if (newconn->gsc == NULL && newconn->connect_data == NULL) { flap_connection_schedule_destroy(newconn, OSCAR_DISCONNECT_COULD_NOT_CONNECT, _("Unable to initialize connection")); purple_debug_error("oscar", "Unable to connect to FLAP server " "of type 0x%04hx\n", redir->group); } g_free(host); return 1; } static int purple_parse_oncoming(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc; PurpleAccount *account; struct buddyinfo *bi; time_t time_idle = 0, signon = 0; int type = 0; gboolean buddy_is_away = FALSE; const char *status_id; va_list ap; aim_userinfo_t *info; char *message = NULL; char *itmsurl = NULL; char *tmp; const char *tmp2; gc = od->gc; account = purple_connection_get_account(gc); va_start(ap, fr); info = va_arg(ap, aim_userinfo_t *); va_end(ap); g_return_val_if_fail(info != NULL, 1); g_return_val_if_fail(info->bn != NULL, 1); /* * If this is an AIM buddy and their name has formatting, set their * server alias. */ if (!oscar_util_valid_name_icq(info->bn)) { gboolean bn_has_formatting = FALSE; char *c; for (c = info->bn; *c != '\0'; c++) { if (!islower(*c)) { bn_has_formatting = TRUE; break; } } serv_got_alias(gc, info->bn, bn_has_formatting ? info->bn : NULL); } if (info->present & AIM_USERINFO_PRESENT_FLAGS) { if (info->flags & AIM_FLAG_AWAY) buddy_is_away = TRUE; } if (info->present & AIM_USERINFO_PRESENT_ICQEXTSTATUS) { type = info->icqinfo.status; if (!(info->icqinfo.status & AIM_ICQ_STATE_CHAT) && (info->icqinfo.status != AIM_ICQ_STATE_NORMAL)) { buddy_is_away = TRUE; } } if (oscar_util_valid_name_icq(info->bn)) { if (type & AIM_ICQ_STATE_CHAT) status_id = OSCAR_STATUS_ID_FREE4CHAT; else if (type & AIM_ICQ_STATE_DND) status_id = OSCAR_STATUS_ID_DND; else if (type & AIM_ICQ_STATE_OUT) status_id = OSCAR_STATUS_ID_NA; else if (type & AIM_ICQ_STATE_BUSY) status_id = OSCAR_STATUS_ID_OCCUPIED; else if (type & AIM_ICQ_STATE_AWAY) status_id = OSCAR_STATUS_ID_AWAY; else if (type & AIM_ICQ_STATE_INVISIBLE) status_id = OSCAR_STATUS_ID_INVISIBLE; else if (type & AIM_ICQ_STATE_EVIL) status_id = OSCAR_STATUS_ID_EVIL; else if (type & AIM_ICQ_STATE_DEPRESSION) status_id = OSCAR_STATUS_ID_DEPRESSION; else if (type & AIM_ICQ_STATE_ATHOME) status_id = OSCAR_STATUS_ID_ATHOME; else if (type & AIM_ICQ_STATE_ATWORK) status_id = OSCAR_STATUS_ID_ATWORK; else if (type & AIM_ICQ_STATE_LUNCH) status_id = OSCAR_STATUS_ID_LUNCH; else status_id = OSCAR_STATUS_ID_AVAILABLE; } else { if (type & AIM_ICQ_STATE_INVISIBLE) status_id = OSCAR_STATUS_ID_INVISIBLE; else if (buddy_is_away) status_id = OSCAR_STATUS_ID_AWAY; else status_id = OSCAR_STATUS_ID_AVAILABLE; } if (info->flags & AIM_FLAG_WIRELESS) { purple_prpl_got_user_status(account, info->bn, OSCAR_STATUS_ID_MOBILE, NULL); } else { purple_prpl_got_user_status_deactive(account, info->bn, OSCAR_STATUS_ID_MOBILE); } if (info->status != NULL && info->status[0] != '\0') /* Grab the available message */ message = oscar_encoding_to_utf8(account, info->status_encoding, info->status, info->status_len); tmp2 = tmp = (message ? purple_markup_escape_text(message, -1) : NULL); if (strcmp(status_id, OSCAR_STATUS_ID_AVAILABLE) == 0) { if (info->itmsurl_encoding && info->itmsurl && info->itmsurl_len) /* Grab the iTunes Music Store URL */ itmsurl = oscar_encoding_to_utf8(account, info->itmsurl_encoding, info->itmsurl, info->itmsurl_len); if (tmp2 == NULL && itmsurl != NULL) /* * The message can't be NULL because NULL means it was the * last attribute, so the itmsurl would get ignored below. */ tmp2 = ""; purple_prpl_got_user_status(account, info->bn, status_id, "message", tmp2, "itmsurl", itmsurl, NULL); } else purple_prpl_got_user_status(account, info->bn, status_id, "message", tmp2, NULL); g_free(tmp); g_free(message); g_free(itmsurl); /* Login time stuff */ if (info->present & AIM_USERINFO_PRESENT_ONLINESINCE) signon = info->onlinesince; else if (info->present & AIM_USERINFO_PRESENT_SESSIONLEN) signon = time(NULL) - info->sessionlen; purple_prpl_got_user_login_time(account, info->bn, signon); /* Idle time stuff */ /* info->idletime is the number of minutes that this user has been idle */ if (info->present & AIM_USERINFO_PRESENT_IDLE) time_idle = time(NULL) - info->idletime * 60; if (time_idle > 0) purple_prpl_got_user_idle(account, info->bn, TRUE, time_idle); else purple_prpl_got_user_idle(account, info->bn, FALSE, 0); /* Server stored icon stuff */ bi = g_hash_table_lookup(od->buddyinfo, purple_normalize(account, info->bn)); if (!bi) { bi = g_new0(struct buddyinfo, 1); g_hash_table_insert(od->buddyinfo, g_strdup(purple_normalize(account, info->bn)), bi); } bi->typingnot = FALSE; bi->ico_informed = FALSE; bi->ipaddr = info->icqinfo.ipaddr; if (info->iconcsumlen) { const char *saved_b16 = NULL; char *b16 = NULL; PurpleBuddy *b = NULL; b16 = purple_base16_encode(info->iconcsum, info->iconcsumlen); b = purple_find_buddy(account, info->bn); if (b != NULL) saved_b16 = purple_buddy_icons_get_checksum_for_user(b); if (!b16 || !saved_b16 || strcmp(b16, saved_b16)) { /* Invalidate the old icon for this user */ purple_buddy_icons_set_for_user(account, info->bn, NULL, 0, NULL); /* Fetch the new icon (if we're not already doing so) */ if (g_slist_find_custom(od->requesticon, info->bn, (GCompareFunc)oscar_util_name_compare) == NULL) { od->requesticon = g_slist_prepend(od->requesticon, g_strdup(purple_normalize(account, info->bn))); purple_icons_fetch(gc); } } g_free(b16); } return 1; } static void purple_check_comment(OscarData *od, const char *str) { if ((str == NULL) || strcmp(str, (const char *)ck)) aim_locate_setcaps(od, purple_caps); else aim_locate_setcaps(od, purple_caps | OSCAR_CAPABILITY_SECUREIM); } static int purple_parse_offgoing(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; PurpleAccount *account = purple_connection_get_account(gc); va_list ap; aim_userinfo_t *info; va_start(ap, fr); info = va_arg(ap, aim_userinfo_t *); va_end(ap); purple_prpl_got_user_status(account, info->bn, OSCAR_STATUS_ID_OFFLINE, NULL); purple_prpl_got_user_status_deactive(account, info->bn, OSCAR_STATUS_ID_MOBILE); g_hash_table_remove(od->buddyinfo, purple_normalize(gc->account, info->bn)); return 1; } static int incomingim_chan1(OscarData *od, FlapConnection *conn, aim_userinfo_t *userinfo, struct aim_incomingim_ch1_args *args) { PurpleConnection *gc = od->gc; PurpleAccount *account = purple_connection_get_account(gc); PurpleMessageFlags flags = 0; struct buddyinfo *bi; PurpleStoredImage *img; GString *message; gchar *tmp; aim_mpmsg_section_t *curpart; const char *start, *end; GData *attribs; purple_debug_misc("oscar", "Received IM from %s with %d parts\n", userinfo->bn, args->mpmsg.numparts); if (args->mpmsg.numparts == 0) return 1; bi = g_hash_table_lookup(od->buddyinfo, purple_normalize(account, userinfo->bn)); if (!bi) { bi = g_new0(struct buddyinfo, 1); g_hash_table_insert(od->buddyinfo, g_strdup(purple_normalize(account, userinfo->bn)), bi); } if (args->icbmflags & AIM_IMFLAGS_AWAY) flags |= PURPLE_MESSAGE_AUTO_RESP; if (args->icbmflags & AIM_IMFLAGS_TYPINGNOT) bi->typingnot = TRUE; else bi->typingnot = FALSE; if ((args->icbmflags & AIM_IMFLAGS_HASICON) && (args->iconlen) && (args->iconsum) && (args->iconstamp)) { purple_debug_misc("oscar", "%s has an icon\n", userinfo->bn); if ((args->iconlen != bi->ico_len) || (args->iconsum != bi->ico_csum) || (args->iconstamp != bi->ico_time)) { bi->ico_need = TRUE; bi->ico_len = args->iconlen; bi->ico_csum = args->iconsum; bi->ico_time = args->iconstamp; } } img = purple_buddy_icons_find_account_icon(account); if ((img != NULL) && (args->icbmflags & AIM_IMFLAGS_BUDDYREQ) && !bi->ico_sent && bi->ico_informed) { gconstpointer data = purple_imgstore_get_data(img); size_t len = purple_imgstore_get_size(img); purple_debug_info("oscar", "Sending buddy icon to %s (%" G_GSIZE_FORMAT " bytes)\n", userinfo->bn, len); aim_im_sendch2_icon(od, userinfo->bn, data, len, purple_buddy_icons_get_account_icon_timestamp(account), aimutil_iconsum(data, len)); } purple_imgstore_unref(img); message = g_string_new(""); curpart = args->mpmsg.parts; while (curpart != NULL) { tmp = purple_plugin_oscar_decode_im_part(account, userinfo->bn, curpart->charset, curpart->charsubset, curpart->data, curpart->datalen); if (tmp != NULL) { g_string_append(message, tmp); g_free(tmp); } curpart = curpart->next; } tmp = g_string_free(message, FALSE); /* * Convert iChat color tags to normal font tags. */ if (purple_markup_find_tag("body", tmp, &start, &end, &attribs)) { int len; char *tmp2, *body; const char *ichattextcolor, *ichatballooncolor; const char *slash_body_start, *slash_body_end = NULL; /* </body> */ GData *unused; /* * Find the ending </body> so we can strip off the outer <html/> * and <body/> */ if (purple_markup_find_tag("/body", end + 1, &slash_body_start, &slash_body_end, &unused)) { body = g_strndup(start, slash_body_end - start + 1); g_datalist_clear(&unused); } else { purple_debug_warning("oscar", "Broken message contains <body> but not </body>!\n"); /* Take everything after <body> */ body = g_strdup(start); } ichattextcolor = g_datalist_get_data(&attribs, "ichattextcolor"); if (ichattextcolor != NULL) { tmp2 = g_strdup_printf("<font color=\"%s\">%s</font>", ichattextcolor, body); g_free(body); body = tmp2; } ichatballooncolor = g_datalist_get_data(&attribs, "ichatballooncolor"); if (ichatballooncolor != NULL) { tmp2 = g_strdup_printf("<font back=\"%s\">%s</font>", ichatballooncolor, body); g_free(body); body = tmp2; } g_datalist_clear(&attribs); len = start - tmp; tmp2 = g_strdup_printf("%.*s%s%s", len, tmp, body, slash_body_end ? slash_body_end + 1: "</body>"); g_free(tmp); g_free(body); tmp = tmp2; } /* * Are there <html/> surrounding tags? If so, strip them out, too. */ if (purple_markup_find_tag("html", tmp, &start, &end, &attribs)) { gchar *tmp2; int len; g_datalist_clear(&attribs); len = start - tmp; tmp2 = g_strdup_printf("%.*s%s", len, tmp, end + 1); g_free(tmp); tmp = tmp2; } if (purple_markup_find_tag("/html", tmp, &start, &end, &attribs)) { gchar *tmp2; int len; g_datalist_clear(&attribs); len = start - tmp; tmp2 = g_strdup_printf("%.*s%s", len, tmp, end + 1); g_free(tmp); tmp = tmp2; } serv_got_im(gc, userinfo->bn, tmp, flags, (args->icbmflags & AIM_IMFLAGS_OFFLINE) ? args->timestamp : time(NULL)); g_free(tmp); return 1; } static int incomingim_chan2(OscarData *od, FlapConnection *conn, aim_userinfo_t *userinfo, IcbmArgsCh2 *args) { PurpleConnection *gc; PurpleAccount *account; PurpleMessageFlags flags = 0; char *message = NULL; g_return_val_if_fail(od != NULL, 0); g_return_val_if_fail(od->gc != NULL, 0); gc = od->gc; account = purple_connection_get_account(gc); od = purple_connection_get_protocol_data(gc); if (args == NULL) return 0; purple_debug_misc("oscar", "Incoming rendezvous message of type %" G_GUINT64_FORMAT ", user %s, status %hu\n", args->type, userinfo->bn, args->status); if (args->msg != NULL) { if (args->encoding != NULL) { char *encoding = NULL; encoding = oscar_encoding_extract(args->encoding); message = oscar_encoding_to_utf8(account, encoding, args->msg, args->msglen); g_free(encoding); } else { if (g_utf8_validate(args->msg, args->msglen, NULL)) message = g_strdup(args->msg); } } if (args->type & OSCAR_CAPABILITY_CHAT) { char *encoding, *utf8name, *tmp; GHashTable *components; if (!args->info.chat.roominfo.name || !args->info.chat.roominfo.exchange) { g_free(message); return 1; } encoding = args->encoding ? oscar_encoding_extract(args->encoding) : NULL; utf8name = oscar_encoding_to_utf8(account, encoding, args->info.chat.roominfo.name, args->info.chat.roominfo.namelen); g_free(encoding); tmp = extract_name(utf8name); if (tmp != NULL) { g_free(utf8name); utf8name = tmp; } components = g_hash_table_new_full(g_str_hash, g_str_equal, g_free, g_free); g_hash_table_replace(components, g_strdup("room"), utf8name); g_hash_table_replace(components, g_strdup("exchange"), g_strdup_printf("%d", args->info.chat.roominfo.exchange)); serv_got_chat_invite(gc, utf8name, userinfo->bn, message, components); } else if ((args->type & OSCAR_CAPABILITY_SENDFILE) || (args->type & OSCAR_CAPABILITY_DIRECTIM)) { if (args->status == AIM_RENDEZVOUS_PROPOSE) { peer_connection_got_proposition(od, userinfo->bn, message, args); } else if (args->status == AIM_RENDEZVOUS_CANCEL) { /* The other user canceled a peer request */ PeerConnection *conn; conn = peer_connection_find_by_cookie(od, userinfo->bn, args->cookie); /* * If conn is NULL it means we haven't tried to create * a connection with that user. They may be trying to * do something malicious. */ if (conn != NULL) { peer_connection_destroy(conn, OSCAR_DISCONNECT_REMOTE_CLOSED, NULL); } } else if (args->status == AIM_RENDEZVOUS_CONNECTED) { /* * Remote user has accepted our peer request. If we * wanted to we could look up the PeerConnection using * args->cookie, but we don't need to do anything here. */ } } else if (args->type & OSCAR_CAPABILITY_GETFILE) { } else if (args->type & OSCAR_CAPABILITY_TALK) { } else if (args->type & OSCAR_CAPABILITY_BUDDYICON) { purple_buddy_icons_set_for_user(account, userinfo->bn, g_memdup(args->info.icon.icon, args->info.icon.length), args->info.icon.length, NULL); } else if (args->type & OSCAR_CAPABILITY_ICQSERVERRELAY) { purple_debug_info("oscar", "Got an ICQ Server Relay message of " "type %d\n", args->info.rtfmsg.msgtype); if (args->info.rtfmsg.msgtype == 1) { if (args->info.rtfmsg.rtfmsg != NULL) { char *rtfmsg = NULL; if (args->encoding != NULL) { char *encoding = oscar_encoding_extract(args->encoding); rtfmsg = oscar_encoding_to_utf8(account, encoding, args->info.rtfmsg.rtfmsg, strlen(args->info.rtfmsg.rtfmsg)); g_free(encoding); } else { if (g_utf8_validate(args->info.rtfmsg.rtfmsg, strlen(args->info.rtfmsg.rtfmsg), NULL)) rtfmsg = g_strdup(args->info.rtfmsg.rtfmsg); } if (rtfmsg) { serv_got_im(gc, userinfo->bn, rtfmsg, flags, time(NULL)); g_free(rtfmsg); } } } else if (args->info.rtfmsg.msgtype == 26) purple_debug_info("oscar", "Sending X-Status Reply\n"); icq_relay_xstatus(od, userinfo->bn, args->cookie); } else { purple_debug_error("oscar", "Unknown request class %" G_GUINT64_FORMAT "\n", args->type); } g_free(message); return 1; } /* * Authorization Functions * Most of these are callbacks from dialogs. They're used by both * methods of authorization (SSI and old-school channel 4 ICBM) */ /* When you ask other people for authorization */ static void purple_auth_request(struct name_data *data, char *msg) { PurpleConnection *gc; OscarData *od; PurpleAccount *account; PurpleBuddy *buddy; PurpleGroup *group; const char *bname, *gname; gc = data->gc; od = purple_connection_get_protocol_data(gc); account = purple_connection_get_account(gc); buddy = purple_find_buddy(account, data->name); if (buddy != NULL) group = purple_buddy_get_group(buddy); else group = NULL; if (group != NULL) { bname = purple_buddy_get_name(buddy); gname = purple_group_get_name(group); purple_debug_info("oscar", "ssi: adding buddy %s to group %s\n", bname, gname); aim_ssi_sendauthrequest(od, data->name, msg ? msg : _("Please authorize me so I can add you to my buddy list.")); if (!aim_ssi_itemlist_finditem(od->ssi.local, gname, bname, AIM_SSI_TYPE_BUDDY)) { aim_ssi_addbuddy(od, bname, gname, NULL, purple_buddy_get_alias_only(buddy), NULL, NULL, TRUE); /* Mobile users should always be online */ if (bname[0] == '+') { purple_prpl_got_user_status(account, purple_buddy_get_name(buddy), OSCAR_STATUS_ID_AVAILABLE, NULL); purple_prpl_got_user_status(account, purple_buddy_get_name(buddy), OSCAR_STATUS_ID_MOBILE, NULL); } } } oscar_free_name_data(data); } static void purple_auth_sendrequest(PurpleConnection *gc, const char *name) { struct name_data *data; data = g_new0(struct name_data, 1); data->gc = gc; data->name = g_strdup(name); purple_request_input(data->gc, NULL, _("Authorization Request Message:"), NULL, _("Please authorize me!"), TRUE, FALSE, NULL, _("_OK"), G_CALLBACK(purple_auth_request), _("_Cancel"), G_CALLBACK(oscar_free_name_data), purple_connection_get_account(gc), name, NULL, data); } static void purple_auth_sendrequest_menu(PurpleBlistNode *node, gpointer ignored) { PurpleBuddy *buddy; PurpleConnection *gc; g_return_if_fail(PURPLE_BLIST_NODE_IS_BUDDY(node)); buddy = (PurpleBuddy *) node; gc = purple_account_get_connection(purple_buddy_get_account(buddy)); purple_auth_sendrequest(gc, purple_buddy_get_name(buddy)); } /* When other people ask you for authorization */ static void purple_auth_grant(gpointer cbdata) { struct name_data *data = cbdata; PurpleConnection *gc = data->gc; OscarData *od = purple_connection_get_protocol_data(gc); aim_ssi_sendauthreply(od, data->name, 0x01, NULL); oscar_free_name_data(data); } /* When other people ask you for authorization */ static void purple_auth_dontgrant(struct name_data *data, char *msg) { PurpleConnection *gc = data->gc; OscarData *od = purple_connection_get_protocol_data(gc); aim_ssi_sendauthreply(od, data->name, 0x00, msg ? msg : _("No reason given.")); } static void purple_auth_dontgrant_msgprompt(gpointer cbdata) { struct name_data *data = cbdata; purple_request_input(data->gc, NULL, _("Authorization Denied Message:"), NULL, _("No reason given."), TRUE, FALSE, NULL, _("_OK"), G_CALLBACK(purple_auth_dontgrant), _("_Cancel"), G_CALLBACK(oscar_free_name_data), purple_connection_get_account(data->gc), data->name, NULL, data); } /* When someone sends you buddies */ static void purple_icq_buddyadd(struct name_data *data) { PurpleConnection *gc = data->gc; purple_blist_request_add_buddy(purple_connection_get_account(gc), data->name, NULL, data->nick); oscar_free_name_data(data); } static int incomingim_chan4(OscarData *od, FlapConnection *conn, aim_userinfo_t *userinfo, struct aim_incomingim_ch4_args *args, time_t t) { PurpleConnection *gc = od->gc; PurpleAccount *account = purple_connection_get_account(gc); gchar **msg1, **msg2; int i, numtoks; if (!args->type || !args->msg || !args->uin) return 1; purple_debug_info("oscar", "Received a channel 4 message of type 0x%02hx.\n", args->type); /* * Split up the message at the delimeter character, then convert each * string to UTF-8. Unless, of course, this is a type 1 message. If * this is a type 1 message, then the delimiter 0xfe could be a valid * character in whatever encoding the message was sent in. Type 1 * messages are always made up of only one part, so we can easily account * for this suck-ass part of the protocol by splitting the string into at * most 1 baby string. */ msg1 = g_strsplit(args->msg, "\376", (args->type == 0x01 ? 1 : 0)); for (numtoks=0; msg1[numtoks]; numtoks++); msg2 = (gchar **)g_malloc((numtoks+1)*sizeof(gchar *)); for (i=0; msg1[i]; i++) { gchar *uin = g_strdup_printf("%u", args->uin); purple_str_strip_char(msg1[i], '\r'); /* TODO: Should use an encoding other than ASCII? */ msg2[i] = purple_plugin_oscar_decode_im_part(account, uin, AIM_CHARSET_ASCII, 0x0000, msg1[i], strlen(msg1[i])); g_free(uin); } msg2[i] = NULL; switch (args->type) { case 0x01: { /* MacICQ message or basic offline message */ if (i >= 1) { gchar *uin = g_strdup_printf("%u", args->uin); gchar *tmp; /* If the message came from an ICQ user then escape any HTML */ tmp = g_markup_escape_text(msg2[0], -1); if (t) { /* This is an offline message */ /* The timestamp is UTC-ish, so we need to get the offset */ #ifdef HAVE_TM_GMTOFF time_t now; struct tm *tm; now = time(NULL); tm = localtime(&now); t += tm->tm_gmtoff; #else # ifdef HAVE_TIMEZONE tzset(); t -= timezone; # endif #endif serv_got_im(gc, uin, tmp, 0, t); } else { /* This is a message from MacICQ/Miranda */ serv_got_im(gc, uin, tmp, 0, time(NULL)); } g_free(uin); g_free(tmp); } } break; case 0x04: { /* Someone sent you a URL */ if (i >= 2) { if (msg2[1] != NULL) { gchar *uin = g_strdup_printf("%u", args->uin); gchar *message = g_strdup_printf("<A HREF=\"%s\">%s</A>", msg2[1], (msg2[0] && msg2[0][0]) ? msg2[0] : msg2[1]); serv_got_im(gc, uin, message, 0, time(NULL)); g_free(uin); g_free(message); } } } break; case 0x06: { /* Someone requested authorization */ if (i >= 6) { struct name_data *data = g_new(struct name_data, 1); gchar *bn = g_strdup_printf("%u", args->uin); gchar *reason = NULL; if (msg2[5] != NULL) reason = purple_plugin_oscar_decode_im_part(account, bn, AIM_CHARSET_LATIN_1, 0x0000, msg2[5], strlen(msg2[5])); purple_debug_info("oscar", "Received an authorization request from UIN %u\n", args->uin); data->gc = gc; data->name = bn; data->nick = NULL; purple_account_request_authorization(account, bn, NULL, NULL, reason, purple_find_buddy(account, bn) != NULL, purple_auth_grant, purple_auth_dontgrant_msgprompt, data); g_free(reason); } } break; case 0x07: { /* Someone has denied you authorization */ if (i >= 1) { gchar *dialog_msg = g_strdup_printf(_("The user %u has denied your request to add them to your buddy list for the following reason:\n%s"), args->uin, msg2[0] ? msg2[0] : _("No reason given.")); purple_notify_info(gc, NULL, _("ICQ authorization denied."), dialog_msg); g_free(dialog_msg); } } break; case 0x08: { /* Someone has granted you authorization */ gchar *dialog_msg = g_strdup_printf(_("The user %u has granted your request to add them to your buddy list."), args->uin); purple_notify_info(gc, NULL, "ICQ authorization accepted.", dialog_msg); g_free(dialog_msg); } break; case 0x09: { /* Message from the Godly ICQ server itself, I think */ if (i >= 5) { gchar *dialog_msg = g_strdup_printf(_("You have received a special message\n\nFrom: %s [%s]\n%s"), msg2[0], msg2[3], msg2[5]); purple_notify_info(gc, NULL, "ICQ Server Message", dialog_msg); g_free(dialog_msg); } } break; case 0x0d: { /* Someone has sent you a pager message from http://www.icq.com/your_uin */ if (i >= 6) { gchar *dialog_msg = g_strdup_printf(_("You have received an ICQ page\n\nFrom: %s [%s]\n%s"), msg2[0], msg2[3], msg2[5]); purple_notify_info(gc, NULL, "ICQ Page", dialog_msg); g_free(dialog_msg); } } break; case 0x0e: { /* Someone has emailed you at your_uin@pager.icq.com */ if (i >= 6) { gchar *dialog_msg = g_strdup_printf(_("You have received an ICQ email from %s [%s]\n\nMessage is:\n%s"), msg2[0], msg2[3], msg2[5]); purple_notify_info(gc, NULL, "ICQ Email", dialog_msg); g_free(dialog_msg); } } break; case 0x12: { /* Ack for authorizing/denying someone. Or possibly an ack for sending any system notice */ /* Someone added you to their buddy list? */ } break; case 0x13: { /* Someone has sent you some ICQ buddies */ guint i, num; gchar **text; text = g_strsplit(args->msg, "\376", 0); if (text) { /* Read the number of contacts that we were sent */ errno = 0; num = text[0] ? strtoul(text[0], NULL, 10) : 0; if (num > 0 && errno == 0) { for (i=0; i<num; i++) { struct name_data *data; gchar *message; if (!text[i*2 + 1] || !text[i*2 + 2]) { /* We're missing the contact name or nickname. Bail out. */ gchar *tmp = g_strescape(args->msg, NULL); purple_debug_error("oscar", "Unknown syntax parsing " "ICQ buddies. args->msg=%s\n", tmp); g_free(tmp); break; } message = g_strdup_printf(_("ICQ user %u has sent you a buddy: %s (%s)"), args->uin, text[i*2+2], text[i*2+1]); data = g_new(struct name_data, 1); data->gc = gc; data->name = g_strdup(text[i*2+1]); data->nick = g_strdup(text[i*2+2]); purple_request_action(gc, NULL, message, _("Do you want to add this buddy " "to your buddy list?"), PURPLE_DEFAULT_ACTION_NONE, purple_connection_get_account(gc), data->name, NULL, data, 2, _("_Add"), G_CALLBACK(purple_icq_buddyadd), _("_Decline"), G_CALLBACK(oscar_free_name_data)); g_free(message); } } else { gchar *tmp = g_strescape(args->msg, NULL); purple_debug_error("oscar", "Unknown syntax parsing " "ICQ buddies. args->msg=%s\n", tmp); g_free(tmp); } g_strfreev(text); } } break; case 0x1a: { /* Handle SMS or someone has sent you a greeting card or requested buddies? */ ByteStream qbs; int smstype, taglen, smslen; char *tagstr = NULL, *smsmsg = NULL; xmlnode *xmlroot = NULL, *xmltmp = NULL; gchar *uin = NULL, *message = NULL; /* From libicq2000-0.3.2/src/ICQ.cpp */ byte_stream_init(&qbs, (guint8 *)args->msg, args->msglen); byte_stream_advance(&qbs, 21); /* expected: 01 00 00 20 00 0e 28 f6 00 11 e7 d3 11 bc f3 00 04 ac 96 9d c2 | 00 00 | 06 00 00 00 | 49 43 51 53 43 53 ...*/ /* unexpected: 00 00 26 00 81 1a 18 bc 0e 6c 18 47 a5 91 6f 18 dc c7 6f 1a | 00 00 | 0d 00 00 00 | 49 43 51 57 65 62 4d 65 73 73 61 67 65 ... */ smstype = byte_stream_getle16(&qbs); if (smstype != 0) break; taglen = byte_stream_getle32(&qbs); tagstr = byte_stream_getstr(&qbs, taglen); if (tagstr == NULL) break; byte_stream_advance(&qbs, 3); byte_stream_advance(&qbs, 4); smslen = byte_stream_getle32(&qbs); smsmsg = byte_stream_getstr(&qbs, smslen); /* Check if this is an SMS being sent from server */ if ((smstype == 0) && (!strcmp(tagstr, "ICQSMS")) && (smsmsg != NULL)) { xmlroot = xmlnode_from_str(smsmsg, -1); if (xmlroot != NULL) { xmltmp = xmlnode_get_child(xmlroot, "sender"); if (xmltmp != NULL) uin = xmlnode_get_data(xmltmp); xmltmp = xmlnode_get_child(xmlroot, "text"); if (xmltmp != NULL) message = xmlnode_get_data(xmltmp); if ((uin != NULL) && (message != NULL)) serv_got_im(gc, uin, message, 0, time(NULL)); g_free(uin); g_free(message); xmlnode_free(xmlroot); } } g_free(tagstr); g_free(smsmsg); } break; default: { purple_debug_info("oscar", "Received a channel 4 message of unknown type " "(type 0x%02hhx).\n", args->type); } break; } g_strfreev(msg1); g_strfreev(msg2); return 1; } static int purple_parse_incoming_im(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { guint16 channel; int ret = 0; aim_userinfo_t *userinfo; va_list ap; va_start(ap, fr); channel = (guint16)va_arg(ap, unsigned int); userinfo = va_arg(ap, aim_userinfo_t *); switch (channel) { case 1: { /* standard message */ struct aim_incomingim_ch1_args *args; args = va_arg(ap, struct aim_incomingim_ch1_args *); ret = incomingim_chan1(od, conn, userinfo, args); } break; case 2: { /* rendezvous */ IcbmArgsCh2 *args; args = va_arg(ap, IcbmArgsCh2 *); ret = incomingim_chan2(od, conn, userinfo, args); } break; case 4: { /* ICQ */ struct aim_incomingim_ch4_args *args; args = va_arg(ap, struct aim_incomingim_ch4_args *); ret = incomingim_chan4(od, conn, userinfo, args, 0); } break; default: { purple_debug_warning("oscar", "ICBM received on unsupported channel (channel " "0x%04hx).", channel); } break; } va_end(ap); return ret; } static int purple_parse_misses(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; PurpleAccount *account = purple_connection_get_account(gc); char *buf; va_list ap; guint16 chan, nummissed, reason; aim_userinfo_t *userinfo; va_start(ap, fr); chan = (guint16)va_arg(ap, unsigned int); userinfo = va_arg(ap, aim_userinfo_t *); nummissed = (guint16)va_arg(ap, unsigned int); reason = (guint16)va_arg(ap, unsigned int); va_end(ap); switch(reason) { case 0: /* Invalid (0) */ buf = g_strdup_printf( dngettext(PACKAGE, "You missed %hu message from %s because it was invalid.", "You missed %hu messages from %s because they were invalid.", nummissed), nummissed, userinfo->bn); break; case 1: /* Message too large */ buf = g_strdup_printf( dngettext(PACKAGE, "You missed %hu message from %s because it was too large.", "You missed %hu messages from %s because they were too large.", nummissed), nummissed, userinfo->bn); break; case 2: /* Rate exceeded */ buf = g_strdup_printf( dngettext(PACKAGE, "You missed %hu message from %s because the rate limit has been exceeded.", "You missed %hu messages from %s because the rate limit has been exceeded.", nummissed), nummissed, userinfo->bn); break; case 3: /* Evil Sender */ buf = g_strdup_printf( dngettext(PACKAGE, "You missed %hu message from %s because his/her warning level is too high.", "You missed %hu messages from %s because his/her warning level is too high.", nummissed), nummissed, userinfo->bn); break; case 4: /* Evil Receiver */ buf = g_strdup_printf( dngettext(PACKAGE, "You missed %hu message from %s because your warning level is too high.", "You missed %hu messages from %s because your warning level is too high.", nummissed), nummissed, userinfo->bn); break; default: buf = g_strdup_printf( dngettext(PACKAGE, "You missed %hu message from %s for an unknown reason.", "You missed %hu messages from %s for an unknown reason.", nummissed), nummissed, userinfo->bn); break; } if (!purple_conv_present_error(userinfo->bn, account, buf)) purple_notify_error(od->gc, NULL, buf, NULL); g_free(buf); return 1; } static int purple_parse_clientauto_ch2(OscarData *od, const char *who, guint16 reason, const guchar *cookie) { if (reason == 0x0003) { /* Rendezvous was refused. */ PeerConnection *conn; conn = peer_connection_find_by_cookie(od, who, cookie); if (conn == NULL) { purple_debug_info("oscar", "Received a rendezvous cancel message " "for a nonexistant connection from %s.\n", who); } else { peer_connection_destroy(conn, OSCAR_DISCONNECT_REMOTE_REFUSED, NULL); } } else { purple_debug_warning("oscar", "Received an unknown rendezvous " "message from %s. Type 0x%04hx\n", who, reason); } return 0; } static int purple_parse_clientauto_ch4(OscarData *od, char *who, guint16 reason, guint32 state, char *msg) { PurpleConnection *gc = od->gc; switch(reason) { case 0x0003: { /* Reply from an ICQ status message request */ char *statusmsg, **splitmsg; PurpleNotifyUserInfo *user_info; /* Split at (carriage return/newline)'s, then rejoin later with BRs between. */ statusmsg = oscar_icqstatus(state); splitmsg = g_strsplit(msg, "\r\n", 0); user_info = purple_notify_user_info_new(); purple_notify_user_info_add_pair(user_info, _("UIN"), who); purple_notify_user_info_add_pair(user_info, _("Status"), statusmsg); purple_notify_user_info_add_section_break(user_info); purple_notify_user_info_add_pair(user_info, NULL, g_strjoinv("<BR>", splitmsg)); g_free(statusmsg); g_strfreev(splitmsg); purple_notify_userinfo(gc, who, user_info, NULL, NULL); purple_notify_user_info_destroy(user_info); } break; case 0x0006: { /* Reply from an ICQ status message request */ char *statusmsg, **splitmsg; PurpleNotifyUserInfo *user_info; /* Split at (carriage return/newline)'s, then rejoin later with BRs between. */ statusmsg = oscar_icqstatus(state); splitmsg = g_strsplit(msg, "\r\n", 0); user_info = purple_notify_user_info_new(); purple_notify_user_info_add_pair(user_info, _("UIN"), who); purple_notify_user_info_add_pair(user_info, _("Status"), statusmsg); purple_notify_user_info_add_section_break(user_info); purple_notify_user_info_add_pair(user_info, NULL, g_strjoinv("<BR>", splitmsg)); g_free(statusmsg); g_strfreev(splitmsg); purple_notify_userinfo(gc, who, user_info, NULL, NULL); purple_notify_user_info_destroy(user_info); } break; default: { purple_debug_warning("oscar", "Received an unknown client auto-response from %s. " "Type 0x%04hx\n", who, reason); } break; } /* end of switch */ return 0; } static int purple_parse_clientauto(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { va_list ap; guint16 chan, reason; char *who; va_start(ap, fr); chan = (guint16)va_arg(ap, unsigned int); who = va_arg(ap, char *); reason = (guint16)va_arg(ap, unsigned int); if (chan == 0x0002) { /* File transfer declined */ guchar *cookie = va_arg(ap, guchar *); return purple_parse_clientauto_ch2(od, who, reason, cookie); } else if (chan == 0x0004) { /* ICQ message */ guint32 state = 0; char *msg = NULL; if (reason == 0x0003) { state = va_arg(ap, guint32); msg = va_arg(ap, char *); } return purple_parse_clientauto_ch4(od, who, reason, state, msg); } va_end(ap); return 1; } static int purple_parse_genericerr(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { va_list ap; guint16 reason; va_start(ap, fr); reason = (guint16) va_arg(ap, unsigned int); va_end(ap); purple_debug_error("oscar", "snac threw error (reason 0x%04hx: %s)\n", reason, (reason < msgerrreasonlen) ? msgerrreason[reason] : "unknown"); return 1; } static int purple_parse_msgerr(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; #ifdef TODOFT OscarData *od = purple_connection_get_protocol_data(gc); PurpleXfer *xfer; #endif va_list ap; guint16 reason, errcode; char *data, *reason_str, *buf; va_start(ap, fr); reason = (guint16)va_arg(ap, unsigned int); errcode = (guint16)va_arg(ap, unsigned int); data = va_arg(ap, char *); va_end(ap); purple_debug_error("oscar", "Message error with data %s and reason %hu and errcode %hu\n", (data != NULL ? data : ""), reason, errcode); if ((data == NULL) || (*data == '\0')) /* We can't do anything if data is empty */ return 1; #ifdef TODOFT /* If this was a file transfer request, data is a cookie */ if ((xfer = oscar_find_xfer_by_cookie(od->file_transfers, data))) { purple_xfer_cancel_remote(xfer); return 1; } #endif /* Data is assumed to be the destination bn */ reason_str = g_strdup((reason < msgerrreasonlen) ? _(msgerrreason[reason]) : _("Unknown reason")); if (errcode != 0 && errcode < errcodereasonlen) buf = g_strdup_printf(_("Unable to send message: %s (%s)"), reason_str, _(errcodereason[errcode])); else buf = g_strdup_printf(_("Unable to send message: %s"), reason_str); if (!purple_conv_present_error(data, purple_connection_get_account(gc), buf)) { g_free(buf); if (errcode != 0 && errcode < errcodereasonlen) buf = g_strdup_printf(_("Unable to send message to %s: %s (%s)"), data ? data : "(unknown)", reason_str, _(errcodereason[errcode])); else buf = g_strdup_printf(_("Unable to send message to %s: %s"), data ? data : "(unknown)", reason_str); purple_notify_error(od->gc, NULL, buf, reason_str); } g_free(buf); g_free(reason_str); return 1; } static int purple_parse_mtn(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; va_list ap; guint16 channel, event; char *bn; va_start(ap, fr); channel = (guint16) va_arg(ap, unsigned int); bn = va_arg(ap, char *); event = (guint16) va_arg(ap, unsigned int); va_end(ap); switch (event) { case 0x0000: { /* Text has been cleared */ serv_got_typing_stopped(gc, bn); } break; case 0x0001: { /* Paused typing */ serv_got_typing(gc, bn, 0, PURPLE_TYPED); } break; case 0x0002: { /* Typing */ serv_got_typing(gc, bn, 0, PURPLE_TYPING); } break; case 0x000f: { /* Closed IM window */ serv_got_typing_stopped(gc, bn); } break; default: { purple_debug_info("oscar", "Received unknown typing " "notification message from %s. Channel is 0x%04x " "and event is 0x%04hx.\n", bn, channel, event); } break; } return 1; } /* * We get this error when there was an error in the locate family. This * happens when you request info of someone who is offline. */ static int purple_parse_locerr(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { gchar *buf; va_list ap; guint16 reason; char *destn; PurpleNotifyUserInfo *user_info; va_start(ap, fr); reason = (guint16) va_arg(ap, unsigned int); destn = va_arg(ap, char *); va_end(ap); if (destn == NULL) return 1; user_info = purple_notify_user_info_new(); buf = g_strdup_printf(_("User information not available: %s"), (reason < msgerrreasonlen) ? _(msgerrreason[reason]) : _("Unknown reason.")); purple_notify_user_info_add_pair(user_info, NULL, buf); purple_notify_userinfo(od->gc, destn, user_info, NULL, NULL); purple_notify_user_info_destroy(user_info); purple_conv_present_error(destn, purple_connection_get_account(od->gc), buf); g_free(buf); return 1; } static int purple_parse_userinfo(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; PurpleAccount *account = purple_connection_get_account(gc); PurpleNotifyUserInfo *user_info; gchar *tmp = NULL, *info_utf8 = NULL, *base_profile_url = NULL; va_list ap; aim_userinfo_t *userinfo; va_start(ap, fr); userinfo = va_arg(ap, aim_userinfo_t *); va_end(ap); user_info = purple_notify_user_info_new(); oscar_user_info_append_status(gc, user_info, /* PurpleBuddy */ NULL, userinfo, /* strip_html_tags */ FALSE); if ((userinfo->present & AIM_USERINFO_PRESENT_IDLE) && userinfo->idletime != 0) { tmp = purple_str_seconds_to_string(userinfo->idletime*60); oscar_user_info_add_pair(user_info, _("Idle"), tmp); g_free(tmp); } oscar_user_info_append_extra_info(gc, user_info, NULL, userinfo); if ((userinfo->present & AIM_USERINFO_PRESENT_ONLINESINCE) && !oscar_util_valid_name_sms(userinfo->bn)) { /* An SMS contact is always online; its Online Since value is not useful */ time_t t = userinfo->onlinesince; oscar_user_info_add_pair(user_info, _("Online Since"), purple_date_format_full(localtime(&t))); } if (userinfo->present & AIM_USERINFO_PRESENT_MEMBERSINCE) { time_t t = userinfo->membersince; oscar_user_info_add_pair(user_info, _("Member Since"), purple_date_format_full(localtime(&t))); } if (userinfo->capabilities != 0) { tmp = oscar_caps_to_string(userinfo->capabilities); oscar_user_info_add_pair(user_info, _("Capabilities"), tmp); g_free(tmp); } /* Info */ if ((userinfo->info_len > 0) && (userinfo->info != NULL) && (userinfo->info_encoding != NULL)) { tmp = oscar_encoding_extract(userinfo->info_encoding); info_utf8 = oscar_encoding_to_utf8(account, tmp, userinfo->info, userinfo->info_len); g_free(tmp); if (info_utf8 != NULL) { tmp = purple_str_sub_away_formatters(info_utf8, purple_account_get_username(account)); purple_notify_user_info_add_section_break(user_info); oscar_user_info_add_pair(user_info, _("Profile"), tmp); g_free(tmp); g_free(info_utf8); } } purple_notify_user_info_add_section_break(user_info); base_profile_url = oscar_util_valid_name_icq(userinfo->bn) ? "http://www.icq.com/people" : "http://profiles.aim.com"; tmp = g_strdup_printf("<a href=\"%s/%s\">%s</a>", base_profile_url, purple_normalize(account, userinfo->bn), _("View web profile")); purple_notify_user_info_add_pair(user_info, NULL, tmp); g_free(tmp); purple_notify_userinfo(gc, userinfo->bn, user_info, NULL, NULL); purple_notify_user_info_destroy(user_info); return 1; } static int purple_parse_motd(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { char *msg; guint16 id; va_list ap; va_start(ap, fr); id = (guint16) va_arg(ap, unsigned int); msg = va_arg(ap, char *); va_end(ap); purple_debug_misc("oscar", "MOTD: %s (%hu)\n", msg ? msg : "Unknown", id); if (id < 4) purple_notify_warning(od->gc, NULL, _("Your AIM connection may be lost."), NULL); return 1; } static int purple_chatnav_info(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { va_list ap; guint16 type; va_start(ap, fr); type = (guint16) va_arg(ap, unsigned int); switch(type) { case 0x0002: { guint8 maxrooms; struct aim_chat_exchangeinfo *exchanges; int exchangecount, i; maxrooms = (guint8) va_arg(ap, unsigned int); exchangecount = va_arg(ap, int); exchanges = va_arg(ap, struct aim_chat_exchangeinfo *); purple_debug_misc("oscar", "chat info: Chat Rights:\n"); purple_debug_misc("oscar", "chat info: \tMax Concurrent Rooms: %hhd\n", maxrooms); purple_debug_misc("oscar", "chat info: \tExchange List: (%d total)\n", exchangecount); for (i = 0; i < exchangecount; i++) purple_debug_misc("oscar", "chat info: \t\t%hu %s\n", exchanges[i].number, exchanges[i].name ? exchanges[i].name : ""); while (od->create_rooms) { struct create_room *cr = od->create_rooms->data; purple_debug_info("oscar", "creating room %s\n", cr->name); aim_chatnav_createroom(od, conn, cr->name, cr->exchange); g_free(cr->name); od->create_rooms = g_slist_remove(od->create_rooms, cr); g_free(cr); } } break; case 0x0008: { char *fqcn, *name, *ck; guint16 instance, flags, maxmsglen, maxoccupancy, unknown, exchange; guint8 createperms; guint32 createtime; fqcn = va_arg(ap, char *); instance = (guint16)va_arg(ap, unsigned int); exchange = (guint16)va_arg(ap, unsigned int); flags = (guint16)va_arg(ap, unsigned int); createtime = va_arg(ap, guint32); maxmsglen = (guint16)va_arg(ap, unsigned int); maxoccupancy = (guint16)va_arg(ap, unsigned int); createperms = (guint8)va_arg(ap, unsigned int); unknown = (guint16)va_arg(ap, unsigned int); name = va_arg(ap, char *); ck = va_arg(ap, char *); purple_debug_misc("oscar", "created room: %s %hu %hu %hu %u %hu %hu %hhu %hu %s %s\n", fqcn ? fqcn : "(null)", exchange, instance, flags, createtime, maxmsglen, maxoccupancy, createperms, unknown, name ? name : "(null)", ck); aim_chat_join(od, exchange, ck, instance); } break; default: purple_debug_warning("oscar", "chatnav info: unknown type (%04hx)\n", type); break; } va_end(ap); return 1; } static int purple_conv_chat_join(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { va_list ap; int count, i; aim_userinfo_t *info; PurpleConnection *gc = od->gc; struct chat_connection *c = NULL; va_start(ap, fr); count = va_arg(ap, int); info = va_arg(ap, aim_userinfo_t *); va_end(ap); c = find_oscar_chat_by_conn(gc, conn); if (!c) return 1; for (i = 0; i < count; i++) purple_conv_chat_add_user(PURPLE_CONV_CHAT(c->conv), info[i].bn, NULL, PURPLE_CBFLAGS_NONE, TRUE); return 1; } static int purple_conv_chat_leave(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { va_list ap; int count, i; aim_userinfo_t *info; PurpleConnection *gc = od->gc; struct chat_connection *c = NULL; va_start(ap, fr); count = va_arg(ap, int); info = va_arg(ap, aim_userinfo_t *); va_end(ap); c = find_oscar_chat_by_conn(gc, conn); if (!c) return 1; for (i = 0; i < count; i++) purple_conv_chat_remove_user(PURPLE_CONV_CHAT(c->conv), info[i].bn, NULL); return 1; } static int purple_conv_chat_info_update(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { va_list ap; aim_userinfo_t *userinfo; struct aim_chat_roominfo *roominfo; char *roomname; int usercount; char *roomdesc; guint16 unknown_c9, unknown_d2, unknown_d5, maxmsglen, maxvisiblemsglen; guint32 creationtime; PurpleConnection *gc = od->gc; struct chat_connection *ccon = find_oscar_chat_by_conn(gc, conn); if (!ccon) return 1; va_start(ap, fr); roominfo = va_arg(ap, struct aim_chat_roominfo *); roomname = va_arg(ap, char *); usercount= va_arg(ap, int); userinfo = va_arg(ap, aim_userinfo_t *); roomdesc = va_arg(ap, char *); unknown_c9 = (guint16)va_arg(ap, unsigned int); creationtime = va_arg(ap, guint32); maxmsglen = (guint16)va_arg(ap, unsigned int); unknown_d2 = (guint16)va_arg(ap, unsigned int); unknown_d5 = (guint16)va_arg(ap, unsigned int); maxvisiblemsglen = (guint16)va_arg(ap, unsigned int); va_end(ap); purple_debug_misc("oscar", "inside chat_info_update (maxmsglen = %hu, maxvislen = %hu)\n", maxmsglen, maxvisiblemsglen); ccon->maxlen = maxmsglen; ccon->maxvis = maxvisiblemsglen; return 1; } static int purple_conv_chat_incoming_msg(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; PurpleAccount *account = purple_connection_get_account(gc); struct chat_connection *ccon = find_oscar_chat_by_conn(gc, conn); gchar *utf8; va_list ap; aim_userinfo_t *info; int len; char *msg; char *charset; if (!ccon) return 1; va_start(ap, fr); info = va_arg(ap, aim_userinfo_t *); len = va_arg(ap, int); msg = va_arg(ap, char *); charset = va_arg(ap, char *); va_end(ap); utf8 = oscar_encoding_to_utf8(account, charset, msg, len); if (utf8 == NULL) /* The conversion failed! */ utf8 = g_strdup(_("[Unable to display a message from this user because it contained invalid characters.]")); serv_got_chat_in(gc, ccon->id, info->bn, 0, utf8, time(NULL)); g_free(utf8); return 1; } static int purple_email_parseupdate(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { va_list ap; PurpleConnection *gc; PurpleAccount *account; struct aim_emailinfo *emailinfo; int havenewmail; char *alertitle, *alerturl; gc = od->gc; account = purple_connection_get_account(gc); va_start(ap, fr); emailinfo = va_arg(ap, struct aim_emailinfo *); havenewmail = va_arg(ap, int); alertitle = va_arg(ap, char *); alerturl = va_arg(ap, char *); va_end(ap); if (account != NULL && emailinfo != NULL && purple_account_get_check_mail(account) && emailinfo->unread && havenewmail) { gchar *to = g_strdup_printf("%s%s%s", purple_account_get_username(account), emailinfo->domain ? "@" : "", emailinfo->domain ? emailinfo->domain : ""); const char *tos[2] = { to }; const char *urls[2] = { emailinfo->url }; purple_notify_emails(gc, emailinfo->nummsgs, FALSE, NULL, NULL, tos, urls, NULL, NULL); g_free(to); } if (alertitle) purple_debug_misc("oscar", "Got an alert '%s' %s\n", alertitle, alerturl ? alerturl : ""); return 1; } static int purple_icon_parseicon(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; va_list ap; char *bn; guint8 iconcsumtype, *iconcsum, *icon; guint16 iconcsumlen, iconlen; va_start(ap, fr); bn = va_arg(ap, char *); iconcsumtype = va_arg(ap, int); iconcsum = va_arg(ap, guint8 *); iconcsumlen = va_arg(ap, int); icon = va_arg(ap, guint8 *); iconlen = va_arg(ap, int); va_end(ap); /* * Some AIM clients will send a blank GIF image with iconlen 90 when * no icon is set. Ignore these. */ if ((iconlen > 0) && (iconlen != 90)) { char *b16 = purple_base16_encode(iconcsum, iconcsumlen); purple_buddy_icons_set_for_user(purple_connection_get_account(gc), bn, g_memdup(icon, iconlen), iconlen, b16); g_free(b16); } return 1; } static void purple_icons_fetch(PurpleConnection *gc) { OscarData *od = purple_connection_get_protocol_data(gc); aim_userinfo_t *userinfo; FlapConnection *conn; conn = flap_connection_getbytype(od, SNAC_FAMILY_BART); if (!conn) { if (!od->iconconnecting) { aim_srv_requestnew(od, SNAC_FAMILY_BART); od->iconconnecting = TRUE; } return; } if (od->set_icon) { PurpleAccount *account = purple_connection_get_account(gc); PurpleStoredImage *img = purple_buddy_icons_find_account_icon(account); if (img == NULL) { aim_ssi_delicon(od); } else { purple_debug_info("oscar", "Uploading icon to icon server\n"); aim_bart_upload(od, purple_imgstore_get_data(img), purple_imgstore_get_size(img)); purple_imgstore_unref(img); } od->set_icon = FALSE; } while (od->requesticon != NULL) { userinfo = aim_locate_finduserinfo(od, (char *)od->requesticon->data); if ((userinfo != NULL) && (userinfo->iconcsumlen > 0)) aim_bart_request(od, od->requesticon->data, userinfo->iconcsumtype, userinfo->iconcsum, userinfo->iconcsumlen); g_free(od->requesticon->data); od->requesticon = g_slist_delete_link(od->requesticon, od->requesticon); } purple_debug_misc("oscar", "no more icons to request\n"); } /* * Received in response to an IM sent with the AIM_IMFLAGS_ACK option. */ static int purple_parse_msgack(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { va_list ap; guint16 type; char *bn; va_start(ap, fr); type = (guint16) va_arg(ap, unsigned int); bn = va_arg(ap, char *); va_end(ap); purple_debug_info("oscar", "Sent message to %s.\n", bn); return 1; } static int purple_parse_evilnotify(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { #ifdef CRAZY_WARNING va_list ap; guint16 newevil; aim_userinfo_t *userinfo; va_start(ap, fr); newevil = (guint16) va_arg(ap, unsigned int); userinfo = va_arg(ap, aim_userinfo_t *); va_end(ap); purple_prpl_got_account_warning_level(account, (userinfo && userinfo->bn) ? userinfo->bn : NULL, (newevil/10.0) + 0.5); #endif return 1; } static int purple_selfinfo(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { int warning_level; va_list ap; aim_userinfo_t *info; va_start(ap, fr); info = va_arg(ap, aim_userinfo_t *); va_end(ap); purple_connection_set_display_name(od->gc, info->bn); /* * What's with the + 0.5? * The 0.5 is basically poor-man's rounding. Normally * casting "13.7" to an int will truncate to "13," but * with 13.7 + 0.5 = 14.2, which becomes "14" when * truncated. */ warning_level = info->warnlevel/10.0 + 0.5; #ifdef CRAZY_WARNING purple_presence_set_warning_level(presence, warning_level); #endif return 1; } static int purple_connerr(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; va_list ap; guint16 code; char *msg; va_start(ap, fr); code = (guint16)va_arg(ap, int); msg = va_arg(ap, char *); va_end(ap); purple_debug_info("oscar", "Disconnected. Code is 0x%04x and msg is %s\n", code, (msg != NULL ? msg : "")); g_return_val_if_fail(conn != NULL, 1); if (conn->type == SNAC_FAMILY_CHAT) { struct chat_connection *cc; PurpleConversation *conv = NULL; cc = find_oscar_chat_by_conn(gc, conn); if (cc != NULL) { conv = purple_find_chat(gc, cc->id); if (conv != NULL) { /* * TOOD: Have flap_connection_destroy_cb() send us the * error message stored in 'tmp', which should be * human-friendly, and print that to the chat room. */ gchar *buf; buf = g_strdup_printf(_("You have been disconnected from chat " "room %s."), cc->name); purple_conversation_write(conv, NULL, buf, PURPLE_MESSAGE_ERROR, time(NULL)); g_free(buf); } oscar_chat_kill(gc, cc); } } return 1; } static int purple_parse_locaterights(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; PurpleAccount *account = purple_connection_get_account(gc); va_list ap; guint16 maxsiglen; va_start(ap, fr); maxsiglen = (guint16) va_arg(ap, int); va_end(ap); purple_debug_misc("oscar", "locate rights: max sig len = %d\n", maxsiglen); od->rights.maxsiglen = od->rights.maxawaymsglen = (guint)maxsiglen; aim_locate_setcaps(od, purple_caps); oscar_set_info_and_status(account, TRUE, account->user_info, TRUE, purple_account_get_active_status(account)); return 1; } static int purple_parse_buddyrights(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { va_list ap; guint16 maxbuddies, maxwatchers; va_start(ap, fr); maxbuddies = (guint16) va_arg(ap, unsigned int); maxwatchers = (guint16) va_arg(ap, unsigned int); va_end(ap); purple_debug_misc("oscar", "buddy list rights: Max buddies = %hu / Max watchers = %hu\n", maxbuddies, maxwatchers); od->rights.maxbuddies = (guint)maxbuddies; od->rights.maxwatchers = (guint)maxwatchers; return 1; } static int purple_bosrights(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc; PurpleAccount *account; PurpleStatus *status; gboolean is_available; PurplePresence *presence; const char *username, *message, *itmsurl; char *tmp; va_list ap; guint16 maxpermits, maxdenies; gc = od->gc; od = purple_connection_get_protocol_data(gc); account = purple_connection_get_account(gc); va_start(ap, fr); maxpermits = (guint16) va_arg(ap, unsigned int); maxdenies = (guint16) va_arg(ap, unsigned int); va_end(ap); purple_debug_misc("oscar", "BOS rights: Max permit = %hu / Max deny = %hu\n", maxpermits, maxdenies); od->rights.maxpermits = (guint)maxpermits; od->rights.maxdenies = (guint)maxdenies; purple_debug_info("oscar", "buddy list loaded\n"); if (purple_account_get_user_info(account) != NULL) serv_set_info(gc, purple_account_get_user_info(account)); username = purple_account_get_username(account); if (!od->icq && strcmp(username, purple_connection_get_display_name(gc)) != 0) /* * Format the username for AIM accounts if it's different * than what's currently set. */ oscar_format_username(gc, username); /* Set our available message based on the current status */ status = purple_account_get_active_status(account); is_available = purple_status_is_available(status); if (is_available) message = purple_status_get_attr_string(status, "message"); else message = NULL; tmp = purple_markup_strip_html(message); itmsurl = purple_status_get_attr_string(status, "itmsurl"); aim_srv_setextrainfo(od, FALSE, 0, is_available, tmp, itmsurl); g_free(tmp); presence = purple_status_get_presence(status); aim_srv_setidle(od, !purple_presence_is_idle(presence) ? 0 : time(NULL) - purple_presence_get_idle_time(presence)); if (od->icq) { #ifdef OLDSTYLE_ICQ_OFFLINEMSGS aim_icq_reqofflinemsgs(od); #endif oscar_set_extendedstatus(gc); aim_icq_setsecurity(od, purple_account_get_bool(account, "authorization", OSCAR_DEFAULT_AUTHORIZATION), purple_account_get_bool(account, "web_aware", OSCAR_DEFAULT_WEB_AWARE)); } aim_srv_requestnew(od, SNAC_FAMILY_ALERT); aim_srv_requestnew(od, SNAC_FAMILY_CHATNAV); od->bos.have_rights = TRUE; /* * If we've already received our feedbag data then we're not waiting on * anything else, so send the server clientready. * * Normally we get bos rights before we get our feedbag data, so this * rarely (never?) happens. And I'm not sure it actually matters if we * wait for bos rights before calling clientready. But it seems safer * to do it this way. */ if (od->ssi.received_data) { aim_srv_clientready(od, conn); /* Request offline messages for AIM and ICQ */ aim_im_reqofflinemsgs(od); purple_connection_set_state(gc, PURPLE_CONNECTED); } return 1; } #ifdef OLDSTYLE_ICQ_OFFLINEMSGS static int purple_offlinemsg(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { va_list ap; struct aim_icq_offlinemsg *msg; struct aim_incomingim_ch4_args args; time_t t; va_start(ap, fr); msg = va_arg(ap, struct aim_icq_offlinemsg *); va_end(ap); purple_debug_info("oscar", "Received offline message. Converting to channel 4 ICBM...\n"); args.uin = msg->sender; args.type = msg->type; args.flags = msg->flags; args.msglen = msg->msglen; args.msg = msg->msg; t = purple_time_build(msg->year, msg->month, msg->day, msg->hour, msg->minute, 0); incomingim_chan4(od, conn, NULL, &args, t); return 1; } static int purple_offlinemsgdone(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { aim_icq_ackofflinemsgs(od); return 1; } #endif /* OLDSTYLE_ICQ_OFFLINEMSGS */ static int purple_icqinfo(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc; PurpleAccount *account; PurpleBuddy *buddy; struct buddyinfo *bi; gchar who[16]; PurpleNotifyUserInfo *user_info; gchar *utf8; gchar *buf; const gchar *alias; va_list ap; struct aim_icq_info *info; gc = od->gc; account = purple_connection_get_account(gc); va_start(ap, fr); info = va_arg(ap, struct aim_icq_info *); va_end(ap); if (!info->uin) return 0; user_info = purple_notify_user_info_new(); g_snprintf(who, sizeof(who), "%u", info->uin); buddy = purple_find_buddy(account, who); if (buddy != NULL) bi = g_hash_table_lookup(od->buddyinfo, purple_normalize(account, purple_buddy_get_name(buddy))); else bi = NULL; purple_notify_user_info_add_pair(user_info, _("UIN"), who); oscar_user_info_convert_and_add(account, od, user_info, _("Nick"), info->nick); if ((bi != NULL) && (bi->ipaddr != 0)) { char *tstr = g_strdup_printf("%hhu.%hhu.%hhu.%hhu", (bi->ipaddr & 0xff000000) >> 24, (bi->ipaddr & 0x00ff0000) >> 16, (bi->ipaddr & 0x0000ff00) >> 8, (bi->ipaddr & 0x000000ff)); purple_notify_user_info_add_pair(user_info, _("IP Address"), tstr); g_free(tstr); } oscar_user_info_convert_and_add(account, od, user_info, _("First Name"), info->first); oscar_user_info_convert_and_add(account, od, user_info, _("Last Name"), info->last); if (info->email && info->email[0] && (utf8 = oscar_utf8_try_convert(account, od, info->email))) { buf = g_strdup_printf("<a href=\"mailto:%s\">%s</a>", utf8, utf8); purple_notify_user_info_add_pair(user_info, _("Email Address"), buf); g_free(buf); g_free(utf8); } if (info->numaddresses && info->email2) { int i; for (i = 0; i < info->numaddresses; i++) { if (info->email2[i] && info->email2[i][0] && (utf8 = oscar_utf8_try_convert(account, od, info->email2[i]))) { buf = g_strdup_printf("<a href=\"mailto:%s\">%s</a>", utf8, utf8); purple_notify_user_info_add_pair(user_info, _("Email Address"), buf); g_free(buf); g_free(utf8); } } } oscar_user_info_convert_and_add(account, od, user_info, _("Mobile Phone"), info->mobile); if (info->gender != 0) purple_notify_user_info_add_pair(user_info, _("Gender"), (info->gender == 1 ? _("Female") : _("Male"))); if ((info->birthyear > 1900) && (info->birthmonth > 0) && (info->birthday > 0)) { /* Initialize the struct properly or strftime() will crash * under some conditions (e.g. Debian sarge w/ LANG=en_HK). */ time_t t = time(NULL); struct tm *tm = localtime(&t); tm->tm_mday = (int)info->birthday; tm->tm_mon = (int)info->birthmonth - 1; tm->tm_year = (int)info->birthyear - 1900; /* To be 100% sure that the fields are re-normalized. * If you're sure strftime() ALWAYS does this EVERYWHERE, * feel free to remove it. --rlaager */ mktime(tm); oscar_user_info_convert_and_add(account, od, user_info, _("Birthday"), purple_date_format_short(tm)); } if ((info->age > 0) && (info->age < 255)) { char age[5]; snprintf(age, sizeof(age), "%hhd", info->age); purple_notify_user_info_add_pair(user_info, _("Age"), age); } if (info->personalwebpage && info->personalwebpage[0] && (utf8 = oscar_utf8_try_convert(account, od, info->personalwebpage))) { buf = g_strdup_printf("<a href=\"%s\">%s</a>", utf8, utf8); purple_notify_user_info_add_pair(user_info, _("Personal Web Page"), buf); g_free(buf); g_free(utf8); } if (buddy != NULL) oscar_user_info_append_status(gc, user_info, buddy, /* aim_userinfo_t */ NULL, /* strip_html_tags */ FALSE); oscar_user_info_convert_and_add(account, od, user_info, _("Additional Information"), info->info); purple_notify_user_info_add_section_break(user_info); if ((info->homeaddr && (info->homeaddr[0])) || (info->homecity && info->homecity[0]) || (info->homestate && info->homestate[0]) || (info->homezip && info->homezip[0])) { purple_notify_user_info_add_section_header(user_info, _("Home Address")); oscar_user_info_convert_and_add(account, od, user_info, _("Address"), info->homeaddr); oscar_user_info_convert_and_add(account, od, user_info, _("City"), info->homecity); oscar_user_info_convert_and_add(account, od, user_info, _("State"), info->homestate); oscar_user_info_convert_and_add(account, od, user_info, _("Zip Code"), info->homezip); } if ((info->workaddr && info->workaddr[0]) || (info->workcity && info->workcity[0]) || (info->workstate && info->workstate[0]) || (info->workzip && info->workzip[0])) { purple_notify_user_info_add_section_header(user_info, _("Work Address")); oscar_user_info_convert_and_add(account, od, user_info, _("Address"), info->workaddr); oscar_user_info_convert_and_add(account, od, user_info, _("City"), info->workcity); oscar_user_info_convert_and_add(account, od, user_info, _("State"), info->workstate); oscar_user_info_convert_and_add(account, od, user_info, _("Zip Code"), info->workzip); } if ((info->workcompany && info->workcompany[0]) || (info->workdivision && info->workdivision[0]) || (info->workposition && info->workposition[0]) || (info->workwebpage && info->workwebpage[0])) { purple_notify_user_info_add_section_header(user_info, _("Work Information")); oscar_user_info_convert_and_add(account, od, user_info, _("Company"), info->workcompany); oscar_user_info_convert_and_add(account, od, user_info, _("Division"), info->workdivision); oscar_user_info_convert_and_add(account, od, user_info, _("Position"), info->workposition); if (info->workwebpage && info->workwebpage[0] && (utf8 = oscar_utf8_try_convert(account, od, info->workwebpage))) { char *webpage = g_strdup_printf("<a href=\"%s\">%s</a>", utf8, utf8); purple_notify_user_info_add_pair(user_info, _("Web Page"), webpage); g_free(webpage); g_free(utf8); } } if (buddy != NULL) alias = purple_buddy_get_alias(buddy); else alias = who; purple_notify_userinfo(gc, who, user_info, NULL, NULL); purple_notify_user_info_destroy(user_info); return 1; } static int purple_icqalias(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; PurpleAccount *account = purple_connection_get_account(gc); gchar who[16], *utf8; PurpleBuddy *b; va_list ap; struct aim_icq_info *info; va_start(ap, fr); info = va_arg(ap, struct aim_icq_info *); va_end(ap); if (info->uin && info->nick && info->nick[0] && (utf8 = oscar_utf8_try_convert(account, od, info->nick))) { g_snprintf(who, sizeof(who), "%u", info->uin); serv_got_alias(gc, who, utf8); if ((b = purple_find_buddy(account, who))) { purple_blist_node_set_string((PurpleBlistNode*)b, "servernick", utf8); } g_free(utf8); } return 1; } static int purple_popup(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; gchar *text; va_list ap; char *msg, *url; guint16 wid, hei, delay; va_start(ap, fr); msg = va_arg(ap, char *); url = va_arg(ap, char *); wid = (guint16) va_arg(ap, int); hei = (guint16) va_arg(ap, int); delay = (guint16) va_arg(ap, int); va_end(ap); text = g_strdup_printf("%s<br><a href=\"%s\">%s</a>", msg, url, url); purple_notify_formatted(gc, NULL, _("Pop-Up Message"), NULL, text, NULL, NULL); g_free(text); return 1; } static void oscar_searchresults_add_buddy_cb(PurpleConnection *gc, GList *row, void *user_data) { purple_blist_request_add_buddy(purple_connection_get_account(gc), g_list_nth_data(row, 0), NULL, NULL); } static int purple_parse_searchreply(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; PurpleNotifySearchResults *results; PurpleNotifySearchColumn *column; gchar *secondary; int i, num; va_list ap; char *email, *usernames; va_start(ap, fr); email = va_arg(ap, char *); num = va_arg(ap, int); usernames = va_arg(ap, char *); va_end(ap); results = purple_notify_searchresults_new(); if (results == NULL) { purple_debug_error("oscar", "purple_parse_searchreply: " "Unable to display the search results.\n"); purple_notify_error(gc, NULL, _("Unable to display the search results."), NULL); return 1; } secondary = g_strdup_printf( dngettext(PACKAGE, "The following username is associated with %s", "The following usernames are associated with %s", num), email); column = purple_notify_searchresults_column_new(_("Username")); purple_notify_searchresults_column_add(results, column); for (i = 0; i < num; i++) { GList *row; row = g_list_append(NULL, g_strdup(&usernames[i * (MAXSNLEN + 1)])); purple_notify_searchresults_row_add(results, row); } purple_notify_searchresults_button_add(results, PURPLE_NOTIFY_BUTTON_ADD, oscar_searchresults_add_buddy_cb); purple_notify_searchresults(gc, NULL, NULL, secondary, results, NULL, NULL); g_free(secondary); return 1; } static int purple_parse_searcherror(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { va_list ap; char *email; char *buf; va_start(ap, fr); email = va_arg(ap, char *); va_end(ap); buf = g_strdup_printf(_("No results found for email address %s"), email); purple_notify_error(od->gc, NULL, buf, NULL); g_free(buf); return 1; } static int purple_account_confirm(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; guint16 status; va_list ap; char msg[256]; va_start(ap, fr); status = (guint16) va_arg(ap, unsigned int); /* status code of confirmation request */ va_end(ap); purple_debug_info("oscar", "account confirmation returned status 0x%04x (%s)\n", status, status ? "unknown" : "email sent"); if (!status) { g_snprintf(msg, sizeof(msg), _("You should receive an email asking to confirm %s."), purple_account_get_username(purple_connection_get_account(gc))); purple_notify_info(gc, NULL, _("Account Confirmation Requested"), msg); } return 1; } static int purple_info_change(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; va_list ap; guint16 perms, err; char *url, *bn, *email; int change; va_start(ap, fr); change = va_arg(ap, int); perms = (guint16) va_arg(ap, unsigned int); err = (guint16) va_arg(ap, unsigned int); url = va_arg(ap, char *); bn = va_arg(ap, char *); email = va_arg(ap, char *); va_end(ap); purple_debug_misc("oscar", "account info: because of %s, perms=0x%04x, err=0x%04x, url=%s, bn=%s, email=%s\n", change ? "change" : "request", perms, err, (url != NULL) ? url : "(null)", (bn != NULL) ? bn : "(null)", (email != NULL) ? email : "(null)"); if ((err > 0) && (url != NULL)) { char *dialog_msg; if (err == 0x0001) dialog_msg = g_strdup_printf(_("Error 0x%04x: Unable to format username because the requested name differs from the original."), err); else if (err == 0x0006) dialog_msg = g_strdup_printf(_("Error 0x%04x: Unable to format username because it is invalid."), err); else if (err == 0x00b) dialog_msg = g_strdup_printf(_("Error 0x%04x: Unable to format username because the requested name is too long."), err); else if (err == 0x001d) dialog_msg = g_strdup_printf(_("Error 0x%04x: Unable to change email address because there is already a request pending for this username."), err); else if (err == 0x0021) dialog_msg = g_strdup_printf(_("Error 0x%04x: Unable to change email address because the given address has too many usernames associated with it."), err); else if (err == 0x0023) dialog_msg = g_strdup_printf(_("Error 0x%04x: Unable to change email address because the given address is invalid."), err); else dialog_msg = g_strdup_printf(_("Error 0x%04x: Unknown error."), err); purple_notify_error(gc, NULL, _("Error Changing Account Info"), dialog_msg); g_free(dialog_msg); return 1; } if (email != NULL) { char *dialog_msg = g_strdup_printf(_("The email address for %s is %s"), purple_account_get_username(purple_connection_get_account(gc)), email); purple_notify_info(gc, NULL, _("Account Info"), dialog_msg); g_free(dialog_msg); } return 1; } void oscar_keepalive(PurpleConnection *gc) { OscarData *od; FlapConnection *conn; od = purple_connection_get_protocol_data(gc); conn = flap_connection_getbytype(od, SNAC_FAMILY_LOCATE); if (conn != NULL) flap_connection_send_keepalive(od, conn); } unsigned int oscar_send_typing(PurpleConnection *gc, const char *name, PurpleTypingState state) { OscarData *od; PeerConnection *conn; od = purple_connection_get_protocol_data(gc); conn = peer_connection_find_by_type(od, name, OSCAR_CAPABILITY_DIRECTIM); if ((conn != NULL) && (conn->ready)) { peer_odc_send_typing(conn, state); } else { /* Don't send if this turkey is in our deny list */ GSList *list; for (list=gc->account->deny; (list && oscar_util_name_compare(name, list->data)); list=list->next); if (!list) { struct buddyinfo *bi = g_hash_table_lookup(od->buddyinfo, purple_normalize(gc->account, name)); if (bi && bi->typingnot) { if (state == PURPLE_TYPING) aim_im_sendmtn(od, 0x0001, name, 0x0002); else if (state == PURPLE_TYPED) aim_im_sendmtn(od, 0x0001, name, 0x0001); else aim_im_sendmtn(od, 0x0001, name, 0x0000); } } } return 0; } /* TODO: Move this into odc.c! */ static void purple_odc_send_im(PeerConnection *conn, const char *message, PurpleMessageFlags imflags) { GString *msg; GString *data; gchar *tmp; int tmplen; guint16 charset, charsubset; GData *attribs; const char *start, *end, *last; int oscar_id = 0; msg = g_string_new("<HTML><BODY>"); data = g_string_new("<BINARY>"); last = message; /* for each valid IMG tag... */ while (last && *last && purple_markup_find_tag("img", last, &start, &end, &attribs)) { PurpleStoredImage *image = NULL; const char *id; if (start - last) { g_string_append_len(msg, last, start - last); } id = g_datalist_get_data(&attribs, "id"); /* ... if it refers to a valid purple image ... */ if (id && (image = purple_imgstore_find_by_id(atoi(id)))) { /* ... append the message from start to the tag ... */ unsigned long size = purple_imgstore_get_size(image); const char *filename = purple_imgstore_get_filename(image); gconstpointer imgdata = purple_imgstore_get_data(image); oscar_id++; /* ... insert a new img tag with the oscar id ... */ if (filename) g_string_append_printf(msg, "<IMG SRC=\"%s\" ID=\"%d\" DATASIZE=\"%lu\">", filename, oscar_id, size); else g_string_append_printf(msg, "<IMG ID=\"%d\" DATASIZE=\"%lu\">", oscar_id, size); /* ... and append the data to the binary section ... */ g_string_append_printf(data, "<DATA ID=\"%d\" SIZE=\"%lu\">", oscar_id, size); g_string_append_len(data, imgdata, size); g_string_append(data, "</DATA>"); } /* If the tag is invalid, skip it, thus no else here */ g_datalist_clear(&attribs); /* continue from the end of the tag */ last = end + 1; } /* append any remaining message data */ if (last && *last) g_string_append(msg, last); g_string_append(msg, "</BODY></HTML>"); /* Convert the message to a good encoding */ purple_plugin_oscar_convert_to_best_encoding(conn->od->gc, conn->bn, msg->str, &tmp, &tmplen, &charset, &charsubset); g_string_free(msg, TRUE); msg = g_string_new_len(tmp, tmplen); g_free(tmp); /* Append any binary data that we may have */ if (oscar_id) { msg = g_string_append_len(msg, data->str, data->len); msg = g_string_append(msg, "</BINARY>"); } g_string_free(data, TRUE); purple_debug_info("oscar", "sending direct IM %s using charset %i", msg->str, charset); peer_odc_send_im(conn, msg->str, msg->len, charset, imflags & PURPLE_MESSAGE_AUTO_RESP); g_string_free(msg, TRUE); } int oscar_send_im(PurpleConnection *gc, const char *name, const char *message, PurpleMessageFlags imflags) { OscarData *od; PurpleAccount *account; PeerConnection *conn; int ret; char *tmp1, *tmp2; gboolean is_sms, is_html; od = purple_connection_get_protocol_data(gc); account = purple_connection_get_account(gc); ret = 0; is_sms = oscar_util_valid_name_sms(name); if (od->icq && is_sms) { /* * We're sending to a phone number and this is ICQ, * so send the message as an SMS using aim_icq_sendsms() */ int ret; purple_debug_info("oscar", "Sending SMS to %s.\n", name); ret = aim_icq_sendsms(od, name, message, purple_account_get_username(account)); return (ret >= 0 ? 1 : ret); } if (imflags & PURPLE_MESSAGE_AUTO_RESP) tmp1 = purple_str_sub_away_formatters(message, name); else tmp1 = g_strdup(message); conn = peer_connection_find_by_type(od, name, OSCAR_CAPABILITY_DIRECTIM); if ((conn != NULL) && (conn->ready)) { /* If we're directly connected, send a direct IM */ purple_debug_info("oscar", "Sending direct IM with flags %i\n", imflags); purple_odc_send_im(conn, tmp1, imflags); } else { struct buddyinfo *bi; struct aim_sendimext_args args; PurpleConversation *conv; PurpleStoredImage *img; PurpleBuddy *buddy; conv = purple_find_conversation_with_account(PURPLE_CONV_TYPE_IM, name, account); if (strstr(tmp1, "<IMG ")) purple_conversation_write(conv, "", _("Your IM Image was not sent. " "You must be Direct Connected to send IM Images."), PURPLE_MESSAGE_ERROR, time(NULL)); buddy = purple_find_buddy(account, name); bi = g_hash_table_lookup(od->buddyinfo, purple_normalize(account, name)); if (!bi) { bi = g_new0(struct buddyinfo, 1); g_hash_table_insert(od->buddyinfo, g_strdup(purple_normalize(account, name)), bi); } args.flags = AIM_IMFLAGS_ACK | AIM_IMFLAGS_CUSTOMFEATURES; if (!is_sms && (!buddy || !PURPLE_BUDDY_IS_ONLINE(buddy))) args.flags |= AIM_IMFLAGS_OFFLINE; if (od->icq) { args.features = features_icq; args.featureslen = sizeof(features_icq); } else { args.features = features_aim; args.featureslen = sizeof(features_aim); if (imflags & PURPLE_MESSAGE_AUTO_RESP) args.flags |= AIM_IMFLAGS_AWAY; } if (bi->ico_need) { purple_debug_info("oscar", "Sending buddy icon request with message\n"); args.flags |= AIM_IMFLAGS_BUDDYREQ; bi->ico_need = FALSE; } img = purple_buddy_icons_find_account_icon(account); if (img) { gconstpointer data = purple_imgstore_get_data(img); args.iconlen = purple_imgstore_get_size(img); args.iconsum = aimutil_iconsum(data, args.iconlen); args.iconstamp = purple_buddy_icons_get_account_icon_timestamp(account); if ((args.iconlen != bi->ico_me_len) || (args.iconsum != bi->ico_me_csum) || (args.iconstamp != bi->ico_me_time)) { bi->ico_informed = FALSE; bi->ico_sent = FALSE; } /* * TODO: * For some reason sending our icon to people only works * when we're the ones who initiated the conversation. If * the other person sends the first IM then they never get * the icon. We should fix that. */ if (!bi->ico_informed) { purple_debug_info("oscar", "Claiming to have a buddy icon\n"); args.flags |= AIM_IMFLAGS_HASICON; bi->ico_me_len = args.iconlen; bi->ico_me_csum = args.iconsum; bi->ico_me_time = args.iconstamp; bi->ico_informed = TRUE; } purple_imgstore_unref(img); } args.destbn = name; if (oscar_util_valid_name_sms(name)) { /* Messaging an SMS (mobile) user--strip HTML */ tmp2 = purple_markup_strip_html(tmp1); is_html = FALSE; } else { tmp2 = g_strdup(tmp1); is_html = TRUE; } g_free(tmp1); tmp1 = tmp2; purple_plugin_oscar_convert_to_best_encoding(gc, name, tmp1, (char **)&args.msg, &args.msglen, &args.charset, &args.charsubset); if (is_html && (args.msglen > MAXMSGLEN)) { /* If the length was too long, try stripping the HTML and then running it back through * purple_strdup_withhtml() and the encoding process. The result may be shorter. */ g_free((char *)args.msg); tmp2 = purple_markup_strip_html(tmp1); g_free(tmp1); /* re-escape the entities */ tmp1 = g_markup_escape_text(tmp2, -1); g_free(tmp2); tmp2 = purple_strdup_withhtml(tmp1); g_free(tmp1); tmp1 = tmp2; purple_plugin_oscar_convert_to_best_encoding(gc, name, tmp1, (char **)&args.msg, &args.msglen, &args.charset, &args.charsubset); purple_debug_info("oscar", "Sending %s as %s because the original was too long.\n", message, (char *)args.msg); } purple_debug_info("oscar", "Sending IM, charset=0x%04hx, charsubset=0x%04hx, length=%d\n", args.charset, args.charsubset, args.msglen); ret = aim_im_sendch1_ext(od, &args); g_free((char *)args.msg); } g_free(tmp1); if (ret >= 0) return 1; return ret; } /* * As of 26 June 2006, ICQ users can request AIM info from * everyone, and can request ICQ info from ICQ users, and * AIM users can only request AIM info. */ void oscar_get_info(PurpleConnection *gc, const char *name) { OscarData *od = purple_connection_get_protocol_data(gc); if (od->icq && oscar_util_valid_name_icq(name)) aim_icq_getallinfo(od, name); else aim_locate_getinfoshort(od, name, 0x00000003); } #if 0 static void oscar_set_dir(PurpleConnection *gc, const char *first, const char *middle, const char *last, const char *maiden, const char *city, const char *state, const char *country, int web) { /* XXX - some of these things are wrong, but i'm lazy */ OscarData *od = purple_connection_get_protocol_data(gc); aim_locate_setdirinfo(od, first, middle, last, maiden, NULL, NULL, city, state, NULL, 0, web); } #endif void oscar_set_idle(PurpleConnection *gc, int time) { OscarData *od = purple_connection_get_protocol_data(gc); aim_srv_setidle(od, time); } static gchar *purple_prpl_oscar_convert_to_infotext(const gchar *str, gsize *ret_len, char **encoding) { int charset = 0; char *encoded = NULL; charset = oscar_charset_check(str); if (charset == AIM_CHARSET_UNICODE) { encoded = g_convert(str, -1, "UTF-16BE", "UTF-8", NULL, ret_len, NULL); *encoding = "unicode-2-0"; } else if (charset == AIM_CHARSET_LATIN_1) { encoded = g_convert(str, -1, "ISO-8859-1", "UTF-8", NULL, ret_len, NULL); *encoding = "iso-8859-1"; } else { encoded = g_strdup(str); *ret_len = strlen(str); *encoding = "us-ascii"; } return encoded; } void oscar_set_info(PurpleConnection *gc, const char *rawinfo) { PurpleAccount *account; PurpleStatus *status; account = purple_connection_get_account(gc); status = purple_account_get_active_status(account); oscar_set_info_and_status(account, TRUE, rawinfo, FALSE, status); } static void oscar_set_extendedstatus(PurpleConnection *gc) { OscarData *od; PurpleAccount *account; PurpleStatus *status; const gchar *status_id; guint32 data = 0x00000000; od = purple_connection_get_protocol_data(gc); account = purple_connection_get_account(gc); status = purple_account_get_active_status(account); status_id = purple_status_get_id(status); data |= AIM_ICQ_STATE_HIDEIP; if (purple_account_get_bool(account, "web_aware", OSCAR_DEFAULT_WEB_AWARE)) data |= AIM_ICQ_STATE_WEBAWARE; if (!strcmp(status_id, OSCAR_STATUS_ID_AVAILABLE)) data |= AIM_ICQ_STATE_NORMAL; else if (!strcmp(status_id, OSCAR_STATUS_ID_AWAY)) data |= AIM_ICQ_STATE_AWAY; else if (!strcmp(status_id, OSCAR_STATUS_ID_DND)) data |= AIM_ICQ_STATE_AWAY | AIM_ICQ_STATE_DND | AIM_ICQ_STATE_BUSY; else if (!strcmp(status_id, OSCAR_STATUS_ID_NA)) data |= AIM_ICQ_STATE_OUT | AIM_ICQ_STATE_AWAY; else if (!strcmp(status_id, OSCAR_STATUS_ID_OCCUPIED)) data |= AIM_ICQ_STATE_AWAY | AIM_ICQ_STATE_BUSY; else if (!strcmp(status_id, OSCAR_STATUS_ID_FREE4CHAT)) data |= AIM_ICQ_STATE_CHAT; else if (!strcmp(status_id, OSCAR_STATUS_ID_INVISIBLE)) data |= AIM_ICQ_STATE_INVISIBLE; else if (!strcmp(status_id, OSCAR_STATUS_ID_EVIL)) data |= AIM_ICQ_STATE_EVIL; else if (!strcmp(status_id, OSCAR_STATUS_ID_DEPRESSION)) data |= AIM_ICQ_STATE_DEPRESSION; else if (!strcmp(status_id, OSCAR_STATUS_ID_ATWORK)) data |= AIM_ICQ_STATE_ATWORK; else if (!strcmp(status_id, OSCAR_STATUS_ID_ATHOME)) data |= AIM_ICQ_STATE_ATHOME; else if (!strcmp(status_id, OSCAR_STATUS_ID_LUNCH)) data |= AIM_ICQ_STATE_LUNCH; else if (!strcmp(status_id, OSCAR_STATUS_ID_CUSTOM)) data |= AIM_ICQ_STATE_OUT | AIM_ICQ_STATE_AWAY; aim_srv_setextrainfo(od, TRUE, data, FALSE, NULL, NULL); } static void oscar_set_info_and_status(PurpleAccount *account, gboolean setinfo, const char *rawinfo, gboolean setstatus, PurpleStatus *status) { PurpleConnection *gc = purple_account_get_connection(account); OscarData *od = purple_connection_get_protocol_data(gc); PurpleStatusType *status_type; PurpleStatusPrimitive primitive; char *info_encoding = NULL; char *info = NULL; gsize infolen = 0; char *away_encoding = NULL; char *away = NULL; gsize awaylen = 0; char *status_text = NULL; const char *itmsurl = NULL; status_type = purple_status_get_type(status); primitive = purple_status_type_get_primitive(status_type); if (!setinfo) { /* Do nothing! */ } else if (od->rights.maxsiglen == 0) { purple_notify_warning(gc, NULL, _("Unable to set AIM profile."), _("You have probably requested to set your " "profile before the login procedure completed. " "Your profile remains unset; try setting it " "again when you are fully connected.")); } else if (rawinfo != NULL) { char *htmlinfo = purple_strdup_withhtml(rawinfo); info = purple_prpl_oscar_convert_to_infotext(htmlinfo, &infolen, &info_encoding); g_free(htmlinfo); if (infolen > od->rights.maxsiglen) { gchar *errstr; errstr = g_strdup_printf(dngettext(PACKAGE, "The maximum profile length of %d byte " "has been exceeded. It has been truncated for you.", "The maximum profile length of %d bytes " "has been exceeded. It has been truncated for you.", od->rights.maxsiglen), od->rights.maxsiglen); purple_notify_warning(gc, NULL, _("Profile too long."), errstr); g_free(errstr); } } if (setstatus) { const char *status_html; status_html = purple_status_get_attr_string(status, "message"); if (status_html == NULL || primitive == PURPLE_STATUS_AVAILABLE || primitive == PURPLE_STATUS_INVISIBLE) { /* This is needed for us to un-set any previous away message. */ away = g_strdup(""); } else { gchar *linkified; /* We do this for icq too so that they work for old third party clients */ linkified = purple_markup_linkify(status_html); away = purple_prpl_oscar_convert_to_infotext(linkified, &awaylen, &away_encoding); g_free(linkified); if (awaylen > od->rights.maxawaymsglen) { gchar *errstr; errstr = g_strdup_printf(dngettext(PACKAGE, "The maximum away message length of %d byte " "has been exceeded. It has been truncated for you.", "The maximum away message length of %d bytes " "has been exceeded. It has been truncated for you.", od->rights.maxawaymsglen), od->rights.maxawaymsglen); purple_notify_warning(gc, NULL, _("Away message too long."), errstr); g_free(errstr); } } } aim_locate_setprofile(od, info_encoding, info, MIN(infolen, od->rights.maxsiglen), away_encoding, away, MIN(awaylen, od->rights.maxawaymsglen)); g_free(info); g_free(away); if (setstatus) { const char *status_html; status_html = purple_status_get_attr_string(status, "message"); if (od->icq && (status_html == NULL || status_html[0] == '\0')) status_html = purple_status_type_get_name(status_type); if (status_html != NULL) { status_text = purple_markup_strip_html(status_html); /* If the status_text is longer than 251 characters then truncate it */ if (strlen(status_text) > MAXAVAILMSGLEN) { char *tmp = g_utf8_find_prev_char(status_text, &status_text[MAXAVAILMSGLEN - 2]); strcpy(tmp, "..."); } } itmsurl = purple_status_get_attr_string(status, "itmsurl"); /* TODO: Combine these two calls! */ aim_srv_setextrainfo(od, FALSE, 0, TRUE, status_text, itmsurl); oscar_set_extendedstatus(gc); g_free(status_text); } } static void oscar_set_status_icq(PurpleAccount *account) { PurpleConnection *gc = purple_account_get_connection(account); /* Our permit/deny setting affects our invisibility */ oscar_set_permit_deny(gc); /* * TODO: I guess we should probably wait and do this after we get * confirmation from the above SSI call? Right now other people * see our status blip to "invisible" before we appear offline. */ oscar_set_extendedstatus(gc); } void oscar_set_status(PurpleAccount *account, PurpleStatus *status) { PurpleConnection *pc; OscarData *od; purple_debug_info("oscar", "Set status to %s\n", purple_status_get_name(status)); if (!purple_status_is_active(status)) return; if (!purple_account_is_connected(account)) return; pc = purple_account_get_connection(account); od = purple_connection_get_protocol_data(pc); /* There's no need to do the stuff below for mood updates. */ if (purple_status_type_get_primitive(purple_status_get_type(status)) == PURPLE_STATUS_MOOD) { aim_locate_setcaps(od, purple_caps); return; } /* Set the AIM-style away message for both AIM and ICQ accounts */ oscar_set_info_and_status(account, FALSE, NULL, TRUE, status); /* Set the ICQ status for ICQ accounts only */ if (od->icq) oscar_set_status_icq(account); } #ifdef CRAZY_WARN void oscar_warn(PurpleConnection *gc, const char *name, gboolean anonymous) { OscarData *od = purple_connection_get_protocol_data(gc); aim_im_warn(od, od->conn, name, anonymous ? AIM_WARN_ANON : 0); } #endif void oscar_add_buddy(PurpleConnection *gc, PurpleBuddy *buddy, PurpleGroup *group) { OscarData *od; PurpleAccount *account; const char *bname, *gname; od = purple_connection_get_protocol_data(gc); account = purple_connection_get_account(gc); bname = purple_buddy_get_name(buddy); gname = purple_group_get_name(group); if (!oscar_util_valid_name(bname)) { gchar *buf; buf = g_strdup_printf(_("Unable to add the buddy %s because the username is invalid. Usernames must be a valid email address, or start with a letter and contain only letters, numbers and spaces, or contain only numbers."), bname); if (!purple_conv_present_error(bname, account, buf)) purple_notify_error(gc, NULL, _("Unable to Add"), buf); g_free(buf); /* Remove from local list */ purple_blist_remove_buddy(buddy); return; } if (od->ssi.received_data) { if (!aim_ssi_itemlist_finditem(od->ssi.local, gname, bname, AIM_SSI_TYPE_BUDDY)) { purple_debug_info("oscar", "ssi: adding buddy %s to group %s\n", bname, gname); aim_ssi_addbuddy(od, bname, gname, NULL, purple_buddy_get_alias_only(buddy), NULL, NULL, 0); /* Mobile users should always be online */ if (bname[0] == '+') { purple_prpl_got_user_status(account, bname, OSCAR_STATUS_ID_AVAILABLE, NULL); purple_prpl_got_user_status(account, bname, OSCAR_STATUS_ID_MOBILE, NULL); } } else if (aim_ssi_waitingforauth(od->ssi.local, aim_ssi_itemlist_findparentname(od->ssi.local, bname), bname)) { /* Not authorized -- Re-request authorization */ purple_auth_sendrequest(gc, bname); } } /* XXX - Should this be done from AIM accounts, as well? */ if (od->icq) aim_icq_getalias(od, bname); } void oscar_remove_buddy(PurpleConnection *gc, PurpleBuddy *buddy, PurpleGroup *group) { OscarData *od = purple_connection_get_protocol_data(gc); if (od->ssi.received_data) { const char *gname = purple_group_get_name(group); const char *bname = purple_buddy_get_name(buddy); purple_debug_info("oscar", "ssi: deleting buddy %s from group %s\n", bname, gname); aim_ssi_delbuddy(od, bname, gname); } } void oscar_move_buddy(PurpleConnection *gc, const char *name, const char *old_group, const char *new_group) { OscarData *od = purple_connection_get_protocol_data(gc); if (od->ssi.received_data && strcmp(old_group, new_group)) { purple_debug_info("oscar", "ssi: moving buddy %s from group %s to group %s\n", name, old_group, new_group); aim_ssi_movebuddy(od, old_group, new_group, name); } } void oscar_alias_buddy(PurpleConnection *gc, const char *name, const char *alias) { OscarData *od = purple_connection_get_protocol_data(gc); if (od->ssi.received_data) { char *gname = aim_ssi_itemlist_findparentname(od->ssi.local, name); if (gname) { purple_debug_info("oscar", "ssi: changing the alias for buddy %s to %s\n", name, alias ? alias : "(none)"); aim_ssi_aliasbuddy(od, gname, name, alias); } } } /* * FYI, the OSCAR SSI code removes empty groups automatically. */ void oscar_rename_group(PurpleConnection *gc, const char *old_name, PurpleGroup *group, GList *moved_buddies) { OscarData *od = purple_connection_get_protocol_data(gc); if (od->ssi.received_data) { const char *gname = purple_group_get_name(group); if (aim_ssi_itemlist_finditem(od->ssi.local, gname, NULL, AIM_SSI_TYPE_GROUP)) { GList *cur, *groups = NULL; PurpleAccount *account = purple_connection_get_account(gc); /* Make a list of what the groups each buddy is in */ for (cur = moved_buddies; cur != NULL; cur = cur->next) { PurpleBlistNode *node = cur->data; /* node is PurpleBuddy, parent is a PurpleContact. * We must go two levels up to get the Group */ groups = g_list_append(groups, purple_buddy_get_group((PurpleBuddy*)node)); } purple_account_remove_buddies(account, moved_buddies, groups); purple_account_add_buddies(account, moved_buddies); g_list_free(groups); purple_debug_info("oscar", "ssi: moved all buddies from group %s to %s\n", old_name, gname); } else { aim_ssi_rename_group(od, old_name, gname); purple_debug_info("oscar", "ssi: renamed group %s to %s\n", old_name, gname); } } } void oscar_remove_group(PurpleConnection *gc, PurpleGroup *group) { aim_ssi_delgroup(purple_connection_get_protocol_data(gc), purple_group_get_name(group)); } static gboolean purple_ssi_rerequestdata(gpointer data) { OscarData *od = data; aim_ssi_reqdata(od); return TRUE; } static int purple_ssi_parseerr(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; va_list ap; guint16 reason; va_start(ap, fr); reason = (guint16)va_arg(ap, unsigned int); va_end(ap); purple_debug_error("oscar", "ssi: SNAC error %hu\n", reason); if (reason == 0x0005) { if (od->getblisttimer > 0) purple_timeout_remove(od->getblisttimer); else /* We only show this error the first time it happens */ purple_notify_error(gc, NULL, _("Unable to Retrieve Buddy List"), _("The AIM servers were temporarily unable to send " "your buddy list. Your buddy list is not lost, and " "will probably become available in a few minutes.")); od->getblisttimer = purple_timeout_add_seconds(30, purple_ssi_rerequestdata, od); return 1; } oscar_set_status_icq(purple_connection_get_account(gc)); return 1; } static int purple_ssi_parserights(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { int i; va_list ap; int numtypes; guint16 *maxitems; GString *msg; va_start(ap, fr); numtypes = va_arg(ap, int); maxitems = va_arg(ap, guint16 *); va_end(ap); msg = g_string_new("ssi rights:"); for (i=0; i<numtypes; i++) g_string_append_printf(msg, " max type 0x%04x=%hd,", i, maxitems[i]); g_string_append(msg, "\n"); purple_debug_misc("oscar", "%s", msg->str); g_string_free(msg, TRUE); if (numtypes >= 0) od->rights.maxbuddies = maxitems[0]; if (numtypes >= 1) od->rights.maxgroups = maxitems[1]; if (numtypes >= 2) od->rights.maxpermits = maxitems[2]; if (numtypes >= 3) od->rights.maxdenies = maxitems[3]; return 1; } static int purple_ssi_parselist(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc; PurpleAccount *account; PurpleGroup *g; PurpleBuddy *b; struct aim_ssi_item *curitem; guint32 tmp; PurpleStoredImage *img; va_list ap; guint16 fmtver, numitems; guint32 timestamp; gc = od->gc; od = purple_connection_get_protocol_data(gc); account = purple_connection_get_account(gc); va_start(ap, fr); fmtver = (guint16)va_arg(ap, int); numitems = (guint16)va_arg(ap, int); timestamp = va_arg(ap, guint32); va_end(ap); /* Don't attempt to re-request our buddy list later */ if (od->getblisttimer != 0) purple_timeout_remove(od->getblisttimer); od->getblisttimer = 0; purple_debug_info("oscar", "ssi: syncing local list and server list\n"); /* Clean the buddy list */ aim_ssi_cleanlist(od); { /* If not in server list then prune from local list */ GSList *cur, *next; GSList *buddies = purple_find_buddies(account, NULL); /* Buddies */ cur = NULL; while(buddies) { PurpleGroup *g; const char *gname; const char *bname; b = buddies->data; g = purple_buddy_get_group(b); gname = purple_group_get_name(g); bname = purple_buddy_get_name(b); if (aim_ssi_itemlist_exists(od->ssi.local, bname)) { /* If the buddy is an ICQ user then load his nickname */ const char *servernick = purple_blist_node_get_string((PurpleBlistNode*)b, "servernick"); char *alias; const char *balias; if (servernick) serv_got_alias(gc, bname, servernick); /* Store local alias on server */ alias = aim_ssi_getalias(od->ssi.local, gname, bname); balias = purple_buddy_get_local_buddy_alias(b); if (!alias && balias && *balias) aim_ssi_aliasbuddy(od, gname, bname, balias); g_free(alias); } else { purple_debug_info("oscar", "ssi: removing buddy %s from local list\n", bname); /* We can't actually remove now because it will screw up our looping */ cur = g_slist_prepend(cur, b); } buddies = g_slist_delete_link(buddies, buddies); } while (cur != NULL) { b = cur->data; cur = g_slist_remove(cur, b); purple_blist_remove_buddy(b); } /* Permit list */ if (account->permit) { next = account->permit; while (next != NULL) { cur = next; next = next->next; if (!aim_ssi_itemlist_finditem(od->ssi.local, NULL, cur->data, AIM_SSI_TYPE_PERMIT)) { purple_debug_info("oscar", "ssi: removing permit %s from local list\n", (const char *)cur->data); purple_privacy_permit_remove(account, cur->data, TRUE); } } } /* Deny list */ if (account->deny) { next = account->deny; while (next != NULL) { cur = next; next = next->next; if (!aim_ssi_itemlist_finditem(od->ssi.local, NULL, cur->data, AIM_SSI_TYPE_DENY)) { purple_debug_info("oscar", "ssi: removing deny %s from local list\n", (const char *)cur->data); purple_privacy_deny_remove(account, cur->data, TRUE); } } } /* Presence settings (idle time visibility) */ tmp = aim_ssi_getpresence(od->ssi.local); if (tmp != 0xFFFFFFFF) { const char *idle_reporting_pref; gboolean report_idle; idle_reporting_pref = purple_prefs_get_string("/purple/away/idle_reporting"); report_idle = strcmp(idle_reporting_pref, "none") != 0; if (report_idle) aim_ssi_setpresence(od, tmp | AIM_SSI_PRESENCE_FLAG_SHOWIDLE); else aim_ssi_setpresence(od, tmp & ~AIM_SSI_PRESENCE_FLAG_SHOWIDLE); } } /* end pruning buddies from local list */ /* Add from server list to local list */ for (curitem=od->ssi.local; curitem; curitem=curitem->next) { if ((curitem->name == NULL) || (g_utf8_validate(curitem->name, -1, NULL))) switch (curitem->type) { case AIM_SSI_TYPE_BUDDY: { /* Buddy */ if (curitem->name) { struct aim_ssi_item *groupitem; char *gname, *gname_utf8, *alias, *alias_utf8; groupitem = aim_ssi_itemlist_find(od->ssi.local, curitem->gid, 0x0000); gname = groupitem ? groupitem->name : NULL; if (gname != NULL) { if (g_utf8_validate(gname, -1, NULL)) gname_utf8 = g_strdup(gname); else gname_utf8 = oscar_utf8_try_convert(account, od, gname); } else gname_utf8 = NULL; g = purple_find_group(gname_utf8 ? gname_utf8 : _("Orphans")); if (g == NULL) { g = purple_group_new(gname_utf8 ? gname_utf8 : _("Orphans")); purple_blist_add_group(g, NULL); } alias = aim_ssi_getalias(od->ssi.local, gname, curitem->name); if (alias != NULL) { if (g_utf8_validate(alias, -1, NULL)) alias_utf8 = g_strdup(alias); else alias_utf8 = oscar_utf8_try_convert(account, od, alias); g_free(alias); } else alias_utf8 = NULL; b = purple_find_buddy_in_group(account, curitem->name, g); if (b) { /* Get server stored alias */ purple_blist_alias_buddy(b, alias_utf8); } else { b = purple_buddy_new(account, curitem->name, alias_utf8); purple_debug_info("oscar", "ssi: adding buddy %s to group %s to local list\n", curitem->name, gname); purple_blist_add_buddy(b, NULL, g, NULL); } if (!oscar_util_name_compare(curitem->name, purple_account_get_username(account))) { char *comment = aim_ssi_getcomment(od->ssi.local, gname, curitem->name); if (comment != NULL) { purple_check_comment(od, comment); g_free(comment); } } /* Mobile users should always be online */ if (curitem->name[0] == '+') { purple_prpl_got_user_status(account, purple_buddy_get_name(b), OSCAR_STATUS_ID_AVAILABLE, NULL); purple_prpl_got_user_status(account, purple_buddy_get_name(b), OSCAR_STATUS_ID_MOBILE, NULL); } g_free(gname_utf8); g_free(alias_utf8); } } break; case AIM_SSI_TYPE_GROUP: { /* Group */ char *gname; char *gname_utf8; gname = curitem->name; if (gname != NULL) { if (g_utf8_validate(gname, -1, NULL)) gname_utf8 = g_strdup(gname); else gname_utf8 = oscar_utf8_try_convert(account, od, gname); } else gname_utf8 = NULL; if (gname_utf8 != NULL && purple_find_group(gname_utf8) == NULL) { g = purple_group_new(gname_utf8); purple_blist_add_group(g, NULL); } g_free(gname_utf8); } break; case AIM_SSI_TYPE_PERMIT: { /* Permit buddy */ if (curitem->name) { /* if (!find_permdeny_by_name(gc->permit, curitem->name)) { AAA */ GSList *list; for (list=account->permit; (list && oscar_util_name_compare(curitem->name, list->data)); list=list->next); if (!list) { purple_debug_info("oscar", "ssi: adding permit buddy %s to local list\n", curitem->name); purple_privacy_permit_add(account, curitem->name, TRUE); } } } break; case AIM_SSI_TYPE_DENY: { /* Deny buddy */ if (curitem->name) { GSList *list; for (list=account->deny; (list && oscar_util_name_compare(curitem->name, list->data)); list=list->next); if (!list) { purple_debug_info("oscar", "ssi: adding deny buddy %s to local list\n", curitem->name); purple_privacy_deny_add(account, curitem->name, TRUE); } } } break; case AIM_SSI_TYPE_PDINFO: { /* Permit/deny setting */ /* * We don't inherit the permit/deny setting from the server * for ICQ because, for ICQ, this setting controls who can * see your online status when you are invisible. Thus it is * a part of your status and not really related to blocking. */ if (!od->icq && curitem->data) { guint8 perm_deny = aim_ssi_getpermdeny(od->ssi.local); if (perm_deny != 0 && perm_deny != account->perm_deny) { purple_debug_info("oscar", "ssi: changing permdeny from %d to %hhu\n", account->perm_deny, perm_deny); account->perm_deny = perm_deny; } } } break; case AIM_SSI_TYPE_PRESENCEPREFS: { /* Presence setting */ /* We don't want to change Purple's setting because it applies to all accounts */ } break; } /* End of switch on curitem->type */ } /* End of for loop */ oscar_set_status_icq(account); /* Activate SSI */ /* Sending the enable causes other people to be able to see you, and you to see them */ /* Make sure your privacy setting/invisibility is set how you want it before this! */ purple_debug_info("oscar", "ssi: activating server-stored buddy list\n"); aim_ssi_enable(od); /* * Make sure our server-stored icon is updated correctly in * the event that the local user set a new icon while this * account was offline. */ img = purple_buddy_icons_find_account_icon(account); oscar_set_icon(gc, img); purple_imgstore_unref(img); /* * If we've already received our bos rights then we're not waiting on * anything else, so send the server clientready. */ if (od->bos.have_rights) { aim_srv_clientready(od, conn); /* Request offline messages for AIM and ICQ */ aim_im_reqofflinemsgs(od); purple_connection_set_state(gc, PURPLE_CONNECTED); } return 1; } static int purple_ssi_parseack(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; va_list ap; struct aim_ssi_tmp *retval; va_start(ap, fr); retval = va_arg(ap, struct aim_ssi_tmp *); va_end(ap); while (retval) { purple_debug_misc("oscar", "ssi: status is 0x%04hx for a 0x%04hx action with name %s\n", retval->ack, retval->action, retval->item ? (retval->item->name ? retval->item->name : "no name") : "no item"); if (retval->ack != 0xffff) switch (retval->ack) { case 0x0000: { /* added successfully */ } break; case 0x000c: { /* you are over the limit, the cheat is to the limit, come on fhqwhgads */ gchar *buf; buf = g_strdup_printf(_("Unable to add the buddy %s because you have too many buddies in your buddy list. Please remove one and try again."), (retval->name ? retval->name : _("(no name)"))); if ((retval->name != NULL) && !purple_conv_present_error(retval->name, purple_connection_get_account(gc), buf)) purple_notify_error(gc, NULL, _("Unable to Add"), buf); g_free(buf); } case 0x000e: { /* buddy requires authorization */ if ((retval->action == SNAC_SUBTYPE_FEEDBAG_ADD) && (retval->name)) purple_auth_sendrequest(gc, retval->name); } break; default: { /* La la la */ gchar *buf; purple_debug_error("oscar", "ssi: Action 0x%04hx was unsuccessful with error 0x%04hx\n", retval->action, retval->ack); buf = g_strdup_printf(_("Unable to add the buddy %s for an unknown reason."), (retval->name ? retval->name : _("(no name)"))); if ((retval->name != NULL) && !purple_conv_present_error(retval->name, purple_connection_get_account(gc), buf)) purple_notify_error(gc, NULL, _("Unable to Add"), buf); g_free(buf); } break; } retval = retval->next; } return 1; } static int purple_ssi_parseaddmod(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc; PurpleAccount *account; char *gname, *gname_utf8, *alias, *alias_utf8; PurpleBuddy *b; PurpleGroup *g; struct aim_ssi_item *ssi_item; va_list ap; guint16 snac_subtype, type; const char *name; gc = od->gc; account = purple_connection_get_account(gc); va_start(ap, fr); snac_subtype = (guint16)va_arg(ap, int); type = (guint16)va_arg(ap, int); name = va_arg(ap, char *); va_end(ap); if ((type != 0x0000) || (name == NULL)) return 1; gname = aim_ssi_itemlist_findparentname(od->ssi.local, name); gname_utf8 = gname ? oscar_utf8_try_convert(account, od, gname) : NULL; alias = aim_ssi_getalias(od->ssi.local, gname, name); if (alias != NULL) { if (g_utf8_validate(alias, -1, NULL)) alias_utf8 = g_strdup(alias); else alias_utf8 = oscar_utf8_try_convert(account, od, alias); } else alias_utf8 = NULL; g_free(alias); b = purple_find_buddy(account, name); if (b) { /* * You're logged in somewhere else and you aliased one * of your buddies, so update our local buddy list with * the person's new alias. */ purple_blist_alias_buddy(b, alias_utf8); } else if (snac_subtype == 0x0008) { /* * You're logged in somewhere else and you added a buddy to * your server list, so add them to your local buddy list. */ b = purple_buddy_new(account, name, alias_utf8); if (!(g = purple_find_group(gname_utf8 ? gname_utf8 : _("Orphans")))) { g = purple_group_new(gname_utf8 ? gname_utf8 : _("Orphans")); purple_blist_add_group(g, NULL); } purple_debug_info("oscar", "ssi: adding buddy %s to group %s to local list\n", name, gname_utf8 ? gname_utf8 : _("Orphans")); purple_blist_add_buddy(b, NULL, g, NULL); /* Mobile users should always be online */ if (name[0] == '+') { purple_prpl_got_user_status(account, name, OSCAR_STATUS_ID_AVAILABLE, NULL); purple_prpl_got_user_status(account, name, OSCAR_STATUS_ID_MOBILE, NULL); } } ssi_item = aim_ssi_itemlist_finditem(od->ssi.local, gname, name, AIM_SSI_TYPE_BUDDY); if (ssi_item == NULL) { purple_debug_error("oscar", "purple_ssi_parseaddmod: " "Could not find ssi item for oncoming buddy %s, " "group %s\n", name, gname); } g_free(gname_utf8); g_free(alias_utf8); return 1; } static int purple_ssi_authgiven(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; va_list ap; char *bn, *msg; gchar *dialog_msg, *nombre; struct name_data *data; PurpleBuddy *buddy; va_start(ap, fr); bn = va_arg(ap, char *); msg = va_arg(ap, char *); va_end(ap); purple_debug_info("oscar", "ssi: %s has given you permission to add him to your buddy list\n", bn); buddy = purple_find_buddy(purple_connection_get_account(gc), bn); if (buddy && (purple_buddy_get_alias_only(buddy))) nombre = g_strdup_printf("%s (%s)", bn, purple_buddy_get_alias_only(buddy)); else nombre = g_strdup(bn); dialog_msg = g_strdup_printf(_("The user %s has given you permission to add him or her to your buddy list. Do you want to add this user?"), nombre); g_free(nombre); data = g_new(struct name_data, 1); data->gc = gc; data->name = g_strdup(bn); data->nick = (buddy ? g_strdup(purple_buddy_get_alias_only(buddy)) : NULL); purple_request_yes_no(gc, NULL, _("Authorization Given"), dialog_msg, PURPLE_DEFAULT_ACTION_NONE, purple_connection_get_account(gc), bn, NULL, data, G_CALLBACK(purple_icq_buddyadd), G_CALLBACK(oscar_free_name_data)); g_free(dialog_msg); return 1; } static int purple_ssi_authrequest(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; va_list ap; const char *bn; const char *msg; PurpleAccount *account = purple_connection_get_account(gc); struct name_data *data; PurpleBuddy *buddy; va_start(ap, fr); bn = va_arg(ap, const char *); msg = va_arg(ap, const char *); va_end(ap); purple_debug_info("oscar", "ssi: received authorization request from %s\n", bn); buddy = purple_find_buddy(account, bn); if (!msg) { purple_debug_warning("oscar", "Received auth request from %s with " "empty message\n", bn); } else if (!g_utf8_validate(msg, -1, NULL)) { purple_debug_warning("oscar", "Received auth request from %s with " "invalid UTF-8 message\n", bn); msg = NULL; } data = g_new(struct name_data, 1); data->gc = gc; data->name = g_strdup(bn); data->nick = (buddy ? g_strdup(purple_buddy_get_alias_only(buddy)) : NULL); purple_account_request_authorization(account, bn, NULL, (buddy ? purple_buddy_get_alias_only(buddy) : NULL), msg, buddy != NULL, purple_auth_grant, purple_auth_dontgrant_msgprompt, data); return 1; } static int purple_ssi_authreply(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; va_list ap; char *bn, *msg; gchar *dialog_msg, *nombre; guint8 reply; PurpleBuddy *buddy; va_start(ap, fr); bn = va_arg(ap, char *); reply = (guint8)va_arg(ap, int); msg = va_arg(ap, char *); va_end(ap); purple_debug_info("oscar", "ssi: received authorization reply from %s. Reply is 0x%04hhx\n", bn, reply); buddy = purple_find_buddy(purple_connection_get_account(gc), bn); if (buddy && (purple_buddy_get_alias_only(buddy))) nombre = g_strdup_printf("%s (%s)", bn, purple_buddy_get_alias_only(buddy)); else nombre = g_strdup(bn); if (reply) { /* Granted */ dialog_msg = g_strdup_printf(_("The user %s has granted your request to add them to your buddy list."), nombre); purple_notify_info(gc, NULL, _("Authorization Granted"), dialog_msg); } else { /* Denied */ dialog_msg = g_strdup_printf(_("The user %s has denied your request to add them to your buddy list for the following reason:\n%s"), nombre, msg ? msg : _("No reason given.")); purple_notify_info(gc, NULL, _("Authorization Denied"), dialog_msg); } g_free(dialog_msg); g_free(nombre); return 1; } static int purple_ssi_gotadded(OscarData *od, FlapConnection *conn, FlapFrame *fr, ...) { PurpleConnection *gc = od->gc; PurpleAccount *account = purple_connection_get_account(gc); va_list ap; char *bn; PurpleBuddy *buddy; va_start(ap, fr); bn = va_arg(ap, char *); va_end(ap); buddy = purple_find_buddy(account, bn); purple_debug_info("oscar", "ssi: %s added you to their buddy list\n", bn); purple_account_notify_added(account, bn, NULL, (buddy ? purple_buddy_get_alias_only(buddy) : NULL), NULL); return 1; } GList *oscar_chat_info(PurpleConnection *gc) { GList *m = NULL; struct proto_chat_entry *pce; pce = g_new0(struct proto_chat_entry, 1); pce->label = _("_Room:"); pce->identifier = "room"; pce->required = TRUE; m = g_list_append(m, pce); pce = g_new0(struct proto_chat_entry, 1); pce->label = _("_Exchange:"); pce->identifier = "exchange"; pce->required = TRUE; pce->is_int = TRUE; pce->min = 4; pce->max = 20; m = g_list_append(m, pce); return m; } GHashTable *oscar_chat_info_defaults(PurpleConnection *gc, const char *chat_name) { GHashTable *defaults; defaults = g_hash_table_new_full(g_str_hash, g_str_equal, NULL, g_free); if (chat_name != NULL) g_hash_table_insert(defaults, "room", g_strdup(chat_name)); g_hash_table_insert(defaults, "exchange", g_strdup("4")); return defaults; } char * oscar_get_chat_name(GHashTable *data) { return g_strdup(g_hash_table_lookup(data, "room")); } void oscar_join_chat(PurpleConnection *gc, GHashTable *data) { OscarData *od = purple_connection_get_protocol_data(gc); FlapConnection *conn; char *name, *exchange; int exchange_int; name = g_hash_table_lookup(data, "room"); exchange = g_hash_table_lookup(data, "exchange"); g_return_if_fail(name != NULL && *name != '\0'); g_return_if_fail(exchange != NULL); errno = 0; exchange_int = strtol(exchange, NULL, 10); g_return_if_fail(errno == 0); purple_debug_info("oscar", "Attempting to join chat room %s.\n", name); if ((conn = flap_connection_getbytype(od, SNAC_FAMILY_CHATNAV))) { purple_debug_info("oscar", "chatnav exists, creating room\n"); aim_chatnav_createroom(od, conn, name, exchange_int); } else { /* this gets tricky */ struct create_room *cr = g_new0(struct create_room, 1); purple_debug_info("oscar", "chatnav does not exist, opening chatnav\n"); cr->exchange = exchange_int; cr->name = g_strdup(name); od->create_rooms = g_slist_prepend(od->create_rooms, cr); aim_srv_requestnew(od, SNAC_FAMILY_CHATNAV); } } void oscar_chat_invite(PurpleConnection *gc, int id, const char *message, const char *name) { OscarData *od = purple_connection_get_protocol_data(gc); struct chat_connection *ccon = find_oscar_chat(gc, id); if (ccon == NULL) return; aim_im_sendch2_chatinvite(od, name, message ? message : "", ccon->exchange, ccon->name, 0x0); } void oscar_chat_leave(PurpleConnection *gc, int id) { PurpleConversation *conv; struct chat_connection *cc; conv = purple_find_chat(gc, id); g_return_if_fail(conv != NULL); purple_debug_info("oscar", "Leaving chat room %s\n", purple_conversation_get_name(conv)); cc = find_oscar_chat(gc, purple_conv_chat_get_id(PURPLE_CONV_CHAT(conv))); oscar_chat_kill(gc, cc); } int oscar_send_chat(PurpleConnection *gc, int id, const char *message, PurpleMessageFlags flags) { OscarData *od = purple_connection_get_protocol_data(gc); PurpleConversation *conv = NULL; struct chat_connection *c = NULL; char *buf, *buf2, *buf3; guint16 charset, charsubset; char *charsetstr = NULL; int len; if (!(conv = purple_find_chat(gc, id))) return -EINVAL; if (!(c = find_oscar_chat_by_conv(gc, conv))) return -EINVAL; buf = purple_strdup_withhtml(message); if (strstr(buf, "<IMG ")) purple_conversation_write(conv, "", _("Your IM Image was not sent. " "You cannot send IM Images in AIM chats."), PURPLE_MESSAGE_ERROR, time(NULL)); purple_plugin_oscar_convert_to_best_encoding(gc, NULL, buf, &buf2, &len, &charset, &charsubset); /* * Evan S. suggested that maxvis really does mean "number of * visible characters" and not "number of bytes" */ if ((len > c->maxlen) || (len > c->maxvis)) { /* If the length was too long, try stripping the HTML and then running it back through * purple_strdup_withhtml() and the encoding process. The result may be shorter. */ g_free(buf2); buf3 = purple_markup_strip_html(buf); g_free(buf); buf = purple_strdup_withhtml(buf3); g_free(buf3); purple_plugin_oscar_convert_to_best_encoding(gc, NULL, buf, &buf2, &len, &charset, &charsubset); if ((len > c->maxlen) || (len > c->maxvis)) { purple_debug_warning("oscar", "Could not send %s because (%i > maxlen %i) or (%i > maxvis %i)\n", buf2, len, c->maxlen, len, c->maxvis); g_free(buf); g_free(buf2); return -E2BIG; } purple_debug_info("oscar", "Sending %s as %s because the original was too long.\n", message, buf2); } if (charset == AIM_CHARSET_ASCII) charsetstr = "us-ascii"; else if (charset == AIM_CHARSET_UNICODE) charsetstr = "unicode-2-0"; else if (charset == AIM_CHARSET_LATIN_1) charsetstr = "iso-8859-1"; aim_chat_send_im(od, c->conn, 0, buf2, len, charsetstr, "en"); g_free(buf2); g_free(buf); return 0; } PurpleMood* oscar_get_purple_moods(PurpleAccount *account) { return icq_get_purple_moods(account); } const char *oscar_list_icon_icq(PurpleAccount *a, PurpleBuddy *b) { const char *name = b ? purple_buddy_get_name(b) : NULL; if ((b == NULL) || (name == NULL) || oscar_util_valid_name_sms(name)) { if (a == NULL || oscar_util_valid_name_icq(purple_account_get_username(a))) return "icq"; else return "aim"; } if (oscar_util_valid_name_icq(name)) return "icq"; return "aim"; } const char *oscar_list_icon_aim(PurpleAccount *a, PurpleBuddy *b) { const char *name = b ? purple_buddy_get_name(b) : NULL; if ((b == NULL) || (name == NULL) || oscar_util_valid_name_sms(name)) { if (a != NULL && oscar_util_valid_name_icq(purple_account_get_username(a))) return "icq"; else return "aim"; } if (oscar_util_valid_name_icq(name)) return "icq"; return "aim"; } const char *oscar_list_emblem(PurpleBuddy *b) { PurpleConnection *gc = NULL; OscarData *od = NULL; PurpleAccount *account = NULL; PurplePresence *presence; PurpleStatus *status; const char *status_id; aim_userinfo_t *userinfo = NULL; const char *name; account = purple_buddy_get_account(b); name = purple_buddy_get_name(b); if (account != NULL) gc = purple_account_get_connection(account); if (gc != NULL) od = purple_connection_get_protocol_data(gc); if (od != NULL) userinfo = aim_locate_finduserinfo(od, name); presence = purple_buddy_get_presence(b); status = purple_presence_get_active_status(presence); status_id = purple_status_get_id(status); if (purple_presence_is_online(presence) == FALSE) { char *gname; if ((name) && (od) && (od->ssi.received_data) && (gname = aim_ssi_itemlist_findparentname(od->ssi.local, name)) && (aim_ssi_waitingforauth(od->ssi.local, gname, name))) { return "not-authorized"; } } if (userinfo != NULL ) { if (userinfo->flags & AIM_FLAG_ADMINISTRATOR) return "admin"; if (userinfo->flags & AIM_FLAG_ACTIVEBUDDY) return "bot"; if (userinfo->capabilities & OSCAR_CAPABILITY_SECUREIM) return "secure"; if (userinfo->icqinfo.status & AIM_ICQ_STATE_BIRTHDAY) return "birthday"; /* Make the mood icon override anything below this. */ if (purple_presence_is_status_primitive_active(presence, PURPLE_STATUS_MOOD)) return NULL; if (userinfo->capabilities & OSCAR_CAPABILITY_HIPTOP) return "hiptop"; } return NULL; } void oscar_tooltip_text(PurpleBuddy *b, PurpleNotifyUserInfo *user_info, gboolean full) { PurpleConnection *gc; PurpleAccount *account; OscarData *od; aim_userinfo_t *userinfo; if (!PURPLE_BUDDY_IS_ONLINE(b)) return; account = purple_buddy_get_account(b); gc = purple_account_get_connection(account); od = purple_connection_get_protocol_data(gc); userinfo = aim_locate_finduserinfo(od, purple_buddy_get_name(b)); oscar_user_info_append_status(gc, user_info, b, userinfo, /* strip_html_tags */ TRUE); if (full) oscar_user_info_append_extra_info(gc, user_info, b, userinfo); } char *oscar_status_text(PurpleBuddy *b) { PurpleConnection *gc; PurpleAccount *account; OscarData *od; const PurplePresence *presence; const PurpleStatus *status; const char *id; const char *message; gchar *ret = NULL; gc = purple_account_get_connection(purple_buddy_get_account(b)); account = purple_connection_get_account(gc); od = purple_connection_get_protocol_data(gc); presence = purple_buddy_get_presence(b); status = purple_presence_get_active_status(presence); id = purple_status_get_id(status); if ((od != NULL) && !purple_presence_is_online(presence)) { const char *name = purple_buddy_get_name(b); char *gname = aim_ssi_itemlist_findparentname(od->ssi.local, name); if (aim_ssi_waitingforauth(od->ssi.local, gname, name)) ret = g_strdup(_("Not Authorized")); else ret = g_strdup(_("Offline")); } else { message = purple_status_get_attr_string(status, "message"); if (message != NULL) { gchar *tmp1, *tmp2; tmp1 = purple_markup_strip_html(message); purple_util_chrreplace(tmp1, '\n', ' '); tmp2 = g_markup_escape_text(tmp1, -1); ret = purple_str_sub_away_formatters(tmp2, purple_account_get_username(account)); g_free(tmp1); g_free(tmp2); } else if (purple_status_is_available(status)) { /* Don't show "Available" as status message in case buddy doesn't have a status message */ } else { ret = g_strdup(purple_status_get_name(status)); } } return ret; } void oscar_set_permit_deny(PurpleConnection *gc) { PurpleAccount *account = purple_connection_get_account(gc); OscarData *od = purple_connection_get_protocol_data(gc); PurplePrivacyType perm_deny; /* * For ICQ the permit/deny setting controls who you can see you * online when you set your status to "invisible." If we're ICQ * and we're invisible then we need to use one of * PURPLE_PRIVACY_ALLOW_USERS or PURPLE_PRIVACY_ALLOW_BUDDYLIST or * PURPLE_PRIVACY_DENY_USERS if we actually want to be invisible * to anyone. * * These three permit/deny settings correspond to: * 1. Invisible to everyone except the people on my "permit" list * 2. Invisible to everyone except the people on my buddy list * 3. Invisible only to the people on my "deny" list * * It would be nice to allow cases 2 and 3, but our UI doesn't have * a nice way to do it. For now we just force case 1. */ if (od->icq && purple_account_is_status_active(account, OSCAR_STATUS_ID_INVISIBLE)) perm_deny = PURPLE_PRIVACY_ALLOW_USERS; else perm_deny = account->perm_deny; if (od->ssi.received_data) /* * Conveniently there is a one-to-one mapping between the * values of libpurple's PurplePrivacyType and the values used * by the oscar protocol. */ aim_ssi_setpermdeny(od, perm_deny, 0xffffffff); } void oscar_add_permit(PurpleConnection *gc, const char *who) { OscarData *od = purple_connection_get_protocol_data(gc); purple_debug_info("oscar", "ssi: About to add a permit\n"); if (od->ssi.received_data) aim_ssi_addpermit(od, who); } void oscar_add_deny(PurpleConnection *gc, const char *who) { OscarData *od = purple_connection_get_protocol_data(gc); purple_debug_info("oscar", "ssi: About to add a deny\n"); if (od->ssi.received_data) aim_ssi_adddeny(od, who); } void oscar_rem_permit(PurpleConnection *gc, const char *who) { OscarData *od = purple_connection_get_protocol_data(gc); purple_debug_info("oscar", "ssi: About to delete a permit\n"); if (od->ssi.received_data) aim_ssi_delpermit(od, who); } void oscar_rem_deny(PurpleConnection *gc, const char *who) { OscarData *od = purple_connection_get_protocol_data(gc); purple_debug_info("oscar", "ssi: About to delete a deny\n"); if (od->ssi.received_data) aim_ssi_deldeny(od, who); } GList * oscar_status_types(PurpleAccount *account) { gboolean is_icq; GList *status_types = NULL; PurpleStatusType *type; g_return_val_if_fail(account != NULL, NULL); /* Used to flag some statuses as "user settable" or not */ is_icq = oscar_util_valid_name_icq(purple_account_get_username(account)); /* Common status types */ /* Really the available message should only be settable for AIM accounts */ type = purple_status_type_new_with_attrs(PURPLE_STATUS_AVAILABLE, OSCAR_STATUS_ID_AVAILABLE, NULL, TRUE, TRUE, FALSE, "message", _("Message"), purple_value_new(PURPLE_TYPE_STRING), "itmsurl", _("iTunes Music Store Link"), purple_value_new(PURPLE_TYPE_STRING), NULL); status_types = g_list_prepend(status_types, type); type = purple_status_type_new_with_attrs(PURPLE_STATUS_AVAILABLE, OSCAR_STATUS_ID_FREE4CHAT, _("Free For Chat"), TRUE, is_icq, FALSE, "message", _("Message"), purple_value_new(PURPLE_TYPE_STRING), NULL); status_types = g_list_prepend(status_types, type); type = purple_status_type_new_with_attrs(PURPLE_STATUS_AVAILABLE, OSCAR_STATUS_ID_EVIL, _("Evil"), TRUE, is_icq, FALSE, "message", _("Message"), purple_value_new(PURPLE_TYPE_STRING), NULL); status_types = g_list_prepend(status_types, type); type = purple_status_type_new_with_attrs(PURPLE_STATUS_AVAILABLE, OSCAR_STATUS_ID_DEPRESSION, _("Depression"), TRUE, is_icq, FALSE, "message", _("Message"), purple_value_new(PURPLE_TYPE_STRING), NULL); status_types = g_list_prepend(status_types, type); type = purple_status_type_new_with_attrs(PURPLE_STATUS_AVAILABLE, OSCAR_STATUS_ID_ATHOME, _("At home"), TRUE, is_icq, FALSE, "message", _("Message"), purple_value_new(PURPLE_TYPE_STRING), NULL); status_types = g_list_prepend(status_types, type); type = purple_status_type_new_with_attrs(PURPLE_STATUS_AVAILABLE, OSCAR_STATUS_ID_ATWORK, _("At work"), TRUE, is_icq, FALSE, "message", _("Message"), purple_value_new(PURPLE_TYPE_STRING), NULL); status_types = g_list_prepend(status_types, type); type = purple_status_type_new_with_attrs(PURPLE_STATUS_AVAILABLE, OSCAR_STATUS_ID_LUNCH, _("Lunch"), TRUE, is_icq, FALSE, "message", _("Message"), purple_value_new(PURPLE_TYPE_STRING), NULL); status_types = g_list_prepend(status_types, type); type = purple_status_type_new_with_attrs(PURPLE_STATUS_AWAY, OSCAR_STATUS_ID_AWAY, NULL, TRUE, TRUE, FALSE, "message", _("Message"), purple_value_new(PURPLE_TYPE_STRING), NULL); status_types = g_list_prepend(status_types, type); type = purple_status_type_new_with_attrs(PURPLE_STATUS_INVISIBLE, OSCAR_STATUS_ID_INVISIBLE, NULL, TRUE, TRUE, FALSE, "message", _("Message"), purple_value_new(PURPLE_TYPE_STRING), NULL); status_types = g_list_prepend(status_types, type); type = purple_status_type_new_full(PURPLE_STATUS_MOBILE, OSCAR_STATUS_ID_MOBILE, NULL, FALSE, FALSE, TRUE); status_types = g_list_prepend(status_types, type); /* ICQ-specific status types */ type = purple_status_type_new_with_attrs(PURPLE_STATUS_UNAVAILABLE, OSCAR_STATUS_ID_OCCUPIED, _("Occupied"), TRUE, is_icq, FALSE, "message", _("Message"), purple_value_new(PURPLE_TYPE_STRING), NULL); status_types = g_list_prepend(status_types, type); type = purple_status_type_new_with_attrs(PURPLE_STATUS_UNAVAILABLE, OSCAR_STATUS_ID_DND, _("Do Not Disturb"), TRUE, is_icq, FALSE, "message", _("Message"), purple_value_new(PURPLE_TYPE_STRING), NULL); status_types = g_list_prepend(status_types, type); type = purple_status_type_new_with_attrs(PURPLE_STATUS_EXTENDED_AWAY, OSCAR_STATUS_ID_NA, _("Not Available"), TRUE, is_icq, FALSE, "message", _("Message"), purple_value_new(PURPLE_TYPE_STRING), NULL); status_types = g_list_prepend(status_types, type); type = purple_status_type_new_full(PURPLE_STATUS_OFFLINE, OSCAR_STATUS_ID_OFFLINE, NULL, TRUE, TRUE, FALSE); status_types = g_list_prepend(status_types, type); type = purple_status_type_new_with_attrs(PURPLE_STATUS_MOOD, "mood", NULL, TRUE, is_icq, TRUE, PURPLE_MOOD_NAME, _("Mood Name"), purple_value_new(PURPLE_TYPE_STRING), PURPLE_MOOD_COMMENT, _("Mood Comment"), purple_value_new(PURPLE_TYPE_STRING), NULL); status_types = g_list_prepend(status_types, type); return g_list_reverse(status_types); } static void oscar_ssi_editcomment(struct name_data *data, const char *text) { PurpleConnection *gc; PurpleAccount *account; OscarData *od; PurpleBuddy *b; PurpleGroup *g; const char *username; gc = data->gc; od = purple_connection_get_protocol_data(gc); account = purple_connection_get_account(gc); b = purple_find_buddy(account, data->name); if (b == NULL) { oscar_free_name_data(data); return; } g = purple_buddy_get_group(b); if (g == NULL) { oscar_free_name_data(data); return; } aim_ssi_editcomment(od, purple_group_get_name(g), data->name, text); username = purple_account_get_username(account); if (!oscar_util_name_compare(data->name, username)) purple_check_comment(od, text); oscar_free_name_data(data); } static void oscar_buddycb_edit_comment(PurpleBlistNode *node, gpointer ignore) { PurpleBuddy *buddy; PurpleConnection *gc; OscarData *od; struct name_data *data; PurpleGroup *g; char *comment; gchar *comment_utf8; gchar *title; PurpleAccount *account; const char *name; g_return_if_fail(PURPLE_BLIST_NODE_IS_BUDDY(node)); buddy = (PurpleBuddy *) node; name = purple_buddy_get_name(buddy); account = purple_buddy_get_account(buddy); gc = purple_account_get_connection(account); od = purple_connection_get_protocol_data(gc); if (!(g = purple_buddy_get_group(buddy))) return; data = g_new(struct name_data, 1); comment = aim_ssi_getcomment(od->ssi.local, purple_group_get_name(g), name); comment_utf8 = comment ? oscar_utf8_try_convert(account, od, comment) : NULL; data->gc = gc; data->name = g_strdup(name); data->nick = g_strdup(purple_buddy_get_alias_only(buddy)); title = g_strdup_printf(_("Buddy Comment for %s"), data->name); purple_request_input(gc, title, _("Buddy Comment:"), NULL, comment_utf8, TRUE, FALSE, NULL, _("_OK"), G_CALLBACK(oscar_ssi_editcomment), _("_Cancel"), G_CALLBACK(oscar_free_name_data), account, data->name, NULL, data); g_free(title); g_free(comment); g_free(comment_utf8); } static void oscar_ask_directim_yes_cb(struct oscar_ask_directim_data *data) { peer_connection_propose(data->od, OSCAR_CAPABILITY_DIRECTIM, data->who); g_free(data->who); g_free(data); } static void oscar_ask_directim_no_cb(struct oscar_ask_directim_data *data) { g_free(data->who); g_free(data); } /* This is called from right-click menu on a buddy node. */ static void oscar_ask_directim(gpointer object, gpointer ignored) { PurpleBlistNode *node; PurpleBuddy *buddy; PurpleConnection *gc; gchar *buf; struct oscar_ask_directim_data *data; PurpleAccount *account; node = object; g_return_if_fail(PURPLE_BLIST_NODE_IS_BUDDY(node)); buddy = (PurpleBuddy *)node; account = purple_buddy_get_account(buddy); gc = purple_account_get_connection(account); data = g_new0(struct oscar_ask_directim_data, 1); data->who = g_strdup(purple_buddy_get_name(buddy)); data->od = purple_connection_get_protocol_data(gc); buf = g_strdup_printf(_("You have selected to open a Direct IM connection with %s."), data->who); purple_request_action(gc, NULL, buf, _("Because this reveals your IP address, it " "may be considered a security risk. Do you " "wish to continue?"), 0, /* Default action is "connect" */ account, data->who, NULL, data, 2, _("C_onnect"), G_CALLBACK(oscar_ask_directim_yes_cb), _("_Cancel"), G_CALLBACK(oscar_ask_directim_no_cb)); g_free(buf); } static void oscar_close_directim(gpointer object, gpointer ignored) { PurpleBlistNode *node; PurpleBuddy *buddy; PurpleAccount *account; PurpleConnection *gc; PurpleConversation *conv; OscarData *od; PeerConnection *conn; const char *name; node = object; g_return_if_fail(PURPLE_BLIST_NODE_IS_BUDDY(node)); buddy = (PurpleBuddy*)node; name = purple_buddy_get_name(buddy); account = purple_buddy_get_account(buddy); gc = purple_account_get_connection(account); od = gc->proto_data; conn = peer_connection_find_by_type(od, name, OSCAR_CAPABILITY_DIRECTIM); if (conn != NULL) { if (!conn->ready) aim_im_sendch2_cancel(conn); peer_connection_destroy(conn, OSCAR_DISCONNECT_LOCAL_CLOSED, NULL); /* OSCAR_DISCONNECT_LOCAL_CLOSED doesn't write anything to the convo * window. Let the user know that we canceled the Direct IM. */ conv = purple_conversation_new(PURPLE_CONV_TYPE_IM, account, name); purple_conversation_write(conv, NULL, _("You closed the connection."), PURPLE_MESSAGE_SYSTEM, time(NULL)); } } static void oscar_get_icqxstatusmsg(PurpleBlistNode *node, gpointer ignore) { PurpleBuddy *buddy; PurpleConnection *gc; PurpleAccount *account; g_return_if_fail(PURPLE_BLIST_NODE_IS_BUDDY(node)); buddy = (PurpleBuddy *)node; gc = purple_account_get_connection(buddy->account); account = purple_connection_get_account(gc); purple_debug_info("oscar", "Manual X-Status Get From %s to %s:\n", purple_buddy_get_name(buddy), account->username); icq_im_xstatus_request(gc->proto_data, purple_buddy_get_name(buddy)); } static void oscar_get_aim_info_cb(PurpleBlistNode *node, gpointer ignore) { PurpleBuddy *buddy; PurpleConnection *gc; g_return_if_fail(PURPLE_BLIST_NODE_IS_BUDDY(node)); buddy = (PurpleBuddy *)node; gc = purple_account_get_connection(purple_buddy_get_account(buddy)); aim_locate_getinfoshort(purple_connection_get_protocol_data(gc), purple_buddy_get_name(buddy), 0x00000003); } static GList * oscar_buddy_menu(PurpleBuddy *buddy) { PurpleConnection *gc; OscarData *od; GList *menu; PurpleMenuAction *act; aim_userinfo_t *userinfo; PurpleAccount *account; const char *bname = purple_buddy_get_name(buddy); account = purple_buddy_get_account(buddy); gc = purple_account_get_connection(account); od = purple_connection_get_protocol_data(gc); userinfo = aim_locate_finduserinfo(od, bname); menu = NULL; if (od->icq && oscar_util_valid_name_icq(bname)) { act = purple_menu_action_new(_("Get AIM Info"), PURPLE_CALLBACK(oscar_get_aim_info_cb), NULL, NULL); menu = g_list_prepend(menu, act); } if (purple_buddy_get_group(buddy) != NULL) { /* We only do this if the user is in our buddy list */ act = purple_menu_action_new(_("Edit Buddy Comment"), PURPLE_CALLBACK(oscar_buddycb_edit_comment), NULL, NULL); menu = g_list_prepend(menu, act); } if (od->icq) { act = purple_menu_action_new(_("Get X-Status Msg"), PURPLE_CALLBACK(oscar_get_icqxstatusmsg), NULL, NULL); menu = g_list_prepend(menu, act); } if (userinfo && oscar_util_name_compare(purple_account_get_username(account), bname) && PURPLE_BUDDY_IS_ONLINE(buddy)) { PeerConnection *conn; conn = peer_connection_find_by_type(od, bname, OSCAR_CAPABILITY_DIRECTIM); if (userinfo->capabilities & OSCAR_CAPABILITY_DIRECTIM) { if (conn) { act = purple_menu_action_new(_("End Direct IM Session"), PURPLE_CALLBACK(oscar_close_directim), NULL, NULL); } else { act = purple_menu_action_new(_("Direct IM"), PURPLE_CALLBACK(oscar_ask_directim), NULL, NULL); } menu = g_list_prepend(menu, act); } #if 0 /* TODO: This menu item should be added by the core */ if (userinfo->capabilities & OSCAR_CAPABILITY_GETFILE) { act = purple_menu_action_new(_("Get File"), PURPLE_CALLBACK(oscar_ask_getfile), NULL, NULL); menu = g_list_prepend(menu, act); } #endif } if (od->ssi.received_data && purple_buddy_get_group(buddy) != NULL) { /* * We only do this if the user is in our buddy list and we're * waiting for authorization. */ char *gname; gname = aim_ssi_itemlist_findparentname(od->ssi.local, bname); if (gname && aim_ssi_waitingforauth(od->ssi.local, gname, bname)) { act = purple_menu_action_new(_("Re-request Authorization"), PURPLE_CALLBACK(purple_auth_sendrequest_menu), NULL, NULL); menu = g_list_prepend(menu, act); } } menu = g_list_reverse(menu); return menu; } GList *oscar_blist_node_menu(PurpleBlistNode *node) { if(PURPLE_BLIST_NODE_IS_BUDDY(node)) { return oscar_buddy_menu((PurpleBuddy *) node); } else { return NULL; } } static void oscar_icq_privacy_opts(PurpleConnection *gc, PurpleRequestFields *fields) { OscarData *od = purple_connection_get_protocol_data(gc); PurpleAccount *account = purple_connection_get_account(gc); PurpleRequestField *f; gboolean auth, web_aware; f = purple_request_fields_get_field(fields, "authorization"); auth = purple_request_field_bool_get_value(f); f = purple_request_fields_get_field(fields, "web_aware"); web_aware = purple_request_field_bool_get_value(f); purple_account_set_bool(account, "authorization", auth); purple_account_set_bool(account, "web_aware", web_aware); oscar_set_extendedstatus(gc); aim_icq_setsecurity(od, auth, web_aware); } static void oscar_show_icq_privacy_opts(PurplePluginAction *action) { PurpleConnection *gc = (PurpleConnection *) action->context; PurpleAccount *account = purple_connection_get_account(gc); PurpleRequestFields *fields; PurpleRequestFieldGroup *g; PurpleRequestField *f; gboolean auth, web_aware; auth = purple_account_get_bool(account, "authorization", OSCAR_DEFAULT_AUTHORIZATION); web_aware = purple_account_get_bool(account, "web_aware", OSCAR_DEFAULT_WEB_AWARE); fields = purple_request_fields_new(); g = purple_request_field_group_new(NULL); f = purple_request_field_bool_new("authorization", _("Require authorization"), auth); purple_request_field_group_add_field(g, f); f = purple_request_field_bool_new("web_aware", _("Web aware (enabling this will cause you to receive SPAM!)"), web_aware); purple_request_field_group_add_field(g, f); purple_request_fields_add_group(fields, g); purple_request_fields(gc, _("ICQ Privacy Options"), _("ICQ Privacy Options"), NULL, fields, _("OK"), G_CALLBACK(oscar_icq_privacy_opts), _("Cancel"), NULL, purple_connection_get_account(gc), NULL, NULL, gc); } void oscar_format_username(PurpleConnection *gc, const char *nick) { OscarData *od = purple_connection_get_protocol_data(gc); if (!oscar_util_name_compare(purple_account_get_username(purple_connection_get_account(gc)), nick)) { if (!flap_connection_getbytype(od, SNAC_FAMILY_ADMIN)) { od->setnick = TRUE; g_free(od->newformatting); od->newformatting = g_strdup(nick); aim_srv_requestnew(od, SNAC_FAMILY_ADMIN); } else { aim_admin_setnick(od, flap_connection_getbytype(od, SNAC_FAMILY_ADMIN), nick); } } else { purple_notify_error(gc, NULL, _("The new formatting is invalid."), _("Username formatting can change only capitalization and whitespace.")); } } static void oscar_confirm_account(PurplePluginAction *action) { PurpleConnection *gc; OscarData *od; FlapConnection *conn; gc = (PurpleConnection *)action->context; od = purple_connection_get_protocol_data(gc); conn = flap_connection_getbytype(od, SNAC_FAMILY_ADMIN); if (conn != NULL) { aim_admin_reqconfirm(od, conn); } else { od->conf = TRUE; aim_srv_requestnew(od, SNAC_FAMILY_ADMIN); } } static void oscar_show_email(PurplePluginAction *action) { PurpleConnection *gc = (PurpleConnection *) action->context; OscarData *od = purple_connection_get_protocol_data(gc); FlapConnection *conn = flap_connection_getbytype(od, SNAC_FAMILY_ADMIN); if (conn) { aim_admin_getinfo(od, conn, 0x11); } else { od->reqemail = TRUE; aim_srv_requestnew(od, SNAC_FAMILY_ADMIN); } } static void oscar_change_email(PurpleConnection *gc, const char *email) { OscarData *od = purple_connection_get_protocol_data(gc); FlapConnection *conn = flap_connection_getbytype(od, SNAC_FAMILY_ADMIN); if (conn) { aim_admin_setemail(od, conn, email); } else { od->setemail = TRUE; od->email = g_strdup(email); aim_srv_requestnew(od, SNAC_FAMILY_ADMIN); } } static void oscar_show_change_email(PurplePluginAction *action) { PurpleConnection *gc = (PurpleConnection *) action->context; purple_request_input(gc, NULL, _("Change Address To:"), NULL, NULL, FALSE, FALSE, NULL, _("_OK"), G_CALLBACK(oscar_change_email), _("_Cancel"), NULL, purple_connection_get_account(gc), NULL, NULL, gc); } static void oscar_show_awaitingauth(PurplePluginAction *action) { PurpleConnection *gc = (PurpleConnection *) action->context; OscarData *od = purple_connection_get_protocol_data(gc); gchar *text, *tmp; GSList *buddies; PurpleAccount *account; int num=0; text = g_strdup(""); account = purple_connection_get_account(gc); buddies = purple_find_buddies(account, NULL); while (buddies) { PurpleBuddy *buddy; const gchar *bname, *gname; buddy = buddies->data; bname = purple_buddy_get_name(buddy); gname = purple_group_get_name(purple_buddy_get_group(buddy)); if (aim_ssi_waitingforauth(od->ssi.local, gname, bname)) { const gchar *alias = purple_buddy_get_alias_only(buddy); if (alias) tmp = g_strdup_printf("%s %s (%s)<br>", text, bname, alias); else tmp = g_strdup_printf("%s %s<br>", text, bname); g_free(text); text = tmp; num++; } buddies = g_slist_delete_link(buddies, buddies); } if (!num) { g_free(text); text = g_strdup(_("<i>you are not waiting for authorization</i>")); } purple_notify_formatted(gc, NULL, _("You are awaiting authorization from " "the following buddies"), _("You can re-request " "authorization from these buddies by " "right-clicking on them and selecting " "\"Re-request Authorization.\""), text, NULL, NULL); g_free(text); } static void search_by_email_cb(PurpleConnection *gc, const char *email) { OscarData *od = purple_connection_get_protocol_data(gc); aim_search_address(od, email); } static void oscar_show_find_email(PurplePluginAction *action) { PurpleConnection *gc = (PurpleConnection *) action->context; purple_request_input(gc, _("Find Buddy by Email"), _("Search for a buddy by email address"), _("Type the email address of the buddy you are " "searching for."), NULL, FALSE, FALSE, NULL, _("_Search"), G_CALLBACK(search_by_email_cb), _("_Cancel"), NULL, purple_connection_get_account(gc), NULL, NULL, gc); } static void oscar_show_set_info(PurplePluginAction *action) { PurpleConnection *gc = (PurpleConnection *) action->context; purple_account_request_change_user_info(purple_connection_get_account(gc)); } static void oscar_show_set_info_icqurl(PurplePluginAction *action) { PurpleConnection *gc = (PurpleConnection *) action->context; purple_notify_uri(gc, "http://www.icq.com/whitepages/user_details.php"); } static void oscar_change_pass(PurplePluginAction *action) { PurpleConnection *gc = (PurpleConnection *) action->context; purple_account_request_change_password(purple_connection_get_account(gc)); } /** * Only used when connecting with the old-style BUCP login. */ static void oscar_show_chpassurl(PurplePluginAction *action) { PurpleConnection *gc = (PurpleConnection *) action->context; OscarData *od = purple_connection_get_protocol_data(gc); gchar *substituted = purple_strreplace(od->authinfo->chpassurl, "%s", purple_account_get_username(purple_connection_get_account(gc))); purple_notify_uri(gc, substituted); g_free(substituted); } static void oscar_show_imforwardingurl(PurplePluginAction *action) { PurpleConnection *gc = (PurpleConnection *) action->context; purple_notify_uri(gc, "http://mymobile.aol.com/dbreg/register?action=imf&clientID=1"); } void oscar_set_icon(PurpleConnection *gc, PurpleStoredImage *img) { OscarData *od = purple_connection_get_protocol_data(gc); if (img == NULL) { aim_ssi_delicon(od); } else { PurpleCipherContext *context; guchar md5[16]; gconstpointer data = purple_imgstore_get_data(img); size_t len = purple_imgstore_get_size(img); context = purple_cipher_context_new_by_name("md5", NULL); purple_cipher_context_append(context, data, len); purple_cipher_context_digest(context, 16, md5, NULL); purple_cipher_context_destroy(context); aim_ssi_seticon(od, md5, 16); } } /** * Called by the Purple core to determine whether or not we're * allowed to send a file to this user. */ gboolean oscar_can_receive_file(PurpleConnection *gc, const char *who) { OscarData *od; PurpleAccount *account; od = purple_connection_get_protocol_data(gc); account = purple_connection_get_account(gc); if (od != NULL) { aim_userinfo_t *userinfo; userinfo = aim_locate_finduserinfo(od, who); /* * Don't allowing sending a file to a user that does not support * file transfer, and don't allow sending to ourselves. */ if (((userinfo == NULL) || (userinfo->capabilities & OSCAR_CAPABILITY_SENDFILE)) && oscar_util_name_compare(who, purple_account_get_username(account))) { return TRUE; } } return FALSE; } PurpleXfer * oscar_new_xfer(PurpleConnection *gc, const char *who) { PurpleXfer *xfer; OscarData *od; PurpleAccount *account; PeerConnection *conn; od = purple_connection_get_protocol_data(gc); account = purple_connection_get_account(gc); xfer = purple_xfer_new(account, PURPLE_XFER_SEND, who); if (xfer) { purple_xfer_ref(xfer); purple_xfer_set_init_fnc(xfer, peer_oft_sendcb_init); purple_xfer_set_cancel_send_fnc(xfer, peer_oft_cb_generic_cancel); purple_xfer_set_request_denied_fnc(xfer, peer_oft_cb_generic_cancel); purple_xfer_set_ack_fnc(xfer, peer_oft_sendcb_ack); conn = peer_connection_new(od, OSCAR_CAPABILITY_SENDFILE, who); conn->flags |= PEER_CONNECTION_FLAG_INITIATED_BY_ME; conn->flags |= PEER_CONNECTION_FLAG_APPROVED; aim_icbm_makecookie(conn->cookie); conn->xfer = xfer; xfer->data = conn; } return xfer; } /* * Called by the Purple core when the user indicates that a * file is to be sent to a special someone. */ void oscar_send_file(PurpleConnection *gc, const char *who, const char *file) { PurpleXfer *xfer; xfer = oscar_new_xfer(gc, who); if (file != NULL) purple_xfer_request_accepted(xfer, file); else purple_xfer_request(xfer); } GList * oscar_actions(PurplePlugin *plugin, gpointer context) { PurpleConnection *gc = (PurpleConnection *) context; OscarData *od = purple_connection_get_protocol_data(gc); GList *menu = NULL; PurplePluginAction *act; act = purple_plugin_action_new(_("Set User Info..."), oscar_show_set_info); menu = g_list_prepend(menu, act); if (od->icq) { act = purple_plugin_action_new(_("Set User Info (web)..."), oscar_show_set_info_icqurl); menu = g_list_prepend(menu, act); } act = purple_plugin_action_new(_("Change Password..."), oscar_change_pass); menu = g_list_prepend(menu, act); if (od->authinfo != NULL && od->authinfo->chpassurl != NULL) { /* This only happens when connecting with the old-style BUCP login */ act = purple_plugin_action_new(_("Change Password (web)"), oscar_show_chpassurl); menu = g_list_prepend(menu, act); } if (!od->icq) { act = purple_plugin_action_new(_("Configure IM Forwarding (web)"), oscar_show_imforwardingurl); menu = g_list_prepend(menu, act); } menu = g_list_prepend(menu, NULL); if (od->icq) { /* ICQ actions */ act = purple_plugin_action_new(_("Set Privacy Options..."), oscar_show_icq_privacy_opts); menu = g_list_prepend(menu, act); } else { /* AIM actions */ act = purple_plugin_action_new(_("Confirm Account"), oscar_confirm_account); menu = g_list_prepend(menu, act); act = purple_plugin_action_new(_("Display Currently Registered Email Address"), oscar_show_email); menu = g_list_prepend(menu, act); act = purple_plugin_action_new(_("Change Currently Registered Email Address..."), oscar_show_change_email); menu = g_list_prepend(menu, act); } menu = g_list_prepend(menu, NULL); act = purple_plugin_action_new(_("Show Buddies Awaiting Authorization"), oscar_show_awaitingauth); menu = g_list_prepend(menu, act); menu = g_list_prepend(menu, NULL); act = purple_plugin_action_new(_("Search for Buddy by Email Address..."), oscar_show_find_email); menu = g_list_prepend(menu, act); #if 0 act = purple_plugin_action_new(_("Search for Buddy by Information"), show_find_info); menu = g_list_prepend(menu, act); #endif menu = g_list_reverse(menu); return menu; } void oscar_change_passwd(PurpleConnection *gc, const char *old, const char *new) { OscarData *od = purple_connection_get_protocol_data(gc); if (od->icq) { aim_icq_changepasswd(od, new); } else { FlapConnection *conn; conn = flap_connection_getbytype(od, SNAC_FAMILY_ADMIN); if (conn) { aim_admin_changepasswd(od, conn, new, old); } else { od->chpass = TRUE; od->oldp = g_strdup(old); od->newp = g_strdup(new); aim_srv_requestnew(od, SNAC_FAMILY_ADMIN); } } } void oscar_convo_closed(PurpleConnection *gc, const char *who) { OscarData *od; PeerConnection *conn; od = purple_connection_get_protocol_data(gc); conn = peer_connection_find_by_type(od, who, OSCAR_CAPABILITY_DIRECTIM); if (conn != NULL) { if (!conn->ready) aim_im_sendch2_cancel(conn); peer_connection_destroy(conn, OSCAR_DISCONNECT_LOCAL_CLOSED, NULL); } } const char * oscar_normalize(const PurpleAccount *account, const char *str) { static char buf[BUF_LEN]; char *tmp1, *tmp2; int i, j; g_return_val_if_fail(str != NULL, NULL); /* copy str to buf and skip all blanks */ i = 0; for (j = 0; str[j]; j++) { if (str[j] != ' ') { buf[i++] = str[j]; if (i >= BUF_LEN - 1) break; } } buf[i] = '\0'; tmp1 = g_utf8_strdown(buf, -1); tmp2 = g_utf8_normalize(tmp1, -1, G_NORMALIZE_DEFAULT); strcpy(buf, tmp2); g_free(tmp2); g_free(tmp1); return buf; } gboolean oscar_offline_message(const PurpleBuddy *buddy) { return TRUE; } /* TODO: Find somewhere to put this instead of including it in a bunch of places. * Maybe just change purple_accounts_find() to return anything for the prpl if there is no acct_id. */ static PurpleAccount *find_acct(const char *prpl, const char *acct_id) { PurpleAccount *acct = NULL; /* If we have a specific acct, use it */ if (acct_id) { acct = purple_accounts_find(acct_id, prpl); if (acct && !purple_account_is_connected(acct)) acct = NULL; } else { /* Otherwise find an active account for the protocol */ GList *l = purple_accounts_get_all(); while (l) { if (!strcmp(prpl, purple_account_get_protocol_id(l->data)) && purple_account_is_connected(l->data)) { acct = l->data; break; } l = l->next; } } return acct; } static gboolean oscar_uri_handler(const char *proto, const char *cmd, GHashTable *params) { char *acct_id = g_hash_table_lookup(params, "account"); char prpl[11]; PurpleAccount *acct; if (g_ascii_strcasecmp(proto, "aim") && g_ascii_strcasecmp(proto, "icq")) return FALSE; g_snprintf(prpl, sizeof(prpl), "prpl-%s", proto); acct = find_acct(prpl, acct_id); if (!acct) return FALSE; /* aim:GoIM?screenname=SCREENNAME&message=MESSAGE */ if (!g_ascii_strcasecmp(cmd, "GoIM")) { char *bname = g_hash_table_lookup(params, "screenname"); if (bname) { char *message = g_hash_table_lookup(params, "message"); PurpleConversation *conv = purple_find_conversation_with_account( PURPLE_CONV_TYPE_IM, bname, acct); if (conv == NULL) conv = purple_conversation_new(PURPLE_CONV_TYPE_IM, acct, bname); purple_conversation_present(conv); if (message) { /* Spaces are encoded as '+' */ g_strdelimit(message, "+", ' '); purple_conv_send_confirm(conv, message); } } /*else **If pidgindialogs_im() was in the core, we could use it here. * It is all purple_request_* based, but I'm not sure it really belongs in the core pidgindialogs_im();*/ return TRUE; } /* aim:GoChat?roomname=CHATROOMNAME&exchange=4 */ else if (!g_ascii_strcasecmp(cmd, "GoChat")) { char *rname = g_hash_table_lookup(params, "roomname"); if (rname) { /* This is somewhat hacky, but the params aren't useful after this command */ g_hash_table_insert(params, g_strdup("exchange"), g_strdup("4")); g_hash_table_insert(params, g_strdup("room"), g_strdup(rname)); serv_join_chat(purple_account_get_connection(acct), params); } /*else ** Same as above (except that this would have to be re-written using purple_request_*) pidgin_blist_joinchat_show(); */ return TRUE; } /* aim:AddBuddy?screenname=SCREENNAME&groupname=GROUPNAME*/ else if (!g_ascii_strcasecmp(cmd, "AddBuddy")) { char *bname = g_hash_table_lookup(params, "screenname"); char *gname = g_hash_table_lookup(params, "groupname"); purple_blist_request_add_buddy(acct, bname, gname, NULL); return TRUE; } return FALSE; } void oscar_init(PurplePlugin *plugin) { PurplePluginProtocolInfo *prpl_info = PURPLE_PLUGIN_PROTOCOL_INFO(plugin); PurpleAccountOption *option; static gboolean init = FALSE; option = purple_account_option_string_new(_("Server"), "server", OSCAR_DEFAULT_LOGIN_SERVER); prpl_info->protocol_options = g_list_append(prpl_info->protocol_options, option); option = purple_account_option_int_new(_("Port"), "port", OSCAR_DEFAULT_LOGIN_PORT); prpl_info->protocol_options = g_list_append(prpl_info->protocol_options, option); option = purple_account_option_bool_new(_("Use SSL"), "use_ssl", OSCAR_DEFAULT_USE_SSL); prpl_info->protocol_options = g_list_append(prpl_info->protocol_options, option); option = purple_account_option_bool_new(_("Use clientLogin"), "use_clientlogin", OSCAR_DEFAULT_USE_CLIENTLOGIN); prpl_info->protocol_options = g_list_append(prpl_info->protocol_options, option); option = purple_account_option_bool_new( _("Always use AIM/ICQ proxy server for\nfile transfers and direct IM (slower,\nbut does not reveal your IP address)"), "always_use_rv_proxy", OSCAR_DEFAULT_ALWAYS_USE_RV_PROXY); prpl_info->protocol_options = g_list_append(prpl_info->protocol_options, option); if (g_str_equal(purple_plugin_get_id(plugin), "prpl-aim")) { option = purple_account_option_bool_new(_("Allow multiple simultaneous logins"), "allow_multiple_logins", OSCAR_DEFAULT_ALLOW_MULTIPLE_LOGINS); prpl_info->protocol_options = g_list_append(prpl_info->protocol_options, option); } if (init) return; init = TRUE; /* Preferences */ purple_prefs_add_none("/plugins/prpl/oscar"); purple_prefs_add_bool("/plugins/prpl/oscar/recent_buddies", FALSE); purple_prefs_remove("/plugins/prpl/oscar/show_idle"); purple_prefs_remove("/plugins/prpl/oscar/always_use_rv_proxy"); /* protocol handler */ /* TODO: figure out a good instance to use here */ purple_signal_connect(purple_get_core(), "uri-handler", &init, PURPLE_CALLBACK(oscar_uri_handler), NULL); }