Mercurial > pidgin
view src/protocols/oscar/oscar.c @ 4121:69c049c48a96
[gaim-migrate @ 4338]
Matt's patch is more thorough
committer: Tailor Script <tailor@pidgin.im>
| author | Rob Flynn <gaim@robflynn.com> |
|---|---|
| date | Mon, 23 Dec 2002 20:32:52 +0000 |
| parents | 697217b52ebd |
| children | 1a5dcfa1823e |
line wrap: on
line source
/* * gaim * * Some code copyright (C) 1998-1999, Mark Spencer <markster@marko.net> * libfaim code copyright 1998, 1999 Adam Fritzler <afritz@auk.cx> * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License * along with this program; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * */ #ifdef HAVE_CONFIG_H #include <config.h> #endif #include <sys/types.h> /*this must happen before sys/socket.h or freebsd won't compile*/ #ifndef _WIN32 #include <netdb.h> #include <netinet/in.h> #include <arpa/inet.h> #include <sys/socket.h> #include <unistd.h> #endif #include <errno.h> #include <ctype.h> #include <string.h> #include <stdlib.h> #include <stdio.h> #include <time.h> #include <sys/stat.h> #include <signal.h> #include "multi.h" #include "prpl.h" #include "gaim.h" #include "aim.h" #include "proxy.h" #ifdef _WIN32 #include "win32dep.h" #endif #include "pixmaps/protocols/oscar/ab.xpm" #include "pixmaps/protocols/oscar/admin_icon.xpm" #include "pixmaps/protocols/oscar/aol_icon.xpm" #include "pixmaps/protocols/oscar/away_icon.xpm" #include "pixmaps/protocols/oscar/dt_icon.xpm" #include "pixmaps/protocols/oscar/free_icon.xpm" #include "pixmaps/protocols/oscar/wireless_icon.xpm" #include "pixmaps/protocols/icq/gnomeicu-online.xpm" #include "pixmaps/protocols/icq/gnomeicu-offline.xpm" #include "pixmaps/protocols/icq/gnomeicu-away.xpm" #include "pixmaps/protocols/icq/gnomeicu-dnd.xpm" #include "pixmaps/protocols/icq/gnomeicu-na.xpm" #include "pixmaps/protocols/icq/gnomeicu-occ.xpm" #include "pixmaps/protocols/icq/gnomeicu-ffc.xpm" /* constants to identify proto_opts */ #define USEROPT_AUTH 0 #define USEROPT_AUTHPORT 1 #define UC_AOL 0x02 #define UC_ADMIN 0x04 #define UC_UNCONFIRMED 0x08 #define UC_NORMAL 0x10 #define UC_AB 0x20 #define UC_WIRELESS 0x40 #define AIMHASHDATA "http://gaim.sourceforge.net/aim_data.php3" /* For win32 compatability */ G_MODULE_IMPORT GSList *connections; G_MODULE_IMPORT int report_idle; static int caps_aim = AIM_CAPS_CHAT | AIM_CAPS_BUDDYICON | AIM_CAPS_IMIMAGE | AIM_CAPS_SENDFILE; /* Set AIM caps, because Gaim can still do them over ICQ and * Winicq doesn't mind. */ static int caps_icq = AIM_CAPS_CHAT | AIM_CAPS_BUDDYICON | AIM_CAPS_IMIMAGE; /* static int caps_icq = AIM_CAPS_ICQ; */ /* What does AIM_CAPS_ICQ actually mean? -SE */ static fu8_t gaim_features[] = {0x01, 0x01, 0x01, 0x02}; struct oscar_data { aim_session_t *sess; aim_conn_t *conn; guint cnpa; guint paspa; guint emlpa; GSList *create_rooms; gboolean conf; gboolean reqemail; gboolean setemail; char *email; gboolean setnick; char *newsn; gboolean chpass; char *oldp; char *newp; GSList *oscar_chats; GSList *direct_ims; GSList *file_transfers; GSList *hasicons; GHashTable *supports_tn; gboolean killme; gboolean icq; GSList *evilhack; struct { guint maxbuddies; /* max users you can watch */ guint maxwatchers; /* max users who can watch you */ guint maxpermits; /* max users on permit list */ guint maxdenies; /* max users on deny list */ guint maxsiglen; /* max size (bytes) of profile */ guint maxawaymsglen; /* max size (bytes) of posted away message */ } rights; }; struct create_room { char *name; int exchange; }; struct chat_connection { char *name; char *show; /* AOL did something funny to us */ fu16_t exchange; fu16_t instance; int fd; /* this is redundant since we have the conn below */ aim_conn_t *conn; int inpa; int id; struct gaim_connection *gc; /* i hate this. */ struct conversation *cnv; /* bah. */ int maxlen; int maxvis; }; struct direct_im { struct gaim_connection *gc; char name[80]; int watcher; aim_conn_t *conn; gboolean connected; }; struct ask_direct { struct gaim_connection *gc; char *sn; char ip[64]; fu8_t cookie[8]; }; struct oscar_file_transfer { enum { OFT_SENDFILE_IN, OFT_SENDFILE_OUT } type; aim_conn_t *conn; struct file_transfer *xfer; char *sn; char ip[64]; fu16_t port; fu8_t cookie[8]; int totsize; int filesdone; int totfiles; int watcher; }; struct icon_req { char *user; time_t timestamp; unsigned long length; unsigned long checksum; gboolean request; }; struct channel4_data { struct gaim_connection *gc; gchar *uin; gchar *nick; }; static struct direct_im *find_direct_im(struct oscar_data *od, const char *who) { GSList *d = od->direct_ims; char *n = g_strdup(normalize(who)); struct direct_im *m = NULL; while (d) { m = (struct direct_im *)d->data; if (!strcmp(n, normalize(m->name))) break; m = NULL; d = d->next; } g_free(n); return m; } 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, '-'); 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(struct gaim_connection *gc, int id) { GSList *g = ((struct oscar_data *)gc->proto_data)->oscar_chats; struct chat_connection *c = NULL; while (g) { c = (struct chat_connection *)g->data; if (c->id == id) break; g = g->next; c = NULL; } return c; } static struct chat_connection *find_oscar_chat_by_conn(struct gaim_connection *gc, aim_conn_t *conn) { GSList *g = ((struct oscar_data *)gc->proto_data)->oscar_chats; struct chat_connection *c = NULL; while (g) { c = (struct chat_connection *)g->data; if (c->conn == conn) break; g = g->next; c = NULL; } return c; } /* XXX there must be a better way than this.... -- wtm */ static struct oscar_file_transfer *find_oft_by_conn(struct gaim_connection *gc, aim_conn_t *conn) { GSList *g = ((struct oscar_data *)gc->proto_data)->file_transfers; struct oscar_file_transfer *f = NULL; while (g) { f = (struct oscar_file_transfer *)g->data; if (f->conn == conn) break; g = g->next; f = NULL; } return f; } static struct oscar_file_transfer *find_oft_by_xfer(struct gaim_connection *gc, struct file_transfer *xfer) { GSList *g = ((struct oscar_data *)gc->proto_data)->file_transfers; struct oscar_file_transfer *f = NULL; while (g) { f = (struct oscar_file_transfer *)g->data; if (f->xfer == xfer) break; g = g->next; f = NULL; } return f; } static struct oscar_file_transfer *find_oft_by_cookie(struct gaim_connection *gc, const char *cookie) { GSList *g = ((struct oscar_data *)gc->proto_data)->file_transfers; struct oscar_file_transfer *f = NULL; while (g) { f = (struct oscar_file_transfer *)g->data; if (!strncmp(f->cookie, cookie, 8)) break; g = g->next; f = NULL; } return f; } static int gaim_parse_auth_resp (aim_session_t *, aim_frame_t *, ...); static int gaim_parse_login (aim_session_t *, aim_frame_t *, ...); static int gaim_handle_redirect (aim_session_t *, aim_frame_t *, ...); static int gaim_info_change (aim_session_t *, aim_frame_t *, ...); static int gaim_account_confirm (aim_session_t *, aim_frame_t *, ...); static int gaim_parse_oncoming (aim_session_t *, aim_frame_t *, ...); static int gaim_parse_offgoing (aim_session_t *, aim_frame_t *, ...); static int gaim_parse_incoming_im(aim_session_t *, aim_frame_t *, ...); static int gaim_parse_misses (aim_session_t *, aim_frame_t *, ...); static int gaim_parse_clientauto (aim_session_t *, aim_frame_t *, ...); static int gaim_parse_user_info (aim_session_t *, aim_frame_t *, ...); static int gaim_parse_motd (aim_session_t *, aim_frame_t *, ...); static int gaim_chatnav_info (aim_session_t *, aim_frame_t *, ...); static int gaim_chat_join (aim_session_t *, aim_frame_t *, ...); static int gaim_chat_leave (aim_session_t *, aim_frame_t *, ...); static int gaim_chat_info_update (aim_session_t *, aim_frame_t *, ...); static int gaim_chat_incoming_msg(aim_session_t *, aim_frame_t *, ...); static int gaim_email_parseupdate(aim_session_t *, aim_frame_t *, ...); static int gaim_parse_msgack (aim_session_t *, aim_frame_t *, ...); static int gaim_parse_ratechange (aim_session_t *, aim_frame_t *, ...); static int gaim_parse_evilnotify (aim_session_t *, aim_frame_t *, ...); static int gaim_parse_searcherror(aim_session_t *, aim_frame_t *, ...); static int gaim_parse_searchreply(aim_session_t *, aim_frame_t *, ...); static int gaim_bosrights (aim_session_t *, aim_frame_t *, ...); static int conninitdone_admin (aim_session_t *, aim_frame_t *, ...); static int conninitdone_bos (aim_session_t *, aim_frame_t *, ...); static int conninitdone_chatnav (aim_session_t *, aim_frame_t *, ...); static int conninitdone_chat (aim_session_t *, aim_frame_t *, ...); static int conninitdone_email (aim_session_t *, aim_frame_t *, ...); static int gaim_parse_msgerr (aim_session_t *, aim_frame_t *, ...); static int gaim_parse_mtn (aim_session_t *, aim_frame_t *, ...); static int gaim_parse_locaterights(aim_session_t *, aim_frame_t *, ...); static int gaim_parse_buddyrights(aim_session_t *, aim_frame_t *, ...); static int gaim_parse_locerr (aim_session_t *, aim_frame_t *, ...); static int gaim_icbm_param_info (aim_session_t *, aim_frame_t *, ...); static int gaim_parse_genericerr (aim_session_t *, aim_frame_t *, ...); static int gaim_memrequest (aim_session_t *, aim_frame_t *, ...); static int gaim_selfinfo (aim_session_t *, aim_frame_t *, ...); static int gaim_offlinemsg (aim_session_t *, aim_frame_t *, ...); static int gaim_offlinemsgdone (aim_session_t *, aim_frame_t *, ...); static int gaim_simpleinfo (aim_session_t *, aim_frame_t *, ...); static int gaim_popup (aim_session_t *, aim_frame_t *, ...); static int gaim_ssi_parserights (aim_session_t *, aim_frame_t *, ...); static int gaim_ssi_parselist (aim_session_t *, aim_frame_t *, ...); static int gaim_directim_initiate(aim_session_t *, aim_frame_t *, ...); static int gaim_directim_incoming(aim_session_t *, aim_frame_t *, ...); static int gaim_directim_typing (aim_session_t *, aim_frame_t *, ...); static int gaim_update_ui (aim_session_t *, aim_frame_t *, ...); static int oscar_file_transfer_do(aim_session_t *, aim_frame_t *, ...); static void oscar_file_transfer_disconnect(aim_session_t *, aim_conn_t *); static void oscar_file_transfer_cancel(struct gaim_connection *, struct file_transfer *); static int oscar_sendfile_request(aim_session_t *sess, struct oscar_file_transfer *oft); static int oscar_sendfile_timeout(aim_session_t *sess, aim_frame_t *fr, ...); static char *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_("Too evil (sender)"), N_("Too evil (receiver)"), N_("User temporarily unavailable"), N_("No match"), N_("List overflow"), N_("Request ambiguous"), N_("Queue full"), N_("Not while on AOL") }; static int msgerrreasonlen = 25; /* * This is called to clean up whenever a file transfer is no longer in progress, * whether because it finished sucessfully, it was canceled, or there was an error. */ static void oscar_file_transfer_disconnect(aim_session_t *sess, aim_conn_t *conn) { struct gaim_connection *gc = sess->aux_data; struct oscar_data *od = (struct oscar_data *)gc->proto_data; struct oscar_file_transfer *oft = find_oft_by_conn(gc, conn); od->file_transfers = g_slist_remove(od->file_transfers, oft); if (oft->watcher) { gaim_input_remove(oft->watcher); oft->watcher = 0; } aim_conn_kill(sess, &conn); g_free(oft->sn); g_free(oft); } static void gaim_directim_disconnect(aim_session_t *sess, aim_conn_t *conn) { struct gaim_connection *gc = sess->aux_data; struct oscar_data *od = (struct oscar_data *)gc->proto_data; struct conversation *cnv; struct direct_im *dim; char *sn; char buf[256]; sn = g_strdup(aim_directim_getsn(conn)); debug_printf("%s disconnected Direct IM.\n", sn); dim = find_direct_im(od, sn); od->direct_ims = g_slist_remove(od->direct_ims, dim); gaim_input_remove(dim->watcher); if (dim->connected) g_snprintf(buf, sizeof buf, _("Direct IM with %s closed"), sn); else g_snprintf(buf, sizeof buf, _("Direct IM with %s failed"), sn); if ((cnv = find_conversation(sn))) write_to_conv(cnv, buf, WFLAG_SYSTEM, NULL, time(NULL), -1); update_progress(cnv, 100); g_free(dim); /* I guess? I don't see it anywhere else... -- mid */ g_free(sn); return; } static void oscar_callback(gpointer data, gint source, GaimInputCondition condition) { aim_conn_t *conn = (aim_conn_t *)data; aim_session_t *sess = aim_conn_getsess(conn); struct gaim_connection *gc = sess ? sess->aux_data : NULL; struct oscar_data *odata; if (!gc) { /* gc is null. we return, else we seg SIGSEG on next line. */ debug_printf("oscar callback for closed connection (1).\n"); return; } odata = (struct oscar_data *)gc->proto_data; if (!g_slist_find(connections, gc)) { /* oh boy. this is probably bad. i guess the only thing we * can really do is return? */ debug_printf("oscar callback for closed connection (2).\n"); return; } if (condition & GAIM_INPUT_READ) { if (conn->type == AIM_CONN_TYPE_RENDEZVOUS_OUT) { debug_printf("got information on rendezvous\n"); if (aim_handlerendconnect(odata->sess, conn) < 0) { debug_printf(_("connection error (rend)\n")); aim_conn_kill(odata->sess, &conn); } } else { if (aim_get_command(odata->sess, conn) >= 0) { aim_rxdispatch(odata->sess); if (odata->killme) signoff(gc); } else { if ((conn->type == AIM_CONN_TYPE_BOS) || !(aim_getconn_type(odata->sess, AIM_CONN_TYPE_BOS))) { debug_printf(_("major connection error\n")); hide_login_progress_error(gc, _("Disconnected.")); signoff(gc); } else if (conn->type == AIM_CONN_TYPE_CHAT) { struct chat_connection *c = find_oscar_chat_by_conn(gc, conn); char buf[BUF_LONG]; debug_printf("disconnected from chat room %s\n", c->name); c->conn = NULL; if (c->inpa > 0) gaim_input_remove(c->inpa); c->inpa = 0; c->fd = -1; aim_conn_kill(odata->sess, &conn); snprintf(buf, sizeof(buf), _("You have been disconnected from chat room %s."), c->name); do_error_dialog(buf, NULL, GAIM_ERROR); } else if (conn->type == AIM_CONN_TYPE_CHATNAV) { if (odata->cnpa > 0) gaim_input_remove(odata->cnpa); odata->cnpa = 0; debug_printf("removing chatnav input watcher\n"); while (odata->create_rooms) { struct create_room *cr = odata->create_rooms->data; g_free(cr->name); odata->create_rooms = g_slist_remove(odata->create_rooms, cr); g_free(cr); do_error_dialog(_("Chat is currently unavailable"), NULL, GAIM_ERROR); } aim_conn_kill(odata->sess, &conn); } else if (conn->type == AIM_CONN_TYPE_AUTH) { if (odata->paspa > 0) gaim_input_remove(odata->paspa); odata->paspa = 0; debug_printf("removing authconn input watcher\n"); aim_conn_kill(odata->sess, &conn); } else if (conn->type == AIM_CONN_TYPE_EMAIL) { if (odata->emlpa > 0) gaim_input_remove(odata->emlpa); odata->emlpa = 0; debug_printf("removing email input watcher\n"); aim_conn_kill(odata->sess, &conn); } else if (conn->type == AIM_CONN_TYPE_RENDEZVOUS) { if (conn->subtype == AIM_CONN_SUBTYPE_OFT_DIRECTIM) gaim_directim_disconnect(odata->sess, conn); else if (conn->subtype == AIM_CONN_SUBTYPE_OFT_SENDFILE) { struct oscar_file_transfer *oft = find_oft_by_conn(gc, conn); if (oft) { transfer_abort(oft->xfer, _("Buddy canceled transfer")); } oscar_file_transfer_disconnect(odata->sess, conn); } else { debug_printf("No handler for rendezvous disconnect (%d).\n", source); } aim_conn_kill(odata->sess, &conn); } else { debug_printf("holy crap! generic connection error! %d\n", conn->type); aim_conn_kill(odata->sess, &conn); } } } } } static void oscar_debug(aim_session_t *sess, int level, const char *format, va_list va) { char *s = g_strdup_vprintf(format, va); char buf[256]; char *t; struct gaim_connection *gc = sess->aux_data; g_snprintf(buf, sizeof(buf), "%s %d: ", gc->username, level); t = g_strconcat(buf, s, NULL); debug_printf(t); if (t[strlen(t)-1] != '\n') debug_printf("\n"); g_free(t); g_free(s); } static void oscar_login_connect(gpointer data, gint source, GaimInputCondition cond) { struct gaim_connection *gc = data; struct oscar_data *odata; aim_session_t *sess; aim_conn_t *conn; if (!g_slist_find(connections, gc)) { close(source); return; } odata = gc->proto_data; sess = odata->sess; conn = aim_getconn_type_all(sess, AIM_CONN_TYPE_AUTH); if (source < 0) { hide_login_progress(gc, _("Couldn't connect to host")); signoff(gc); return; } aim_conn_completeconnect(sess, conn); gc->inpa = gaim_input_add(conn->fd, GAIM_INPUT_READ, oscar_callback, conn); debug_printf(_("Password sent, waiting for response\n")); } static void oscar_login(struct aim_user *user) { aim_session_t *sess; aim_conn_t *conn; char buf[256]; struct gaim_connection *gc = new_gaim_conn(user); struct oscar_data *odata = gc->proto_data = g_new0(struct oscar_data, 1); if (isdigit(*user->username)) { odata->icq = TRUE; /* this is odd but it's necessary for a proper do_import and do_export */ gc->protocol = PROTO_ICQ; gc->password[8] = 0; } else { gc->protocol = PROTO_TOC; gc->flags |= OPT_CONN_HTML; gc->flags |= OPT_CONN_AUTO_RESP; } odata->supports_tn = g_hash_table_new(g_str_hash, g_str_equal); sess = g_new0(aim_session_t, 1); aim_session_init(sess, AIM_SESS_FLAGS_NONBLOCKCONNECT, 0); aim_setdebuggingcb(sess, oscar_debug); /* we need an immediate queue because we don't use a while-loop to * see if things need to be sent. */ aim_tx_setenqueue(sess, AIM_TX_IMMEDIATE, NULL); odata->sess = sess; sess->aux_data = gc; conn = aim_newconn(sess, AIM_CONN_TYPE_AUTH, NULL); if (conn == NULL) { debug_printf(_("internal connection error\n")); hide_login_progress(gc, _("Unable to login to AIM")); signoff(gc); return; } g_snprintf(buf, sizeof(buf), _("Signon: %s"), gc->username); set_login_progress(gc, 2, buf); aim_conn_addhandler(sess, conn, 0x0017, 0x0007, gaim_parse_login, 0); aim_conn_addhandler(sess, conn, 0x0017, 0x0003, gaim_parse_auth_resp, 0); conn->status |= AIM_CONN_STATUS_INPROGRESS; conn->fd = proxy_connect(user->proto_opt[USEROPT_AUTH][0] ? user->proto_opt[USEROPT_AUTH] : FAIM_LOGIN_SERVER, user->proto_opt[USEROPT_AUTHPORT][0] ? atoi(user->proto_opt[USEROPT_AUTHPORT]) : FAIM_LOGIN_PORT, oscar_login_connect, gc); if (conn->fd < 0) { hide_login_progress(gc, _("Couldn't connect to host")); signoff(gc); return; } aim_request_login(sess, conn, gc->username); } static void oscar_close(struct gaim_connection *gc) { struct oscar_data *odata = (struct oscar_data *)gc->proto_data; while (odata->oscar_chats) { struct chat_connection *n = odata->oscar_chats->data; if (n->inpa > 0) gaim_input_remove(n->inpa); g_free(n->name); g_free(n->show); odata->oscar_chats = g_slist_remove(odata->oscar_chats, n); g_free(n); } while (odata->direct_ims) { struct direct_im *n = odata->direct_ims->data; if (n->watcher > 0) gaim_input_remove(n->watcher); odata->direct_ims = g_slist_remove(odata->direct_ims, n); g_free(n); } while (odata->file_transfers) { struct oscar_file_transfer *n = odata->file_transfers->data; if (n->watcher > 0) gaim_input_remove(n->watcher); odata->file_transfers = g_slist_remove(odata->file_transfers, n); g_free(n); } while (odata->hasicons) { struct icon_req *n = odata->hasicons->data; g_free(n->user); odata->hasicons = g_slist_remove(odata->hasicons, n); g_free(n); } g_hash_table_destroy(odata->supports_tn); while (odata->evilhack) { g_free(odata->evilhack->data); odata->evilhack = g_slist_remove(odata->evilhack, odata->evilhack->data); } while (odata->create_rooms) { struct create_room *cr = odata->create_rooms->data; g_free(cr->name); odata->create_rooms = g_slist_remove(odata->create_rooms, cr); g_free(cr); } if (odata->email) g_free(odata->email); if (odata->newp) g_free(odata->newp); if (odata->oldp) g_free(odata->oldp); if (gc->inpa > 0) gaim_input_remove(gc->inpa); if (odata->cnpa > 0) gaim_input_remove(odata->cnpa); if (odata->paspa > 0) gaim_input_remove(odata->paspa); if (odata->emlpa > 0) gaim_input_remove(odata->emlpa); aim_session_kill(odata->sess); g_free(odata->sess); odata->sess = NULL; g_free(gc->proto_data); gc->proto_data = NULL; debug_printf(_("Signed off.\n")); } static void oscar_bos_connect(gpointer data, gint source, GaimInputCondition cond) { struct gaim_connection *gc = data; struct oscar_data *odata; aim_session_t *sess; aim_conn_t *bosconn; if (!g_slist_find(connections, gc)) { close(source); return; } odata = gc->proto_data; sess = odata->sess; bosconn = odata->conn; if (source < 0) { hide_login_progress(gc, _("Could Not Connect")); signoff(gc); return; } aim_conn_completeconnect(sess, bosconn); gc->inpa = gaim_input_add(bosconn->fd, GAIM_INPUT_READ, oscar_callback, bosconn); set_login_progress(gc, 4, _("Connection established, cookie sent")); } static void oscar_ask_send_file(struct gaim_connection *gc, char *destsn) { struct oscar_data *od = (struct oscar_data *)gc->proto_data; struct oscar_file_transfer *oft = g_new0(struct oscar_file_transfer, 1); oft->type = OFT_SENDFILE_OUT; oft->sn = g_strdup(destsn); od->file_transfers = g_slist_append(od->file_transfers, oft); oft->xfer = transfer_out_add(gc, oft->sn); } static int gaim_parse_auth_resp(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; struct aim_authresp_info *info; int i; char *host; int port; struct aim_user *user; aim_conn_t *bosconn; struct gaim_connection *gc = sess->aux_data; struct oscar_data *od = gc->proto_data; user = gc->user; port = user->proto_opt[USEROPT_AUTHPORT][0] ? atoi(user->proto_opt[USEROPT_AUTHPORT]) : FAIM_LOGIN_PORT, va_start(ap, fr); info = va_arg(ap, struct aim_authresp_info *); va_end(ap); debug_printf("inside auth_resp (Screen name: %s)\n", info->sn); if (info->errorcode || !info->bosip || !info->cookie) { char buf[256]; switch (info->errorcode) { case 0x05: /* Incorrect nick/password */ hide_login_progress(gc, _("Incorrect nickname or password.")); plugin_event(event_error, (void *)980, 0, 0, 0); break; case 0x11: /* Suspended account */ hide_login_progress(gc, _("Your account is currently suspended.")); break; case 0x14: /* service temporarily unavailable */ hide_login_progress(gc, _("The AOL Instant Messenger service is temporarily unavailable.")); break; case 0x18: /* connecting too frequently */ hide_login_progress(gc, _("You have been connecting and disconnecting too frequently. Wait ten minutes and try again. If you continue to try, you will need to wait even longer.")); plugin_event(event_error, (void *)983, 0, 0, 0); break; case 0x1c: /* client too old */ g_snprintf(buf, sizeof(buf), _("The client version you are using is too old. Please upgrade at %s"), WEBSITE); hide_login_progress(gc, buf); plugin_event(event_error, (void *)989, 0, 0, 0); break; default: hide_login_progress(gc, _("Authentication Failed")); break; } debug_printf("Login Error Code 0x%04x\n", info->errorcode); debug_printf("Error URL: %s\n", info->errorurl); od->killme = TRUE; return 1; } debug_printf("Reg status: %d\n", info->regstatus); if (info->email) { debug_printf("Email: %s\n", info->email); } else { debug_printf("Email is NULL\n"); } debug_printf("BOSIP: %s\n", info->bosip); debug_printf("Closing auth connection...\n"); aim_conn_kill(sess, &fr->conn); bosconn = aim_newconn(sess, AIM_CONN_TYPE_BOS, NULL); if (bosconn == NULL) { hide_login_progress(gc, _("Internal Error")); od->killme = TRUE; return 0; } aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_SPECIAL, AIM_CB_SPECIAL_CONNINITDONE, conninitdone_bos, 0); aim_conn_addhandler(sess, bosconn, 0x0009, 0x0003, gaim_bosrights, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_ACK, AIM_CB_ACK_ACK, NULL, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_GEN, AIM_CB_GEN_REDIRECT, gaim_handle_redirect, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_LOC, AIM_CB_LOC_RIGHTSINFO, gaim_parse_locaterights, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_BUD, AIM_CB_BUD_RIGHTSINFO, gaim_parse_buddyrights, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_BUD, AIM_CB_BUD_ONCOMING, gaim_parse_oncoming, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_BUD, AIM_CB_BUD_OFFGOING, gaim_parse_offgoing, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_MSG, AIM_CB_MSG_INCOMING, gaim_parse_incoming_im, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_LOC, AIM_CB_LOC_ERROR, gaim_parse_locerr, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_MSG, AIM_CB_MSG_MISSEDCALL, gaim_parse_misses, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_MSG, AIM_CB_MSG_CLIENTAUTORESP, gaim_parse_clientauto, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_GEN, AIM_CB_GEN_RATECHANGE, gaim_parse_ratechange, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_GEN, AIM_CB_GEN_EVIL, gaim_parse_evilnotify, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_LOK, AIM_CB_LOK_ERROR, gaim_parse_searcherror, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_LOK, 0x0003, gaim_parse_searchreply, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_MSG, AIM_CB_MSG_ERROR, gaim_parse_msgerr, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_MSG, AIM_CB_MSG_MTN, gaim_parse_mtn, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_LOC, AIM_CB_LOC_USERINFO, gaim_parse_user_info, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_MSG, AIM_CB_MSG_ACK, gaim_parse_msgack, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_GEN, AIM_CB_GEN_MOTD, gaim_parse_motd, 0); aim_conn_addhandler(sess, bosconn, 0x0004, 0x0005, gaim_icbm_param_info, 0); aim_conn_addhandler(sess, bosconn, 0x0001, 0x0001, gaim_parse_genericerr, 0); aim_conn_addhandler(sess, bosconn, 0x0003, 0x0001, gaim_parse_genericerr, 0); aim_conn_addhandler(sess, bosconn, 0x0009, 0x0001, gaim_parse_genericerr, 0); aim_conn_addhandler(sess, bosconn, 0x0001, 0x001f, gaim_memrequest, 0); aim_conn_addhandler(sess, bosconn, 0x0001, 0x000f, gaim_selfinfo, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_ICQ, AIM_CB_ICQ_OFFLINEMSG, gaim_offlinemsg, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_ICQ, AIM_CB_ICQ_OFFLINEMSGCOMPLETE, gaim_offlinemsgdone, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_POP, 0x0002, gaim_popup, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_ICQ, AIM_CB_ICQ_SIMPLEINFO, gaim_simpleinfo, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_SSI, AIM_CB_SSI_RIGHTSINFO, gaim_ssi_parserights, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_SSI, AIM_CB_SSI_LIST, gaim_ssi_parselist, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_SSI, AIM_CB_SSI_NOLIST, gaim_ssi_parselist, 0); aim_conn_addhandler(sess, bosconn, AIM_CB_FAM_SPECIAL, AIM_CB_SPECIAL_MSGTIMEOUT, oscar_sendfile_timeout, 0); ((struct oscar_data *)gc->proto_data)->conn = bosconn; for (i = 0; i < (int)strlen(info->bosip); i++) { if (info->bosip[i] == ':') { port = atoi(&(info->bosip[i+1])); break; } } host = g_strndup(info->bosip, i); bosconn->status |= AIM_CONN_STATUS_INPROGRESS; bosconn->fd = proxy_connect(host, port, oscar_bos_connect, gc); g_free(host); if (bosconn->fd < 0) { hide_login_progress(gc, _("Could Not Connect")); od->killme = TRUE; return 0; } aim_sendcookie(sess, bosconn, info->cookie); gaim_input_remove(gc->inpa); return 1; } struct pieceofcrap { struct gaim_connection *gc; unsigned long offset; unsigned long len; char *modname; int fd; aim_conn_t *conn; unsigned int inpa; }; static void damn_you(gpointer data, gint source, GaimInputCondition c) { struct pieceofcrap *pos = data; struct oscar_data *od = pos->gc->proto_data; char in = '\0'; int x = 0; unsigned char m[17]; 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. You may want to use TOC until " "this is fixed. Check %s for updates."), WEBSITE); do_error_dialog(_("Gaim was Unable to get a valid AIM login hash."), buf, GAIM_WARNING); gaim_input_remove(pos->inpa); close(pos->fd); g_free(pos); return; } read(pos->fd, m, 16); m[16] = '\0'; debug_printf("Sending hash: "); for (x = 0; x < 16; x++) debug_printf("%02x ", (unsigned char)m[x]); debug_printf("\n"); gaim_input_remove(pos->inpa); close(pos->fd); aim_sendmemblock(od->sess, pos->conn, 0, 16, m, AIM_SENDMEMBLOCK_FLAG_ISHASH); g_free(pos); } static void straight_to_hell(gpointer data, gint source, GaimInputCondition cond) { struct pieceofcrap *pos = data; char buf[BUF_LONG]; if (source < 0) { char buf[256]; g_snprintf(buf, sizeof(buf), _("You may be disconnected shortly. You may want to use TOC until " "this is fixed. Check %s for updates."), WEBSITE); do_error_dialog(_("Gaim was Unable to get a valid AIM login hash."), buf, GAIM_WARNING); if (pos->modname) g_free(pos->modname); g_free(pos); return; } g_snprintf(buf, sizeof(buf), "GET " AIMHASHDATA "?offset=%ld&len=%ld&modname=%s HTTP/1.0\n\n", pos->offset, pos->len, pos->modname ? pos->modname : ""); write(pos->fd, buf, strlen(buf)); if (pos->modname) g_free(pos->modname); pos->inpa = gaim_input_add(pos->fd, GAIM_INPUT_READ, damn_you, pos); return; } /* size of icbmui.ocm, the largest module in AIM 3.5 */ #define AIM_MAX_FILE_SIZE 98304 int gaim_memrequest(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; struct pieceofcrap *pos; fu32_t offset, len; char *modname; int fd; va_start(ap, fr); offset = (fu32_t)va_arg(ap, unsigned long); len = (fu32_t)va_arg(ap, unsigned long); modname = va_arg(ap, char *); va_end(ap); debug_printf("offset: %d, len: %d, file: %s\n", offset, len, modname ? modname : "aim.exe"); if (len == 0) { debug_printf("len is 0, hashing NULL\n"); aim_sendmemblock(sess, fr->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 (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; debug_printf("len + offset is invalid, hashing request\n"); aim_sendmemblock(sess, command->conn, offset, i, buf, AIM_SENDMEMBLOCK_FLAG_ISREQUEST); g_free(buf); return 1; } */ pos = g_new0(struct pieceofcrap, 1); pos->gc = sess->aux_data; pos->conn = fr->conn; pos->offset = offset; pos->len = len; pos->modname = modname ? g_strdup(modname) : NULL; fd = proxy_connect("gaim.sourceforge.net", 80, straight_to_hell, pos); if (fd < 0) { char buf[256]; if (pos->modname) g_free(pos->modname); g_free(pos); g_snprintf(buf, sizeof(buf), _("You may be disconnected shortly. You may want to use TOC until " "this is fixed. Check %s for updates."), WEBSITE); do_error_dialog(_("Gaim was Unable to get valid login hash."), buf, GAIM_WARNING); } pos->fd = fd; return 1; } static int gaim_parse_login(aim_session_t *sess, aim_frame_t *fr, ...) { char *key; va_list ap; struct gaim_connection *gc = sess->aux_data; struct oscar_data *odata = gc->proto_data; va_start(ap, fr); key = va_arg(ap, char *); va_end(ap); if (odata->icq) { struct client_info_s info = CLIENTINFO_ICQ_KNOWNGOOD; aim_send_login(sess, fr->conn, gc->username, gc->password, &info, key); } else { #if 0 struct client_info_s info = {"gaim", 4, 1, 2010, "us", "en", 0x0004, 0x0000, 0x04b}; #endif struct client_info_s info = CLIENTINFO_AIM_KNOWNGOOD; aim_send_login(sess, fr->conn, gc->username, gc->password, &info, key); } return 1; } static int conninitdone_chat(aim_session_t *sess, aim_frame_t *fr, ...) { struct gaim_connection *gc = sess->aux_data; struct chat_connection *chatcon; static int id = 1; aim_conn_addhandler(sess, fr->conn, 0x000e, 0x0001, gaim_parse_genericerr, 0); aim_conn_addhandler(sess, fr->conn, AIM_CB_FAM_CHT, AIM_CB_CHT_USERJOIN, gaim_chat_join, 0); aim_conn_addhandler(sess, fr->conn, AIM_CB_FAM_CHT, AIM_CB_CHT_USERLEAVE, gaim_chat_leave, 0); aim_conn_addhandler(sess, fr->conn, AIM_CB_FAM_CHT, AIM_CB_CHT_ROOMINFOUPDATE, gaim_chat_info_update, 0); aim_conn_addhandler(sess, fr->conn, AIM_CB_FAM_CHT, AIM_CB_CHT_INCOMINGMSG, gaim_chat_incoming_msg, 0); aim_clientready(sess, fr->conn); chatcon = find_oscar_chat_by_conn(gc, fr->conn); chatcon->id = id; chatcon->cnv = serv_got_joined_chat(gc, id++, chatcon->show); return 1; } static int conninitdone_chatnav(aim_session_t *sess, aim_frame_t *fr, ...) { aim_conn_addhandler(sess, fr->conn, 0x000d, 0x0001, gaim_parse_genericerr, 0); aim_conn_addhandler(sess, fr->conn, AIM_CB_FAM_CTN, AIM_CB_CTN_INFO, gaim_chatnav_info, 0); aim_clientready(sess, fr->conn); aim_chatnav_reqrights(sess, fr->conn); return 1; } static int conninitdone_email(aim_session_t *sess, aim_frame_t *fr, ...) { aim_conn_addhandler(sess, fr->conn, 0x0018, 0x0001, gaim_parse_genericerr, 0); aim_conn_addhandler(sess, fr->conn, AIM_CB_FAM_EML, AIM_CB_EML_MAILSTATUS, gaim_email_parseupdate, 0); aim_email_sendcookies(sess, fr->conn); aim_email_activate(sess, fr->conn); aim_clientready(sess, fr->conn); return 1; } static void oscar_chatnav_connect(gpointer data, gint source, GaimInputCondition cond) { struct gaim_connection *gc = data; struct oscar_data *odata; aim_session_t *sess; aim_conn_t *tstconn; if (!g_slist_find(connections, gc)) { close(source); return; } odata = gc->proto_data; sess = odata->sess; tstconn = aim_getconn_type_all(sess, AIM_CONN_TYPE_CHATNAV); if (source < 0) { aim_conn_kill(sess, &tstconn); debug_printf("unable to connect to chatnav server\n"); return; } aim_conn_completeconnect(sess, tstconn); odata->cnpa = gaim_input_add(tstconn->fd, GAIM_INPUT_READ, oscar_callback, tstconn); debug_printf("chatnav: connected\n"); } static void oscar_auth_connect(gpointer data, gint source, GaimInputCondition cond) { struct gaim_connection *gc = data; struct oscar_data *odata; aim_session_t *sess; aim_conn_t *tstconn; if (!g_slist_find(connections, gc)) { close(source); return; } odata = gc->proto_data; sess = odata->sess; tstconn = aim_getconn_type_all(sess, AIM_CONN_TYPE_AUTH); if (source < 0) { aim_conn_kill(sess, &tstconn); debug_printf("unable to connect to authorizer\n"); return; } aim_conn_completeconnect(sess, tstconn); odata->paspa = gaim_input_add(tstconn->fd, GAIM_INPUT_READ, oscar_callback, tstconn); debug_printf("chatnav: connected\n"); } static void oscar_chat_connect(gpointer data, gint source, GaimInputCondition cond) { struct chat_connection *ccon = data; struct gaim_connection *gc = ccon->gc; struct oscar_data *odata; aim_session_t *sess; aim_conn_t *tstconn; if (!g_slist_find(connections, gc)) { close(source); g_free(ccon->show); g_free(ccon->name); g_free(ccon); return; } odata = gc->proto_data; sess = odata->sess; tstconn = ccon->conn; if (source < 0) { aim_conn_kill(sess, &tstconn); g_free(ccon->show); g_free(ccon->name); g_free(ccon); return; } aim_conn_completeconnect(sess, ccon->conn); ccon->inpa = gaim_input_add(tstconn->fd, GAIM_INPUT_READ, oscar_callback, tstconn); odata->oscar_chats = g_slist_append(odata->oscar_chats, ccon); } static void oscar_email_connect(gpointer data, gint source, GaimInputCondition cond) { struct gaim_connection *gc = data; struct oscar_data *odata; aim_session_t *sess; aim_conn_t *tstconn; if (!g_slist_find(connections, gc)) { close(source); return; } odata = gc->proto_data; sess = odata->sess; tstconn = aim_getconn_type_all(sess, AIM_CONN_TYPE_EMAIL); if (source < 0) { aim_conn_kill(sess, &tstconn); debug_printf("unable to connect to email server\n"); return; } aim_conn_completeconnect(sess, tstconn); odata->emlpa = gaim_input_add(tstconn->fd, GAIM_INPUT_READ, oscar_callback, tstconn); debug_printf("email: connected\n"); } /* Hrmph. I don't know how to make this look better. --mid */ static int gaim_handle_redirect(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; struct aim_redirect_data *redir; struct gaim_connection *gc = sess->aux_data; struct aim_user *user = gc->user; aim_conn_t *tstconn; int i; char *host; int port; port = user->proto_opt[USEROPT_AUTHPORT][0] ? atoi(user->proto_opt[USEROPT_AUTHPORT]) : FAIM_LOGIN_PORT, va_start(ap, fr); redir = va_arg(ap, struct aim_redirect_data *); va_end(ap); for (i = 0; i < (int)strlen(redir->ip); i++) { if (redir->ip[i] == ':') { port = atoi(&(redir->ip[i+1])); break; } } host = g_strndup(redir->ip, i); switch(redir->group) { case 0x7: /* Authorizer */ debug_printf("Reconnecting with authorizor...\n"); tstconn = aim_newconn(sess, AIM_CONN_TYPE_AUTH, NULL); if (tstconn == NULL) { debug_printf("unable to reconnect with authorizer\n"); g_free(host); return 1; } aim_conn_addhandler(sess, tstconn, AIM_CB_FAM_SPECIAL, AIM_CB_SPECIAL_CONNINITDONE, conninitdone_admin, 0); aim_conn_addhandler(sess, tstconn, 0x0007, 0x0003, gaim_info_change, 0); aim_conn_addhandler(sess, tstconn, 0x0007, 0x0005, gaim_info_change, 0); aim_conn_addhandler(sess, tstconn, 0x0007, 0x0007, gaim_account_confirm, 0); tstconn->status |= AIM_CONN_STATUS_INPROGRESS; tstconn->fd = proxy_connect(host, port, oscar_auth_connect, gc); if (tstconn->fd < 0) { aim_conn_kill(sess, &tstconn); debug_printf("unable to reconnect with authorizer\n"); g_free(host); return 1; } aim_sendcookie(sess, tstconn, redir->cookie); break; case 0xd: /* ChatNav */ tstconn = aim_newconn(sess, AIM_CONN_TYPE_CHATNAV, NULL); if (tstconn == NULL) { debug_printf("unable to connect to chatnav server\n"); g_free(host); return 1; } aim_conn_addhandler(sess, tstconn, AIM_CB_FAM_SPECIAL, AIM_CB_SPECIAL_CONNINITDONE, conninitdone_chatnav, 0); tstconn->status |= AIM_CONN_STATUS_INPROGRESS; tstconn->fd = proxy_connect(host, port, oscar_chatnav_connect, gc); if (tstconn->fd < 0) { aim_conn_kill(sess, &tstconn); debug_printf("unable to connect to chatnav server\n"); g_free(host); return 1; } aim_sendcookie(sess, tstconn, redir->cookie); break; case 0xe: /* Chat */ { struct chat_connection *ccon; tstconn = aim_newconn(sess, AIM_CONN_TYPE_CHAT, NULL); if (tstconn == NULL) { debug_printf("unable to connect to chat server\n"); g_free(host); return 1; } aim_conn_addhandler(sess, tstconn, AIM_CB_FAM_SPECIAL, AIM_CB_SPECIAL_CONNINITDONE, conninitdone_chat, 0); ccon = g_new0(struct chat_connection, 1); ccon->conn = tstconn; ccon->gc = gc; ccon->fd = -1; ccon->name = g_strdup(redir->chat.room); ccon->exchange = redir->chat.exchange; ccon->instance = redir->chat.instance; ccon->show = extract_name(redir->chat.room); ccon->conn->status |= AIM_CONN_STATUS_INPROGRESS; ccon->conn->fd = proxy_connect(host, port, oscar_chat_connect, ccon); if (ccon->conn->fd < 0) { aim_conn_kill(sess, &tstconn); debug_printf("unable to connect to chat server\n"); g_free(host); g_free(ccon->show); g_free(ccon->name); g_free(ccon); return 1; } aim_sendcookie(sess, tstconn, redir->cookie); debug_printf("Connected to chat room %s exchange %d\n", ccon->name, ccon->exchange); } break; case 0x0018: { /* email */ if (!(tstconn = aim_newconn(sess, AIM_CONN_TYPE_EMAIL, NULL))) { debug_printf("unable to connect to email server\n"); g_free(host); return 1; } aim_conn_addhandler(sess, tstconn, AIM_CB_FAM_SPECIAL, AIM_CB_SPECIAL_CONNINITDONE, conninitdone_email, 0); tstconn->status |= AIM_CONN_STATUS_INPROGRESS; tstconn->fd = proxy_connect(host, port, oscar_email_connect, gc); if (tstconn->fd < 0) { aim_conn_kill(sess, &tstconn); debug_printf("unable to connect to email server\n"); g_free(host); return 1; } aim_sendcookie(sess, tstconn, redir->cookie); } break; default: /* huh? */ debug_printf("got redirect for unknown service 0x%04x\n", redir->group); break; } g_free(host); return 1; } static int gaim_parse_oncoming(aim_session_t *sess, aim_frame_t *fr, ...) { struct gaim_connection *gc = sess->aux_data; struct oscar_data *od = gc->proto_data; aim_userinfo_t *info; time_t time_idle = 0, signon = 0; int type = 0; int caps = 0; char *tmp; va_list ap; va_start(ap, fr); info = va_arg(ap, aim_userinfo_t *); va_end(ap); if (info->present & AIM_USERINFO_PRESENT_CAPABILITIES) caps = info->capabilities; if (info->flags & AIM_FLAG_ACTIVEBUDDY) type |= UC_AB; if ((!od->icq) && (info->present & AIM_USERINFO_PRESENT_FLAGS)) { if (info->flags & AIM_FLAG_UNCONFIRMED) type |= UC_UNCONFIRMED; if (info->flags & AIM_FLAG_ADMINISTRATOR) type |= UC_ADMIN; if (info->flags & AIM_FLAG_AOL) type |= UC_AOL; if (info->flags & AIM_FLAG_FREE) type |= UC_NORMAL; if (info->flags & AIM_FLAG_AWAY) type |= UC_UNAVAILABLE; if (info->flags & AIM_FLAG_WIRELESS) type |= UC_WIRELESS; } if (info->present & AIM_USERINFO_PRESENT_ICQEXTSTATUS) { type = (info->icqinfo.status << 16); if (!(info->icqinfo.status & AIM_ICQ_STATE_CHAT) && (info->icqinfo.status != AIM_ICQ_STATE_NORMAL)) { type |= UC_UNAVAILABLE; } } if (caps & AIM_CAPS_ICQ) caps ^= AIM_CAPS_ICQ; if (info->present & AIM_USERINFO_PRESENT_IDLE) { time(&time_idle); time_idle -= info->idletime*60; } if (info->present & AIM_USERINFO_PRESENT_SESSIONLEN) signon = time(NULL) - info->sessionlen; tmp = g_strdup(normalize(gc->username)); if (!strcmp(tmp, normalize(info->sn))) g_snprintf(gc->displayname, sizeof(gc->displayname), "%s", info->sn); g_free(tmp); serv_got_update(gc, info->sn, 1, info->warnlevel/10, signon, time_idle, type, caps); return 1; } static int gaim_parse_offgoing(aim_session_t *sess, aim_frame_t *fr, ...) { aim_userinfo_t *info; va_list ap; struct gaim_connection *gc = sess->aux_data; va_start(ap, fr); info = va_arg(ap, aim_userinfo_t *); va_end(ap); serv_got_update(gc, info->sn, 0, 0, 0, 0, 0, 0); return 1; } static void cancel_direct_im(struct ask_direct *d) { debug_printf("Freeing DirectIM prompts.\n"); g_free(d->sn); g_free(d); } static void oscar_directim_callback(gpointer data, gint source, GaimInputCondition condition) { struct direct_im *dim = data; struct gaim_connection *gc = dim->gc; struct oscar_data *od = gc->proto_data; struct conversation *cnv; char buf[256]; struct sockaddr name; socklen_t name_len = 1; if (!g_slist_find(connections, gc)) { g_free(dim); return; } if (source < 0) { g_free(dim); return; } if (dim->conn->fd != source) dim->conn->fd = source; aim_conn_completeconnect(od->sess, dim->conn); if (!(cnv = find_conversation(dim->name))) cnv = new_conversation(dim->name); /* This is the best way to see if we're connected or not */ if (getpeername(source, &name, &name_len) == 0) { g_snprintf(buf, sizeof buf, _("Direct IM with %s established"), dim->name); dim->connected = TRUE; write_to_conv(cnv, buf, WFLAG_SYSTEM, NULL, time(NULL), -1); } od->direct_ims = g_slist_append(od->direct_ims, dim); dim->watcher = gaim_input_add(dim->conn->fd, GAIM_INPUT_READ, oscar_callback, dim->conn); } /* * This is called every time we are finished sending a file and the receiving buddy * has sent back an acknowledgement; we start the next file or tear down the * connection as appropriate. */ static int oscar_sendfile_out_done(aim_session_t *sess, aim_frame_t *fr, ...) { struct gaim_connection *gc = sess->aux_data; va_list ap; aim_conn_t *conn; const char *cook; struct oscar_file_transfer *oft; va_start(ap, fr); conn = va_arg(ap, aim_conn_t *); cook = va_arg(ap, const char *); va_end(ap); oft = find_oft_by_cookie(gc, cook); if (oft->filesdone == oft->totfiles) oscar_file_transfer_disconnect(sess, conn); else /* Send header for next file */ oscar_sendfile_request(sess, oft); return 0; } /* Called once for each file before sending the raw data. */ static int oscar_sendfile_request(aim_session_t *sess, struct oscar_file_transfer *oft) { char *name; int size; transfer_get_file_info(oft->xfer, &size, &name); /* AAA convert the name to UCS-2 if necessary, and pass the encoding to the call below */ aim_oft_sendfile_request(sess, oft->conn, name, oft->filesdone, oft->totfiles, size, oft->totsize); return 0; } /* * This is called when sending a file and a direct connection has been set up with * the buddy; we can now transmit the appropriate headers describing the transfer. */ static int oscar_sendfile_accepted(aim_session_t *sess, aim_frame_t *fr, ...) { struct gaim_connection *gc = sess->aux_data; struct oscar_data *od = (struct oscar_data *)gc->proto_data; struct oscar_file_transfer *oft; va_list ap; aim_conn_t *conn, *listenerconn; va_start(ap, fr); conn = va_arg(ap, aim_conn_t *); listenerconn = va_arg(ap, aim_conn_t *); va_end(ap); oft = find_oft_by_conn(gc, listenerconn); oft->conn = conn; /* Stop watching listener conn; watch transfer conn instead */ gaim_input_remove(oft->watcher); aim_conn_kill(sess, &listenerconn); aim_conn_addhandler(od->sess, oft->conn, AIM_CB_FAM_OFT, AIM_CB_OFT_SENDFILEFILESEND, oscar_file_transfer_do, 0); aim_conn_addhandler(sess, conn, AIM_CB_FAM_OFT, AIM_CB_OFT_SENDFILECOMPLETE, oscar_sendfile_out_done, 0); oft->watcher = gaim_input_add(oft->conn->fd, GAIM_INPUT_READ, oscar_callback, oft->conn); oscar_sendfile_request(sess, oft); return 0; } /* * This is called when we requested to send a file to a buddy, but he or she didn't * respond; we need to clean up. */ static int oscar_sendfile_timeout(aim_session_t *sess, aim_frame_t *fr, ...) { struct gaim_connection *gc = sess->aux_data; va_list ap; struct oscar_file_transfer *oft; char *cookie; aim_conn_t *bosconn; va_start(ap, fr); bosconn = va_arg(ap, aim_conn_t *); cookie = va_arg(ap, char *); va_end(ap); if ((oft = find_oft_by_cookie(gc, cookie))) { aim_canceltransfer(sess, bosconn, oft->cookie, oft->sn, AIM_CAPS_SENDFILE); transfer_abort(oft->xfer, _("Transfer timed out")); oscar_file_transfer_disconnect(sess, oft->conn); } return 1; /* success */ } /* Called once at the beginning of an outgoing transfer session. */ static void oscar_file_transfer_out(struct gaim_connection *gc, struct file_transfer *xfer, const char *name, int totfiles, int totsize) { struct oscar_data *od = (struct oscar_data *)gc->proto_data; struct oscar_file_transfer *oft = find_oft_by_xfer(gc, xfer); oft->xfer = xfer; oft->totsize = totsize; oft->totfiles = totfiles; oft->filesdone = 0; oft->conn = aim_sendfile_initiate(od->sess, oft->sn, name, totfiles, oft->totsize, oft->cookie); if (!oft->conn) { do_error_dialog(_("Couldn't open listener to send file"), _("File transfer aborted"), GAIM_ERROR); return; } aim_conn_addhandler(od->sess, oft->conn, AIM_CB_FAM_OFT, AIM_CB_OFT_SENDFILEINITIATE, oscar_sendfile_accepted, 0); oft->watcher = gaim_input_add(oft->conn->fd, GAIM_INPUT_READ, oscar_callback, oft->conn); } /* * This is called after a chunk of data has been sent out or received; it is used * to update the checksum. */ static void oscar_file_transfer_data_chunk(struct gaim_connection *gc, struct file_transfer *xfer, const char *buf, int len) { struct oscar_file_transfer *oft = find_oft_by_xfer(gc, xfer); aim_session_t *sess = aim_conn_getsess(oft->conn); if (oft->type == OFT_SENDFILE_IN) aim_update_checksum(sess, oft->conn, buf, len); } /* Called once at the beginning of an incoming transfer session. */ static void oscar_file_transfer_in(struct gaim_connection *gc, struct file_transfer *xfer, int offset) { struct oscar_data *od = (struct oscar_data *)gc->proto_data; struct oscar_file_transfer *oft = find_oft_by_xfer(gc, xfer); oft->xfer = xfer; oft->conn = aim_accepttransfer(od->sess, od->conn, oft->sn, oft->cookie, oft->ip, oft->port, AIM_CAPS_SENDFILE); if (!oft->conn) { /* XXX implement reverse connections for receiving from behind a firewall */ char *buf = g_strdup_printf("Couldn't connect to remote host"); do_error_dialog(buf, NULL, GAIM_ERROR); g_free(buf); return; } aim_conn_addhandler(od->sess, oft->conn, AIM_CB_FAM_OFT, AIM_CB_OFT_SENDFILEFILEREQ, oscar_file_transfer_do, 0); oft->watcher = gaim_input_add(oft->conn->fd, GAIM_INPUT_READ, oscar_callback, oft->conn); } /* * This is called when the user began a file transfer, but subsequently canceled. */ static void oscar_file_transfer_cancel(struct gaim_connection *gc, struct file_transfer *xfer) { struct oscar_data *od = (struct oscar_data *)gc->proto_data; struct oscar_file_transfer *oft = find_oft_by_xfer(gc, xfer); if (oft->type == OFT_SENDFILE_IN) aim_denytransfer(od->sess, oft->sn, oft->cookie, AIM_TRANSFER_DENY_DECLINE); od->file_transfers = g_slist_remove(od->file_transfers, oft); aim_conn_kill(od->sess, &oft->conn); g_free(oft->sn); g_free(oft); } static int accept_direct_im(struct ask_direct *d) { struct gaim_connection *gc = d->gc; struct oscar_data *od = (struct oscar_data *)gc->proto_data; struct direct_im *dim; char *host; int port = 4443; int i; debug_printf("Accepted DirectIM.\n"); dim = find_direct_im(od, d->sn); if (dim) { cancel_direct_im(d); /* 40 */ return TRUE; } dim = g_new0(struct direct_im, 1); dim->gc = d->gc; g_snprintf(dim->name, sizeof dim->name, "%s", d->sn); dim->conn = aim_directim_connect(od->sess, d->sn, NULL, d->cookie); if (!dim->conn) { g_free(dim); cancel_direct_im(d); return TRUE; } aim_conn_addhandler(od->sess, dim->conn, AIM_CB_FAM_OFT, AIM_CB_OFT_DIRECTIMINCOMING, gaim_directim_incoming, 0); aim_conn_addhandler(od->sess, dim->conn, AIM_CB_FAM_OFT, AIM_CB_OFT_DIRECTIMTYPING, gaim_directim_typing, 0); aim_conn_addhandler(od->sess, dim->conn, AIM_CB_FAM_SPECIAL, AIM_CB_SPECIAL_IMAGETRANSFER, gaim_update_ui, 0); for (i = 0; i < (int)strlen(d->ip); i++) { if (d->ip[i] == ':') { port = atoi(&(d->ip[i+1])); break; } } host = g_strndup(d->ip, i); dim->conn->status |= AIM_CONN_STATUS_INPROGRESS; dim->conn->fd = proxy_connect(host, port, oscar_directim_callback, dim); g_free(host); if (dim->conn->fd < 0) { aim_conn_kill(od->sess, &dim->conn); g_free(dim); cancel_direct_im(d); return TRUE; } cancel_direct_im(d); return TRUE; } static int incomingim_chan1(aim_session_t *sess, aim_conn_t *conn, aim_userinfo_t *userinfo, struct aim_incomingim_ch1_args *args) { char *tmp; struct gaim_connection *gc = sess->aux_data; struct oscar_data *od = gc->proto_data; int flags = 0; int convlen; GError *err = NULL; if (args->icbmflags & AIM_IMFLAGS_AWAY) flags |= IM_FLAG_AWAY; if (args->icbmflags & AIM_IMFLAGS_HASICON) { struct icon_req *ir = NULL; GSList *h = od->hasicons; char *who = normalize(userinfo->sn); if (!args->iconlen || !args->iconsum || !args->iconstamp) return 1; debug_printf("%s has an icon\n", userinfo->sn); while (h) { ir = h->data; if (!strcmp(ir->user, who)) break; h = h->next; } if (!h) { ir = g_new0(struct icon_req, 1); ir->user = g_strdup(who); od->hasicons = g_slist_append(od->hasicons, ir); } if ((args->iconlen != ir->length) || (args->iconsum != ir->checksum) || (args->iconstamp != ir->timestamp)) ir->request = TRUE; ir->length = args->iconlen; ir->checksum = args->iconsum; ir->timestamp = args->iconstamp; } if (gc->user->iconfile[0] && (args->icbmflags & AIM_IMFLAGS_BUDDYREQ)) { FILE *file; struct stat st; if (!stat(gc->user->iconfile, &st)) { char *buf = g_malloc(st.st_size); file = fopen(gc->user->iconfile, "r"); if (file) { int len = fread(buf, 1, st.st_size, file); debug_printf("Sending buddy icon to %s (%d bytes, %d reported)\n", userinfo->sn, len, st.st_size); aim_send_icon(sess, userinfo->sn, buf, st.st_size, st.st_mtime, aim_iconsum(buf, st.st_size)); fclose(file); } else debug_printf("Can't open buddy icon file!\n"); g_free(buf); } else debug_printf("Can't stat buddy icon file!\n"); } if (args->icbmflags & AIM_IMFLAGS_UNICODE) { /* This message is marked as UNICODE, so we have to * convert it to utf-8 before handing it to the gaim core. * This conversion should *never* fail, if it does it * means that either the incoming ICBM is corrupted or * there is something we don't understand about it. */ /* For the record, AIM Unicode is big-endian UCS-2 */ if (!args->msg || !args->msglen) return 1; tmp = g_convert(args->msg, args->msglen, "UTF-8", "UCS-2BE", NULL, &convlen, &err); if (err) { debug_printf("Unicode IM conversion: %s\n", err->message); tmp = strdup(_("(There was an error receiving this message)")); } } else { /* This will get executed for both AIM_IMFLAGS_ISO_8859_1 and * unflagged messages, which are ASCII. That's OK because * ASCII is a strict subset of ISO-8859-1; this should * help with compatibility with old, broken versions of * gaim (everything before 0.60) and other broken clients * that will happily send ISO-8859-1 without marking it as * such */ if (args->icbmflags & AIM_IMFLAGS_ISO_8859_1) { debug_printf ("Received ISO-8859-1 IM\n"); } if (!args->msg || !args->msglen) return 1; tmp = g_convert(args->msg, args->msglen, "UTF-8", "ISO-8859-1", NULL, &convlen, &err); if (err) { debug_printf("ISO-8859-1 IM conversion: %s\n", err->message); tmp = strdup(_("(There was an error receiving this message)")); } } if (args->icbmflags & AIM_IMFLAGS_CUSTOMCHARSET) { debug_printf ("Custom character set: %d %d\n", args->charset, args->charsubset); } if (args->icbmflags & AIM_IMFLAGS_TYPINGNOT) { char *who = normalize(userinfo->sn); if (!g_hash_table_lookup(od->supports_tn, who)) g_hash_table_insert(od->supports_tn, who, who); } //strip_linefeed(tmp); serv_got_im(gc, userinfo->sn, tmp, flags, time(NULL), -1); g_free(tmp); return 1; } static int incomingim_chan2(aim_session_t *sess, aim_conn_t *conn, aim_userinfo_t *userinfo, struct aim_incomingim_ch2_args *args) { struct gaim_connection *gc = sess->aux_data; if (!args) return 0; debug_printf("rendezvous status %d (%s)\n", args->status, userinfo->sn); if (args->status == AIM_RENDEZVOUS_CANCEL) { struct oscar_file_transfer *oft; if (!args->cookie) return 1; oft = find_oft_by_cookie(gc, args->cookie); if (oft) { transfer_abort(oft->xfer, _("Buddy canceled transfer")); oscar_file_transfer_disconnect(sess, oft->conn); } return 0; } else if (args->status == AIM_RENDEZVOUS_ACCEPT) { /* The user accepted our transfer request, but we don't * really need to do anything yet. * -- wtm */ return 0; } else if (args->status != AIM_RENDEZVOUS_PROPOSE) { debug_printf("unknown rendezvous status\n"); return 1; } if (args->reqclass & AIM_CAPS_CHAT) { char *name; int *exch; GList *m = NULL; if (!args->info.chat.roominfo.name || !args->info.chat.roominfo.exchange || !args->msg) return 1; name = extract_name(args->info.chat.roominfo.name); exch = g_new0(int, 1); m = g_list_append(m, g_strdup(name ? name : args->info.chat.roominfo.name)); *exch = args->info.chat.roominfo.exchange; m = g_list_append(m, exch); serv_got_chat_invite(gc, name ? name : args->info.chat.roominfo.name, userinfo->sn, (char *)args->msg, m); if (name) g_free(name); } else if (args->reqclass & AIM_CAPS_SENDFILE) { struct oscar_file_transfer *oft; struct oscar_data *od = gc->proto_data; if (!args->cookie || !args->verifiedip || !args->port || !args->info.sendfile.filename || !args->info.sendfile.totsize || !args->info.sendfile.totfiles || !args->msg || !args->reqclass) return 1; if ((oft = find_oft_by_cookie(sess->aux_data, args->cookie))) { /* This is a request for a reverse connection, * which is used by newer clients when for some * reason they are unable to connect to our listener * (e.g. they are behind a firewall). */ if (oft->type != OFT_SENDFILE_OUT) return -1; /* It seems that Trillian sends some weird * packets. Sanity check. */ if (!args->verifiedip) return -1; /* This connection isn't used for anything, since * we're using a reverse connection instead. */ gaim_input_remove(oft->watcher); aim_conn_kill(sess, &oft->conn); debug_printf("sendfile: doing reverse connection to %s:%d\n", args->verifiedip, args->port); oft->conn = aim_accepttransfer(sess, od->conn, userinfo->sn, args->cookie, args->verifiedip, args->port, AIM_CAPS_SENDFILE); /* XXX: this is a bit of a hack: ideally * we should wait on GAIM_INPUT_WRITE. -- wtm */ aim_conn_completeconnect(sess, oft->conn); oscar_sendfile_request(sess, oft); aim_conn_addhandler(sess, oft->conn, AIM_CB_FAM_OFT, AIM_CB_OFT_SENDFILECOMPLETE, oscar_sendfile_out_done, 0); aim_conn_addhandler(sess, oft->conn, AIM_CB_FAM_OFT, AIM_CB_OFT_SENDFILEFILESEND, oscar_file_transfer_do, 0); oft->watcher = gaim_input_add(oft->conn->fd, GAIM_INPUT_READ, oscar_callback, oft->conn); return 0; } /* Someone wants to send a file (or files) to us */ debug_printf("%s (%s) requests to send a file to %s\n", userinfo->sn, args->verifiedip, gc->username); oft = g_new0(struct oscar_file_transfer, 1); oft->type = OFT_SENDFILE_IN; oft->sn = g_strdup(userinfo->sn); strncpy(oft->ip, args->verifiedip, sizeof(oft->ip)); oft->port = args->port; memcpy(oft->cookie, args->cookie, 8); od->file_transfers = g_slist_append(od->file_transfers, oft); oft->xfer = transfer_in_add(gc, userinfo->sn, args->info.sendfile.filename, args->info.sendfile.totsize, args->info.sendfile.totfiles, args->msg); } else if (args->reqclass & AIM_CAPS_GETFILE) { } else if (args->reqclass & AIM_CAPS_VOICE) { } else if (args->reqclass & AIM_CAPS_BUDDYICON) { set_icon_data(gc, normalize(userinfo->sn), args->info.icon.icon, args->info.icon.length); } else if (args->reqclass & AIM_CAPS_IMIMAGE) { struct ask_direct *d = g_new0(struct ask_direct, 1); char buf[256]; debug_printf("%s received direct im request from %s (%s)\n", gc->username, userinfo->sn, args->verifiedip); d->gc = gc; d->sn = g_strdup(userinfo->sn); strncpy(d->ip, args->verifiedip, sizeof(d->ip)); memcpy(d->cookie, args->cookie, 8); g_snprintf(buf, sizeof buf, "%s has just asked to directly connect to %s.", userinfo->sn, gc->username); do_ask_dialog(buf, _("This requires a direct connection between the two computers and is necessary for IM Images. Because your IP address will be revealed, this may be considered a privacy risk."), d, _("Connect"), accept_direct_im, _("Cancel"), cancel_direct_im); } else { debug_printf("Unknown reqclass %d\n", args->reqclass); } return 1; } /* * Next 2 functions are for when other people ask you for authorization */ static void gaim_icq_authgrant(struct channel4_data *data) { char message; struct oscar_data *od = (struct oscar_data *)data->gc->proto_data; message = 0; aim_send_im_ch4(od->sess, data->uin, AIM_ICQMSG_AUTHGRANTED, &message); show_got_added(data->gc, NULL, data->uin, NULL, NULL); g_free(data->uin); g_free(data); } static void gaim_icq_authdeny(struct channel4_data *data) { gchar *message; struct oscar_data *od = (struct oscar_data *)data->gc->proto_data; message = g_strdup_printf("No reason given."); aim_send_im_ch4(od->sess, data->uin, AIM_ICQMSG_AUTHDENIED, message); g_free(data->uin); g_free(message); g_free(data); } /* * Next 2 functions are for when someone sends you contacts */ static void gaim_icq_contactadd(struct channel4_data *data) { show_add_buddy(data->gc, data->uin, NULL, data->nick); free(data->uin); free(data->nick); g_free(data); } static void gaim_icq_contactdontadd(struct channel4_data *data) { free(data->uin); free(data->nick); g_free(data); } static int incomingim_chan4(aim_session_t *sess, aim_conn_t *conn, aim_userinfo_t *userinfo, struct aim_incomingim_ch4_args *args, time_t t) { struct gaim_connection *gc = sess->aux_data; gchar **msg1, **msg2; GError *err = NULL; int i; if (!args->type || !args->msg || !args->uin) return 1; debug_printf("Received a channel 4 message of type %d.\n", args->type); /* Split up the message at the delimeter character, then convert each string to UTF-8 */ msg1 = g_strsplit(args->msg, "þ", 0); msg2 = (gchar **)g_malloc(10*sizeof(gchar *)); /* AAA */ for (i=0; msg1[i]; i++) { strip_linefeed(msg1[i]); msg2[i] = g_convert(msg1[i], strlen(msg1[i]), "UTF-8", "ISO-8859-1", NULL, NULL, &err); if (err) debug_printf("Error converting a string from ISO-8859-1 to UTF-8 in oscar ICBM channel 4 parsing\n"); } msg2[i] = NULL; switch (args->type) { case 0x0001: { /* MacICQ message or basic offline message */ if (i >= 1) { gchar *uin = g_strdup_printf("%lu", args->uin); if (t) { /* This is an offline message */ /* I think this timestamp is in UTC, or something */ serv_got_im(gc, uin, msg2[0], 0, t, -1); } else { /* This is a message from MacICQ/Miranda */ serv_got_im(gc, uin, msg2[0], 0, time(NULL), -1); } g_free(uin); } } break; case 0x0004: { /* Someone sent you a URL */ if (i >= 2) { gchar *uin = g_strdup_printf("%lu", args->uin); gchar *message = g_strdup_printf("<A HREF=\"%s\">%s</A>", msg2[1], msg2[0]); serv_got_im(gc, uin, message, 0, time(NULL), -1); g_free(uin); g_free(message); } } break; case 0x0006: { /* Someone requested authorization */ if (i >= 6) { struct channel4_data *data = g_new(struct channel4_data, 1); char *dialog_msg = g_strdup_printf(_("The user %lu wants to add you to their buddy list for the following reason: %s"), args->uin, msg2[5] ? msg2[5] : _("No reason given.")); debug_printf("Received an authorization request from UIN %lu\n", args->uin); data->gc = gc; data->uin = g_strdup_printf("%lu", args->uin); do_ask_dialog(_("Authorization Request"), dialog_msg, data, _("Authorize"), gaim_icq_authgrant, _("Deny"), gaim_icq_authdeny); g_free(dialog_msg); } } break; case 0x0007: { /* Someone has denied you authorization */ if (i >= 1) { char *dialog_msg = g_strdup_printf(_("The user %lu has denied your request to add them to your contact list for the following reason:\n%s"), args->uin, msg2[0] ? msg2[0] : _("No reason given.")); do_error_dialog(_("ICQ authorization denied."), dialog_msg, GAIM_ERROR); g_free(dialog_msg); } } break; case 0x0008: { /* Someone has granted you authorization */ char *dialog_msg = g_strdup_printf(_("The user %lu has granted your request to add them to your contact list."), args->uin); do_error_dialog("ICQ authorization accepted.", dialog_msg, GAIM_INFO); g_free(dialog_msg); } break; case 0x000d: { /* Someone has sent you a pager message from http://www.icq.com/your_uin */ if (i >= 6) { char *dialog_msg = g_strdup_printf(_("You have received an ICQ page\n\nFrom: %s [%s]\n%s"), msg2[0], msg2[3], msg2[5]); do_error_dialog("ICQ Page", dialog_msg, GAIM_INFO); g_free(dialog_msg); } } break; case 0x000e: { /* Someone has emailed you at your_uin@pager.icq.com */ if (i >= 6) { char *dialog_msg = g_strdup_printf(_("You have received an ICQ email\n\n1=%s\n2=%s\n3=%s\n4=%s\n5=%s\n6=%s\n"), msg2[0], msg2[1], msg2[2], msg2[3], msg2[4], msg2[5]); do_error_dialog("ICQ Email", dialog_msg, GAIM_INFO); g_free(dialog_msg); } } break; case 0x0012: { /* Ack for authorizing/denying someone. Or possibly an ack for sending any system notice */ } break; case 0x0013: { /* Someone has sent you some ICQ contacts */ int i, num; gchar **text; text = g_strsplit(args->msg, "þ", 0); if (text) { num = 0; for (i=0; i<strlen(text[0]); i++) num = num*10 + text[0][i]-48; for (i=0; i<num; i++) { struct channel4_data *data = g_new(struct channel4_data, 1); gchar *message = g_strdup_printf(_("ICQ user %lu has sent you a contact: %s (%s)"), args->uin, text[i*2+2], text[i*2+1]); data->gc = gc; data->uin = g_strdup(text[i*2+2]); data->nick = g_strdup(text[i*2+1]); do_ask_dialog(message, _("Do you want to add this contact to your Buddy List?"), data, _("Add"), gaim_icq_contactadd, _("Deny"), gaim_icq_contactdontadd); g_free(message); } g_strfreev(text); } } break; case 0x001a: { /* Someone has sent you a greeting card or requested contacts? */ /* This is boring and silly. */ } break; default: { debug_printf("Received a channel 4 message of unknown type (type 0x%04d).\n", args->type); } break; } g_strfreev(msg1); g_strfreev(msg2); return 1; } static int gaim_parse_incoming_im(aim_session_t *sess, aim_frame_t *fr, ...) { int channel, ret = 0; aim_userinfo_t *userinfo; va_list ap; va_start(ap, fr); channel = va_arg(ap, 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(sess, fr->conn, userinfo, args); } break; case 2: { /* rendevous */ struct aim_incomingim_ch2_args *args; args = va_arg(ap, struct aim_incomingim_ch2_args *); ret = incomingim_chan2(sess, fr->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(sess, fr->conn, userinfo, args, 0); } break; default: { debug_printf("ICBM received on unsupported channel (channel 0x%04d).", channel); } break; } va_end(ap); return ret; } static int gaim_parse_misses(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; fu16_t chan, nummissed, reason; aim_userinfo_t *userinfo; char buf[1024]; va_start(ap, fr); chan = (fu16_t)va_arg(ap, unsigned int); userinfo = va_arg(ap, aim_userinfo_t *); nummissed = (fu16_t)va_arg(ap, unsigned int); reason = (fu16_t)va_arg(ap, unsigned int); va_end(ap); switch(reason) { case 0: /* Invalid (0) */ g_snprintf(buf, sizeof(buf), nummissed == 1 ? _("You missed %d message from %s because it was invalid.") : _("You missed %d messages from %s because they were invalid."), nummissed, userinfo->sn); break; case 1: /* Message too large */ g_snprintf(buf, sizeof(buf), nummissed == 1 ? _("You missed %d message from %s because it was too large.") : _("You missed %d messages from %s because they were too large."), nummissed, userinfo->sn); break; case 2: /* Rate exceeded */ g_snprintf(buf, sizeof(buf), nummissed == 1 ? _("You missed %d message from %s because the rate limit has been exceeded.") : _("You missed %d messages from %s because the rate limit has been exceeded."), nummissed, userinfo->sn); break; case 3: /* Evil Sender */ g_snprintf(buf, sizeof(buf), nummissed == 1 ? _("You missed %d message from %s because it was too evil.") : _("You missed %d messages from %s because they are too evil."), nummissed, userinfo->sn); break; case 4: /* Evil Receiver */ g_snprintf(buf, sizeof(buf), nummissed == 1 ? _("You missed %d message from %s because you are too evil.") : _("You missed %d messages from %s because you are too evil."), nummissed, userinfo->sn); break; default: g_snprintf(buf, sizeof(buf), nummissed == 1 ? _("You missed %d message from %s for unknown reasons.") : _("You missed %d messages from %s for unknown reasons."), nummissed, userinfo->sn); break; } do_error_dialog(buf, NULL, GAIM_ERROR); return 1; } static char *gaim_icq_status(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_printf("Free For Chat"); else if (state & AIM_ICQ_STATE_DND) return g_strdup_printf("Do Not Disturb"); else if (state & AIM_ICQ_STATE_OUT) return g_strdup_printf("Not Available"); else if (state & AIM_ICQ_STATE_BUSY) return g_strdup_printf("Occupied"); else if (state & AIM_ICQ_STATE_AWAY) return g_strdup_printf("Away"); else if (state & AIM_ICQ_STATE_WEBAWARE) return g_strdup_printf("Web Aware"); else if (state & AIM_ICQ_STATE_INVISIBLE) return g_strdup_printf("Invisible"); else return g_strdup_printf("Online"); } static int gaim_parse_clientauto_rend(aim_session_t *sess, const char *who, int reason, const char *cookie) { struct gaim_connection *gc = sess->aux_data; struct oscar_file_transfer *oft; char *buf; switch (reason) { case 3: /* Decline sendfile. */ oft = find_oft_by_cookie(gc, cookie); if (oft) { buf = g_strdup_printf(_("%s has declined to receive a file from %s.\n"), who, gc->username); transfer_abort(oft->xfer, buf); g_free(buf); oscar_file_transfer_disconnect(sess, oft->conn); } break; default: debug_printf("Received an unknown rendezvous client auto-response from %s. Type 0x%04x\n", who, reason); } return 0; } static int gaim_parse_clientauto(aim_session_t *sess, aim_frame_t *fr, ...) { struct gaim_connection *gc = sess->aux_data; va_list ap; fu16_t chan, reason; char *who; va_start(ap, fr); chan = (fu16_t)va_arg(ap, unsigned int); who = va_arg(ap, char *); reason = (fu16_t)va_arg(ap, unsigned int); if (chan == 0x0002) { /* File transfer declined */ char *cookie = va_arg(ap, char *); return gaim_parse_clientauto_rend(sess, who, reason, cookie); } else if (chan == 0x0004) { /* ICQ message */ switch(reason) { case 0x0003: { /* Reply from an ICQ status message request */ int state = (int)va_arg(ap, fu32_t); char *msg = va_arg(ap, char *); char *status_msg = gaim_icq_status(state); char *dialog_msg, **splitmsg; struct oscar_data *od = gc->proto_data; GSList *l = od->evilhack; gboolean evilhack = FALSE; /* Split at (carriage return/newline)'s, then rejoin later with BRs between. */ splitmsg = g_strsplit(msg, "\r\n", 0); /* If who is in od->evilhack, then we're just getting the away message, otherwise this * will just get appended to the info box (which is already showing). */ while (l) { char *x = l->data; if (!strcmp(x, normalize(who))) { evilhack = TRUE; g_free(x); od->evilhack = g_slist_remove(od->evilhack, x); break; } l = l->next; } if (evilhack) dialog_msg = g_strdup_printf(_("<B>UIN:</B> %s<BR><B>Status:</B> %s<BR><HR>%s<BR>"), who, status_msg, g_strjoinv("<BR>", splitmsg)); else dialog_msg = g_strdup_printf(_("<B>Status:</B> %s<BR><HR>%s<BR>"), status_msg, g_strjoinv("<BR>", splitmsg)); g_show_info_text(gc, who, 2, dialog_msg, NULL); g_free(status_msg); g_free(dialog_msg); g_strfreev(splitmsg); } break; default: { debug_printf("Received an unknown client auto-response from %s. Type 0x%04x\n", who, reason); } break; } /* end of switch */ } /* end of if */ va_end(ap); return 1; } static int gaim_parse_genericerr(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; fu16_t reason; char *m; va_start(ap, fr); reason = (fu16_t)va_arg(ap, unsigned int); va_end(ap); debug_printf("snac threw error (reason 0x%04x: %s)\n", reason, (reason < msgerrreasonlen) ? msgerrreason[reason] : "unknown"); m = g_strdup_printf(_("SNAC threw error: %s\n"), reason < msgerrreasonlen ? gettext(msgerrreason[reason]) : _("Unknown error")); do_error_dialog(m, NULL, GAIM_ERROR); g_free(m); return 1; } static int gaim_parse_msgerr(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; char *data; fu16_t reason; char buf[1024]; struct gaim_connection *gc = sess->aux_data; struct oscar_file_transfer *oft; va_start(ap, fr); reason = (fu16_t)va_arg(ap, unsigned int); data = va_arg(ap, char *); va_end(ap); /* If this was a file transfer request, data is a cookie. */ if ((oft = find_oft_by_cookie(gc, data))) { transfer_abort(oft->xfer, (reason < msgerrreasonlen) ? gettext(msgerrreason[reason]) : _("No reason was given.")); oscar_file_transfer_disconnect(sess, oft->conn); return 1; } /* Data is assumed to be the destination sn. */ snprintf(buf, sizeof(buf), _("Your message to %s did not get sent:"), data); do_error_dialog(buf, (reason < msgerrreasonlen) ? gettext(msgerrreason[reason]) : _("No reason was given."), GAIM_ERROR); return 1; } static int gaim_parse_mtn(aim_session_t *sess, aim_frame_t *fr, ...) { struct gaim_connection *gc = sess->aux_data; va_list ap; fu16_t type1, type2; char *sn; va_start(ap, fr); type1 = (fu16_t)va_arg(ap, unsigned int); sn = va_arg(ap, char *); type2 = (fu16_t)va_arg(ap, unsigned int); va_end(ap); debug_printf("Received an mtn from %s. Type1 is 0x%04d and type2 is 0x%04d.\n", sn, type1, type2); switch (type2) { case 0x0000: { /* Text has been cleared */ serv_got_typing_stopped(gc, sn); } break; case 0x0001: { /* Paused typing */ serv_got_typing(gc, sn, 0, TYPED); } break; case 0x0002: { /* Typing */ serv_got_typing(gc, sn, 0, TYPING); } break; default: { printf("Received unknown typing notification type.\n"); } break; } return 1; } static int gaim_parse_locerr(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; char *destn; fu16_t reason; char buf[1024]; va_start(ap, fr); reason = (fu16_t)va_arg(ap, unsigned int); destn = va_arg(ap, char *); va_end(ap); snprintf(buf, sizeof(buf), _("User information for %s unavailable:"), destn); do_error_dialog(buf, (reason < msgerrreasonlen) ? gettext(msgerrreason[reason]) : _("No reason was given."), GAIM_ERROR); return 1; } static char *images(int flags) { static char buf[1024]; g_snprintf(buf, sizeof(buf), "%s%s%s%s%s%s%s", (flags & AIM_FLAG_ACTIVEBUDDY) ? "<IMG SRC=\"ab_icon.gif\">" : "", (flags & AIM_FLAG_UNCONFIRMED) ? "<IMG SRC=\"dt_icon.gif\">" : "", (flags & AIM_FLAG_AOL) ? "<IMG SRC=\"aol_icon.gif\">" : "", (flags & AIM_FLAG_ICQ) ? "<IMG SRC=\"icq_icon.gif\">" : "", (flags & AIM_FLAG_ADMINISTRATOR) ? "<IMG SRC=\"admin_icon.gif\">" : "", (flags & AIM_FLAG_FREE) ? "<IMG SRC=\"free_icon.gif\">" : "", (flags & AIM_FLAG_WIRELESS) ? "<IMG SRC=\"wireless_icon.gif\">" : ""); return buf; } /* XXX This is horribly copied from ../../buddy.c. */ static char *caps_string(guint caps) { static char buf[512], *tmp; int count = 0, i = 0; guint bit = 1; while (bit <= 0x10000) { if (bit & caps) { switch (bit) { case 0x1: tmp = _("Buddy Icon"); break; case 0x2: tmp = _("Voice"); break; case 0x4: tmp = _("IM Image"); break; case 0x8: tmp = _("Chat"); break; case 0x10: tmp = _("Get File"); break; case 0x20: tmp = _("Send File"); break; case 0x40: case 0x200: tmp = _("Games"); break; case 0x80: tmp = _("Stocks"); break; case 0x100: tmp = _("Send Buddy List"); break; case 0x400: tmp = _("EveryBuddy Bug"); break; case 0x800: tmp = _("AP User"); break; case 0x1000: tmp = _("ICQ RTF"); break; case 0x2000: tmp = _("Nihilist"); break; case 0x4000: tmp = _("ICQ Server Relay"); break; case 0x8000: tmp = _("ICQ Unknown"); break; case 0x10000: tmp = _("Trillian Encryption"); break; default: tmp = NULL; break; } if (tmp) i += g_snprintf(buf + i, sizeof(buf) - i, "%s%s", (count ? ", " : ""), tmp); count++; } bit <<= 1; } return buf; } static int gaim_parse_user_info(aim_session_t *sess, aim_frame_t *fr, ...) { aim_userinfo_t *info; char *prof_enc = NULL, *prof = NULL; fu16_t infotype; char header[BUF_LONG]; char legend[BUF_LONG]; struct gaim_connection *gc = sess->aux_data; struct oscar_data *od = gc->proto_data; GSList *l = od->evilhack; gboolean evilhack = FALSE; va_list ap; gchar *membersince = NULL, *onlinesince = NULL, *idle = NULL; va_start(ap, fr); info = va_arg(ap, aim_userinfo_t *); infotype = (fu16_t)va_arg(ap, unsigned int); prof_enc = va_arg(ap, char *); prof = va_arg(ap, char *); va_end(ap); if (!od->icq) { g_snprintf(legend, sizeof legend, _("<BODY BGCOLOR=WHITE><hr><I>Legend:</I><br><br>" "<IMG SRC=\"free_icon.gif\"> : Normal AIM User<br>" "<IMG SRC=\"aol_icon.gif\"> : AOL User <br>" "<IMG SRC=\"dt_icon.gif\"> : Trial AIM User <br>" "<IMG SRC=\"admin_icon.gif\"> : Administrator <br>" "<IMG SRC=\"ab_icon.gif\"> : ActiveBuddy Interactive Agent<br>" "<IMG SRC=\"wireless_icon.gif\"> : Wireless Device User<br>")); } else { legend[0] = 0; } if (info->present & AIM_USERINFO_PRESENT_ONLINESINCE) { onlinesince = g_strdup_printf("Online Since : <B>%s</B><BR>\n", asctime(localtime(&info->onlinesince))); } if (info->present & AIM_USERINFO_PRESENT_MEMBERSINCE) { membersince = g_strdup_printf("Member Since : <B>%s</B><BR>\n", asctime(localtime(&info->membersince))); } if (info->present & AIM_USERINFO_PRESENT_IDLE) { idle = g_strdup_printf("Idle : <B>%d minutes</B>", info->idletime); } else idle = g_strdup("Idle: <B>Active</B>"); g_snprintf(header, sizeof header, _("Username : <B>%s</B> %s <BR>\n" "Warning Level : <B>%d %%</B><BR>\n" "%s" "%s" "%s<BR>\n" "<HR>\n"), info->sn, images(info->flags), info->warnlevel/10, onlinesince ? onlinesince : "", membersince ? membersince : "", idle ? idle : ""); g_free(onlinesince); g_free(membersince); g_free(idle); while (l) { char *x = l->data; if (!strcmp(x, normalize(info->sn))) { evilhack = TRUE; g_free(x); od->evilhack = g_slist_remove(od->evilhack, x); break; } l = l->next; } if (infotype == AIM_GETINFO_AWAYMESSAGE) { if (evilhack) { g_show_info_text(gc, info->sn, 2, header, (prof && *prof) ? away_subs(prof, gc->username) : _("<i>User has no away message</i>"), legend, NULL); } else { g_show_info_text(gc, info->sn, 0, header, (prof && *prof) ? away_subs(prof, gc->username) : NULL, (prof && *prof) ? "<BR><HR>" : NULL, NULL); } } else if (infotype == AIM_GETINFO_CAPABILITIES) { g_show_info_text(gc, info->sn, 2, header, "<i>", _("Client Capabilities: "), caps_string(info->capabilities), "</i>", legend, NULL); } else { g_show_info_text(gc, info->sn, 1, (prof && *prof) ? away_subs(prof, gc->username) : _("<i>No Information Provided</i>"), legend, NULL); } return 1; } static int gaim_parse_motd(aim_session_t *sess, aim_frame_t *fr, ...) { char *msg; fu16_t id; va_list ap; char buildbuf[150]; va_start(ap, fr); id = (fu16_t)va_arg(ap, unsigned int); msg = va_arg(ap, char *); va_end(ap); aim_getbuildstring(buildbuf, sizeof(buildbuf)); debug_printf("MOTD: %s (%d)\n", msg ? msg : "Unknown", id); if (id < 4) do_error_dialog(_("Your AIM connection may be lost."), NULL, GAIM_WARNING); return 1; } static int gaim_chatnav_info(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; fu16_t type; struct gaim_connection *gc = sess->aux_data; struct oscar_data *odata = (struct oscar_data *)gc->proto_data; va_start(ap, fr); type = (fu16_t)va_arg(ap, unsigned int); switch(type) { case 0x0002: { fu8_t maxrooms; struct aim_chat_exchangeinfo *exchanges; int exchangecount, i; maxrooms = (fu8_t)va_arg(ap, unsigned int); exchangecount = va_arg(ap, int); exchanges = va_arg(ap, struct aim_chat_exchangeinfo *); va_end(ap); debug_printf("chat info: Chat Rights:\n"); debug_printf("chat info: \tMax Concurrent Rooms: %d\n", maxrooms); debug_printf("chat info: \tExchange List: (%d total)\n", exchangecount); for (i = 0; i < exchangecount; i++) debug_printf("chat info: \t\t%d %s\n", exchanges[i].number, exchanges[i].name ? exchanges[i].name : ""); while (odata->create_rooms) { struct create_room *cr = odata->create_rooms->data; debug_printf("creating room %s\n", cr->name); aim_chatnav_createroom(sess, fr->conn, cr->name, cr->exchange); g_free(cr->name); odata->create_rooms = g_slist_remove(odata->create_rooms, cr); g_free(cr); } } break; case 0x0008: { char *fqcn, *name, *ck; fu16_t instance, flags, maxmsglen, maxoccupancy, unknown, exchange; fu8_t createperms; fu32_t createtime; fqcn = va_arg(ap, char *); instance = (fu16_t)va_arg(ap, unsigned int); exchange = (fu16_t)va_arg(ap, unsigned int); flags = (fu16_t)va_arg(ap, unsigned int); createtime = va_arg(ap, fu32_t); maxmsglen = (fu16_t)va_arg(ap, unsigned int); maxoccupancy = (fu16_t)va_arg(ap, unsigned int); createperms = (fu8_t)va_arg(ap, int); unknown = (fu16_t)va_arg(ap, unsigned int); name = va_arg(ap, char *); ck = va_arg(ap, char *); va_end(ap); debug_printf("created room: %s %d %d %d %lu %d %d %d %d %s %s\n", fqcn, exchange, instance, flags, createtime, maxmsglen, maxoccupancy, createperms, unknown, name, ck); aim_chat_join(odata->sess, odata->conn, exchange, ck, instance); } break; default: va_end(ap); debug_printf("chatnav info: unknown type (%04x)\n", type); break; } return 1; } static int gaim_chat_join(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; int count, i; aim_userinfo_t *info; struct gaim_connection *g = sess->aux_data; 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(g, fr->conn); if (!c) return 1; for (i = 0; i < count; i++) add_chat_buddy(c->cnv, info[i].sn, NULL); return 1; } static int gaim_chat_leave(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; int count, i; aim_userinfo_t *info; struct gaim_connection *g = sess->aux_data; 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(g, fr->conn); if (!c) return 1; for (i = 0; i < count; i++) remove_chat_buddy(c->cnv, info[i].sn, NULL); return 1; } static int gaim_chat_info_update(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; aim_userinfo_t *userinfo; struct aim_chat_roominfo *roominfo; char *roomname; int usercount; char *roomdesc; fu16_t unknown_c9, unknown_d2, unknown_d5, maxmsglen, maxvisiblemsglen; fu32_t creationtime; struct gaim_connection *gc = sess->aux_data; struct chat_connection *ccon = find_oscar_chat_by_conn(gc, fr->conn); 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 = (fu16_t)va_arg(ap, int); creationtime = (fu32_t)va_arg(ap, unsigned long); maxmsglen = (fu16_t)va_arg(ap, int); unknown_d2 = (fu16_t)va_arg(ap, int); unknown_d5 = (fu16_t)va_arg(ap, int); maxvisiblemsglen = (fu16_t)va_arg(ap, int); va_end(ap); debug_printf("inside chat_info_update (maxmsglen = %d, maxvislen = %d)\n", maxmsglen, maxvisiblemsglen); ccon->maxlen = maxmsglen; ccon->maxvis = maxvisiblemsglen; return 1; } static int gaim_chat_incoming_msg(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; aim_userinfo_t *info; char *msg; struct gaim_connection *gc = sess->aux_data; struct chat_connection *ccon = find_oscar_chat_by_conn(gc, fr->conn); char *tmp; va_start(ap, fr); info = va_arg(ap, aim_userinfo_t *); msg = va_arg(ap, char *); tmp = g_malloc(BUF_LONG); g_snprintf(tmp, BUF_LONG, "%s", msg); serv_got_chat_in(gc, ccon->id, info->sn, 0, tmp, time((time_t)NULL)); g_free(tmp); return 1; } static int gaim_email_parseupdate(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; struct gaim_connection *gc = sess->aux_data; struct aim_emailinfo *emailinfo; int havenewmail; va_start(ap, fr); emailinfo = va_arg(ap, struct aim_emailinfo *); havenewmail = va_arg(ap, int); va_end(ap); if (emailinfo) { debug_printf("Got email info. webmail address for screenname@%s is %s, new email: %hd, number new: %d, flag is %d, havenewmail is %d\n", emailinfo->domain, emailinfo->url, emailinfo->unread, emailinfo->nummsgs, emailinfo->flag, havenewmail); if (emailinfo->unread) { if (havenewmail) connection_has_mail(gc, emailinfo->nummsgs ? emailinfo->nummsgs : -1, NULL, NULL, emailinfo->url); } else connection_has_mail(gc, 0, NULL, NULL, emailinfo->url); } return 1; } /* * Recieved in response to an IM sent with the AIM_IMFLAGS_ACK option. */ static int gaim_parse_msgack(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; fu16_t type; char *sn; va_start(ap, fr); type = (fu16_t)va_arg(ap, unsigned int); sn = va_arg(ap, char *); va_end(ap); debug_printf("Sent message to %s.\n", sn); return 1; } static int gaim_parse_ratechange(aim_session_t *sess, aim_frame_t *fr, ...) { static const char *codes[5] = { "invalid", "change", "warning", "limit", "limit cleared", }; va_list ap; fu16_t code, rateclass; fu32_t windowsize, clear, alert, limit, disconnect, currentavg, maxavg; va_start(ap, fr); code = (fu16_t)va_arg(ap, unsigned int); rateclass= (fu16_t)va_arg(ap, unsigned int); windowsize = (fu32_t)va_arg(ap, unsigned long); clear = (fu32_t)va_arg(ap, unsigned long); alert = (fu32_t)va_arg(ap, unsigned long); limit = (fu32_t)va_arg(ap, unsigned long); disconnect = (fu32_t)va_arg(ap, unsigned long); currentavg = (fu32_t)va_arg(ap, unsigned long); maxavg = (fu32_t)va_arg(ap, unsigned long); va_end(ap); debug_printf("rate %s (paramid 0x%04lx): curavg = %ld, maxavg = %ld, alert at %ld, " "clear warning at %ld, limit at %ld, disconnect at %ld (window size = %ld)\n", (code < 5) ? codes[code] : codes[0], rateclass, currentavg, maxavg, alert, clear, limit, disconnect, windowsize); /* XXX fix these values */ if (code == AIM_RATE_CODE_CHANGE) { if (currentavg >= clear) aim_conn_setlatency(fr->conn, 0); } else if (code == AIM_RATE_CODE_WARNING) { aim_conn_setlatency(fr->conn, windowsize/4); } else if (code == AIM_RATE_CODE_LIMIT) { do_error_dialog(_("Rate limiting error."), _("The last message was not sent because you are over the rate limit. " "Please wait 10 seconds and try again."), GAIM_ERROR); aim_conn_setlatency(fr->conn, windowsize/2); } else if (code == AIM_RATE_CODE_CLEARLIMIT) { aim_conn_setlatency(fr->conn, 0); } return 1; } static int gaim_parse_evilnotify(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; fu16_t newevil; aim_userinfo_t *userinfo; struct gaim_connection *gc = sess->aux_data; va_start(ap, fr); newevil = (fu16_t)va_arg(ap, unsigned int); userinfo = va_arg(ap, aim_userinfo_t *); va_end(ap); serv_got_eviled(gc, (userinfo && userinfo->sn[0]) ? userinfo->sn : NULL, newevil / 10); return 1; } static int gaim_selfinfo(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; aim_userinfo_t *info; struct gaim_connection *gc = sess->aux_data; va_start(ap, fr); info = va_arg(ap, aim_userinfo_t *); va_end(ap); gc->evil = info->warnlevel/10; /* gc->correction_time = (info->onlinesince - gc->login_time); */ return 1; } static int conninitdone_bos(aim_session_t *sess, aim_frame_t *fr, ...) { struct gaim_connection *gc = sess->aux_data; struct oscar_data *od = gc->proto_data; aim_reqpersonalinfo(sess, fr->conn); aim_bos_reqlocaterights(sess, fr->conn); aim_bos_reqbuddyrights(sess, fr->conn); aim_reqicbmparams(sess); aim_bos_reqrights(sess, fr->conn); if (od->icq) { aim_bos_setgroupperm(sess, fr->conn, AIM_FLAG_ALLUSERS); aim_bos_setprivacyflags(sess, fr->conn, AIM_PRIVFLAGS_ALLOWIDLE | AIM_PRIVFLAGS_ALLOWMEMBERSINCE); } return 1; } static int conninitdone_admin(aim_session_t *sess, aim_frame_t *fr, ...) { struct gaim_connection *gc = sess->aux_data; struct oscar_data *od = gc->proto_data; aim_clientready(sess, fr->conn); debug_printf("connected to admin\n"); if (od->chpass) { debug_printf("changing password\n"); aim_admin_changepasswd(sess, fr->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) { debug_printf("formatting screenname\n"); aim_admin_setnick(sess, fr->conn, od->newsn); g_free(od->newsn); od->newsn = NULL; od->setnick = FALSE; } if (od->conf) { debug_printf("confirming account\n"); aim_admin_reqconfirm(sess, fr->conn); od->conf = FALSE; } if (od->reqemail) { debug_printf("requesting email\n"); aim_admin_getinfo(sess, fr->conn, 0x0011); od->reqemail = FALSE; } if (od->setemail) { debug_printf("setting email\n"); aim_admin_setemail(sess, fr->conn, od->email); g_free(od->email); od->setemail = FALSE; } return 1; } static int gaim_icbm_param_info(aim_session_t *sess, aim_frame_t *fr, ...) { struct aim_icbmparameters *params; va_list ap; va_start(ap, fr); params = va_arg(ap, struct aim_icbmparameters *); va_end(ap); /* evidently this crashes on solaris. i have no clue why debug_printf("ICBM Parameters: maxchannel = %d, default flags = 0x%08lx, max msg len = %d, " "max sender evil = %f, max receiver evil = %f, min msg interval = %ld\n", params->maxchan, params->flags, params->maxmsglen, ((float)params->maxsenderwarn)/10.0, ((float)params->maxrecverwarn)/10.0, params->minmsginterval); */ /* Maybe senderwarn and recverwarn should be user preferences... */ params->flags = 0x0000000b; params->maxmsglen = 8000; params->minmsginterval = 0; aim_seticbmparam(sess, params); return 1; } static int gaim_parse_locaterights(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; fu16_t maxsiglen; struct gaim_connection *gc = sess->aux_data; struct oscar_data *odata = (struct oscar_data *)gc->proto_data; va_start(ap, fr); maxsiglen = va_arg(ap, int); va_end(ap); debug_printf("locate rights: max sig len = %d\n", maxsiglen); odata->rights.maxsiglen = odata->rights.maxawaymsglen = (guint)maxsiglen; if (odata->icq) aim_bos_setprofile(sess, fr->conn, NULL, NULL, caps_icq); else aim_bos_setprofile(sess, fr->conn, gc->user->user_info, NULL, caps_aim); return 1; } static int gaim_parse_buddyrights(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; fu16_t maxbuddies, maxwatchers; struct gaim_connection *gc = sess->aux_data; struct oscar_data *odata = (struct oscar_data *)gc->proto_data; va_start(ap, fr); maxbuddies = (fu16_t)va_arg(ap, unsigned int); maxwatchers = (fu16_t)va_arg(ap, unsigned int); va_end(ap); debug_printf("buddy list rights: Max buddies = %d / Max watchers = %d\n", maxbuddies, maxwatchers); odata->rights.maxbuddies = (guint)maxbuddies; odata->rights.maxwatchers = (guint)maxwatchers; return 1; } static int gaim_bosrights(aim_session_t *sess, aim_frame_t *fr, ...) { fu16_t maxpermits, maxdenies; va_list ap; struct gaim_connection *gc = sess->aux_data; struct oscar_data *odata = (struct oscar_data *)gc->proto_data; va_start(ap, fr); maxpermits = (fu16_t)va_arg(ap, unsigned int); maxdenies = (fu16_t)va_arg(ap, unsigned int); va_end(ap); debug_printf("BOS rights: Max permit = %d / Max deny = %d\n", maxpermits, maxdenies); odata->rights.maxpermits = (guint)maxpermits; odata->rights.maxdenies = (guint)maxdenies; account_online(gc); serv_finish_login(gc); if (bud_list_cache_exists(gc)) do_import(gc, NULL); debug_printf("buddy list loaded\n"); aim_clientready(sess, fr->conn); /* XXX - Should call aim_bos_setidle with 0x0000 */ /* XXX - Should only call reqofflinemsgs when using ICQ? */ aim_icq_reqofflinemsgs(sess); aim_reqservice(sess, fr->conn, AIM_CONN_TYPE_CHATNAV); if (sess->authinfo->email) aim_reqservice(sess, fr->conn, AIM_CONN_TYPE_EMAIL); if (!odata->icq) { debug_printf("ssi: requesting ssi list\n"); aim_ssi_reqrights(sess, fr->conn); aim_ssi_reqdata(sess, fr->conn, sess->ssi.timestamp, sess->ssi.revision); } return 1; } static int gaim_offlinemsg(aim_session_t *sess, aim_frame_t *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); debug_printf("Received offline message. Converting to channel 4 ICBM...\n"); args.uin = msg->sender; args.type = msg->type; args.msglen = msg->msglen; args.msg = msg->msg; t = get_time(msg->year, msg->month, msg->day, msg->hour, msg->minute, 0); incomingim_chan4(sess, fr->conn, NULL, &args, t); return 1; } static int gaim_offlinemsgdone(aim_session_t *sess, aim_frame_t *fr, ...) { aim_icq_ackofflinemsgs(sess); return 1; } static int gaim_simpleinfo(aim_session_t *sess, aim_frame_t *fr, ...) { struct gaim_connection *gc = sess->aux_data; struct buddy *budlight; va_list ap; struct aim_icq_simpleinfo *info; char buf[16 * 1024]; char who[16]; va_start(ap, fr); info = va_arg(ap, struct aim_icq_simpleinfo *); va_end(ap); g_snprintf(who, sizeof who, "%lu", info->uin); g_snprintf(buf, sizeof buf, "<B>UIN:</B> %lu<BR>" "<B>Nick:</B> %s<BR>" "<B>Name:</B> %s %s<BR>" "<B>Email:</B> %s<BR>\n", info->uin, info->nick, info->first, info->last, info->email); /* If the contact is away, then we also want to get their status message * and show it in the same window as info. g_show_info_text gets the status * message if the third arg is 0 (this seems really gross to me). The * parse-icq-status-message function knows if it is putting it's message in * an info window because the name will _not_ be in od->evilhack. For getting * only the away message the contact's UIN is put in od->evilhack. */ if ((budlight = find_buddy(gc, who))) { if ((budlight->uc >> 16) & (AIM_ICQ_STATE_AWAY || AIM_ICQ_STATE_DND || AIM_ICQ_STATE_OUT || AIM_ICQ_STATE_BUSY || AIM_ICQ_STATE_CHAT)) { if (budlight->caps & AIM_CAPS_ICQSERVERRELAY) g_show_info_text(gc, who, 0, buf, NULL); else { char *state_msg = gaim_icq_status((budlight->uc & 0xffff0000) >> 16); g_show_info_text(gc, who, 2, buf, "<B>Status:</B> ", state_msg, "<BR>\n<HR><I>Remote client does not support sending status messages.</I><BR>\n", NULL); free(state_msg); } } else { char *state_msg = gaim_icq_status((budlight->uc & 0xffff0000) >> 16); g_show_info_text(gc, who, 2, buf, "<B>Status:</B> ", state_msg, NULL); free(state_msg); } } else g_show_info_text(gc, who, 2, buf, NULL); return 1; } static int gaim_popup(aim_session_t *sess, aim_frame_t *fr, ...) { char *msg, *url; fu16_t wid, hei, delay; va_list ap; va_start(ap, fr); msg = va_arg(ap, char *); url = va_arg(ap, char *); wid = (fu16_t)va_arg(ap, int); hei = (fu16_t)va_arg(ap, int); delay = (fu16_t)va_arg(ap, int); va_end(ap); serv_got_popup(msg, url, wid, hei); return 1; } static int gaim_parse_searchreply(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; char *address, *SNs; int i, num; char *buf; int at = 0, len; va_start(ap, fr); address = va_arg(ap, char *); num = va_arg(ap, int); SNs = va_arg(ap, char *); va_end(ap); len = num * (MAXSNLEN + 1) + 1024; buf = g_malloc(len); at += g_snprintf(buf + at, len - at, "<B>%s has the following screen names:</B><BR>", address); for (i = 0; i < num; i++) at += g_snprintf(buf + at, len - at, "%s<BR>", &SNs[i * (MAXSNLEN + 1)]); g_show_info_text(NULL, NULL, 2, buf, NULL); g_free(buf); return 1; } static int gaim_parse_searcherror(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; char *address; char buf[BUF_LONG]; va_start(ap, fr); address = va_arg(ap, char *); va_end(ap); g_snprintf(buf, sizeof(buf), "No results found for email address %s", address); do_error_dialog(buf, NULL, GAIM_ERROR); return 1; } static int gaim_account_confirm(aim_session_t *sess, aim_frame_t *fr, ...) { fu16_t status; va_list ap; char msg[256]; struct gaim_connection *gc = sess->aux_data; va_start(ap, fr); status = (fu16_t)va_arg(ap, unsigned int); /* status code of confirmation request */ va_end(ap); debug_printf("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.", gc->username); do_error_dialog(_("Account Confirmation Requested"), msg, GAIM_INFO); } return 1; } static int gaim_info_change(aim_session_t *sess, aim_frame_t *fr, ...) { struct gaim_connection *gc = sess->aux_data; va_list ap; fu16_t perms, err; char *url, *sn, *email; int change; va_start(ap, fr); change = va_arg(ap, int); perms = (fu16_t)va_arg(ap, unsigned int); err = (fu16_t)va_arg(ap, unsigned int); url = va_arg(ap, char *); sn = va_arg(ap, char *); email = va_arg(ap, char *); va_end(ap); debug_printf("account info: because of %s, perms=0x%04x, err=0x%04x, url=%s, sn=%s, email=%s\n", change ? "change" : "request", perms, err, url, sn, email); if (err && url) { char *dialog_msg; char *dialog_top = g_strdup_printf(_("Error Changing Account Info")); switch (err) { case 0x0001: { dialog_msg = g_strdup_printf(_("Error 0x%04x: Unable to format screen name because the requested screen name differs from the original."), err); } break; case 0x0006: { dialog_msg = g_strdup_printf(_("Error 0x%04x: Unable to format screen name because the requested screen name ends in a space."), err); } break; case 0x000b: { dialog_msg = g_strdup_printf(_("Error 0x%04x: Unable to format screen name because the requested screen name is too long."), err); } break; case 0x001d: { dialog_msg = g_strdup_printf(_("Error 0x%04x: Unable to change email address because there is already a request pending for this screen name."), err); } break; case 0x0021: { dialog_msg = g_strdup_printf(_("Error 0x%04x: Unable to change email address because the given address has too many screen names associated with it."), err); } break; case 0x0023: { dialog_msg = g_strdup_printf(_("Error 0x%04x: Unable to change email address because the given address is invalid."), err); } break; default: { dialog_msg = g_strdup_printf(_("Error 0x%04x: Unknown error."), err); } break; } do_error_dialog(dialog_top, dialog_msg, GAIM_ERROR); g_free(dialog_top); g_free(dialog_msg); return 1; } if (sn) { char *dialog_msg = g_strdup_printf(_("Your screen name is currently formated as follows:\n%s"), sn); do_error_dialog(_("Account Info"), dialog_msg, GAIM_INFO); g_free(dialog_msg); } if (email) { char *dialog_msg = g_strdup_printf(_("The email address for %s is %s"), gc->username, email); do_error_dialog(_("Account Info"), dialog_msg, GAIM_INFO); g_free(dialog_msg); } return 1; } static void oscar_keepalive(struct gaim_connection *gc) { struct oscar_data *odata = (struct oscar_data *)gc->proto_data; aim_flap_nop(odata->sess, odata->conn); } static int oscar_send_typing(struct gaim_connection *gc, char *name, int typing) { struct oscar_data *odata = (struct oscar_data *)gc->proto_data; struct direct_im *dim = find_direct_im(odata, name); if (dim) aim_send_typing(odata->sess, dim->conn, typing); else { char *who = normalize(name); if (g_hash_table_lookup(odata->supports_tn, who)) { if (typing == TYPING) aim_mtn_send(odata->sess, 0x0001, name, 0x0002); else if (typing == TYPED) aim_mtn_send(odata->sess, 0x0001, name, 0x0001); else aim_mtn_send(odata->sess, 0x0001, name, 0x0000); } } return 0; } static void oscar_ask_direct_im(struct gaim_connection *gc, char *name); static int oscar_send_im(struct gaim_connection *gc, char *name, char *message, int len, int imflags) { struct oscar_data *odata = (struct oscar_data *)gc->proto_data; struct direct_im *dim = find_direct_im(odata, name); int ret = 0; GError *err = NULL; if (dim) { if (dim->connected) { /* If we're not connected yet, send through server */ /* AAA - The last parameter below is the encoding. Let Paco-Paco do something with it. */ ret = aim_send_im_direct(odata->sess, dim->conn, message, len == -1 ? strlen(message) : len, 0); if (ret == 0) return 1; else return ret; } debug_printf("Direct IM pending, but not connected; sending through server\n"); } else if (len != -1) { /* Trying to send an IM image outside of a direct connection. */ oscar_ask_direct_im(gc, name); return -ENOTCONN; } if (imflags & IM_FLAG_AWAY) { ret = aim_send_im(odata->sess, name, AIM_IMFLAGS_AWAY, message); } else { struct aim_sendimext_args args; GSList *h = odata->hasicons; struct icon_req *ir = NULL; char *who = normalize(name); struct stat st; int i, len; args.flags = AIM_IMFLAGS_ACK | AIM_IMFLAGS_CUSTOMFEATURES; if (odata->icq) args.flags |= AIM_IMFLAGS_OFFLINE; args.features = gaim_features; args.featureslen = sizeof(gaim_features); while (h) { ir = h->data; if (ir->request && !strcmp(who, ir->user)) break; h = h->next; } if (h) { ir->request = FALSE; args.flags |= AIM_IMFLAGS_BUDDYREQ; debug_printf("sending buddy icon request with message\n"); } if (gc->user->iconfile[0] && !stat(gc->user->iconfile, &st)) { FILE *file = fopen(gc->user->iconfile, "r"); if (file) { char *buf = g_malloc(st.st_size); fread(buf, 1, st.st_size, file); args.iconlen = st.st_size; args.iconsum = aim_iconsum(buf, st.st_size); args.iconstamp = st.st_mtime; args.flags |= AIM_IMFLAGS_HASICON; debug_printf("Claiming to have an icon.\n"); fclose(file); g_free(buf); } } args.destsn = name; /* 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. */ len = strlen(message); i = 0; while (message[i]) { if ((unsigned char)message[i] > 0x7f) { /* not ASCII! */ args.flags |= AIM_IMFLAGS_ISO_8859_1; break; } i++; } while (message[i]) { /* ISO-8859-1 is 0x00-0xbf in the first byte * followed by 0xc0-0xc3 in the second */ if ((unsigned char)message[i] < 0x80) { i++; continue; } else if (((unsigned char)message[i] & 0xfc) == 0xc0 && ((unsigned char)message[i + 1] & 0xc0) == 0x80) { i += 2; continue; } args.flags ^= AIM_IMFLAGS_ISO_8859_1; args.flags |= AIM_IMFLAGS_UNICODE; break; } if (args.flags & AIM_IMFLAGS_UNICODE) { debug_printf ("Sending Unicode IM\n"); args.msg = g_convert(message, len, "UCS-2BE", "UTF-8", NULL, &len, &err); if (err) { debug_printf("Error converting a unicode message: %s\n", err->message); debug_printf("This really shouldn't happen!\n"); /* We really shouldn't try to send the * IM now, but I'm not sure what to do */ } } else if (args.flags & AIM_IMFLAGS_ISO_8859_1) { debug_printf ("Sending ISO-8859-1 IM\n"); args.msg = g_convert(message, len, "ISO-8859-1", "UTF-8", NULL, &len, &err); if (err) { debug_printf("conversion error: %s\n", err->message); debug_printf("Someone tell Ethan his 8859-1 detection is wrong\n"); args.flags ^= AIM_IMFLAGS_ISO_8859_1 | AIM_IMFLAGS_UNICODE; len = strlen(message); args.msg = g_convert(message, len, "UCS-2BE", "UTF8", NULL, &len, &err); if (err) { debug_printf ("Error in unicode fallback: %s\n", err->message); } } } else { args.msg = message; } args.msglen = len; ret = aim_send_im_ext(odata->sess, &args); } if (ret >= 0) return 1; return ret; } static void oscar_get_info(struct gaim_connection *g, char *name) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; if (odata->icq) aim_icq_getsimpleinfo(odata->sess, name); else /* people want the away message on the top, so we get the away message * first and then get the regular info, since it's too difficult to * insert in the middle. i hate people. */ aim_getinfo(odata->sess, odata->conn, name, AIM_GETINFO_AWAYMESSAGE); } static void oscar_get_away(struct gaim_connection *g, char *who) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; if (odata->icq) { struct buddy *budlight = find_buddy(g, who); if (budlight) if ((budlight->uc & 0xffff0000) >> 16) if (budlight->caps & AIM_CAPS_ICQSERVERRELAY) aim_send_im_ch2_geticqmessage(odata->sess, who, (budlight->uc & 0xffff0000) >> 16); else debug_printf("Error: Remote client does not support retrieval of status messages.\n"); else debug_printf("Error: The user %s has no status message, therefore not requesting.\n", who); else debug_printf("Error: Could not find %s in local contact list, therefore unable to request status message.\n", who); } else aim_getinfo(odata->sess, odata->conn, who, AIM_GETINFO_GENERALINFO); } static void oscar_get_caps(struct gaim_connection *g, char *name) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; aim_getinfo(odata->sess, odata->conn, name, AIM_GETINFO_CAPABILITIES); } static void oscar_set_dir(struct gaim_connection *g, const char *first, const char *middle, const char *last, const char *maiden, const char *city, const char *state, const char *country, int web) { /* FIXME : some of these things are wrong, but i'm lazy */ struct oscar_data *odata = (struct oscar_data *)g->proto_data; aim_setdirectoryinfo(odata->sess, odata->conn, first, middle, last, maiden, NULL, NULL, city, state, NULL, 0, web); } static void oscar_set_idle(struct gaim_connection *g, int time) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; aim_bos_setidle(odata->sess, odata->conn, time); } static void oscar_set_info(struct gaim_connection *g, char *info) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; gchar *inforeal; if (odata->rights.maxsiglen == 0) do_error_dialog(_("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."), GAIM_ERROR); if (strlen(info) > odata->rights.maxsiglen) { gchar *errstr; errstr = g_strdup_printf(_("The maximum profile length of %d bytes has been exceeded. " "Gaim has truncated and set it."), odata->rights.maxsiglen); do_error_dialog("Profile too long.", errstr, GAIM_WARNING); g_free(errstr); } inforeal = g_strndup(info, odata->rights.maxsiglen); if (odata->icq) aim_bos_setprofile(odata->sess, odata->conn, NULL, NULL, caps_icq); else aim_bos_setprofile(odata->sess, odata->conn, inforeal, NULL, caps_aim); g_free(inforeal); return; } static void oscar_set_away_aim(struct gaim_connection *gc, struct oscar_data *od, const char *message) { if (od->rights.maxawaymsglen == 0) do_error_dialog(_("Unable to set AIM away message."), _("You have probably requested to set your away message before the login procedure completed. " "You remain in a \"present\" state; try setting it again when you are fully connected."), GAIM_ERROR); if (gc->away) { g_free(gc->away); gc->away = NULL; } if (!message) { aim_bos_setprofile(od->sess, od->conn, NULL, "", caps_aim); return; } if (strlen(message) > od->rights.maxawaymsglen) { gchar *errstr; errstr = g_strdup_printf(_("The away message length of %d bytes has been exceeded. " "Gaim has truncated it and set you away."), od->rights.maxawaymsglen); do_error_dialog("Away message too long.", errstr, GAIM_WARNING); g_free(errstr); } gc->away = g_strndup(message, od->rights.maxawaymsglen); aim_bos_setprofile(od->sess, od->conn, NULL, gc->away, caps_aim); return; } static void oscar_set_away_icq(struct gaim_connection *gc, struct oscar_data *od, const char *state, const char *message) { if (gc->away) { g_free(gc->away); gc->away = NULL; } if (!strcmp(state, "Online")) aim_setextstatus(od->sess, od->conn, AIM_ICQ_STATE_NORMAL); else if (!strcmp(state, "Away")) { aim_setextstatus(od->sess, od->conn, AIM_ICQ_STATE_AWAY); gc->away = g_strdup(""); } else if (!strcmp(state, "Do Not Disturb")) { aim_setextstatus(od->sess, od->conn, AIM_ICQ_STATE_AWAY | AIM_ICQ_STATE_DND | AIM_ICQ_STATE_BUSY); gc->away = g_strdup(""); } else if (!strcmp(state, "Not Available")) { aim_setextstatus(od->sess, od->conn, AIM_ICQ_STATE_OUT | AIM_ICQ_STATE_AWAY); gc->away = g_strdup(""); } else if (!strcmp(state, "Occupied")) { aim_setextstatus(od->sess, od->conn, AIM_ICQ_STATE_AWAY | AIM_ICQ_STATE_BUSY); gc->away = g_strdup(""); } else if (!strcmp(state, "Free For Chat")) { aim_setextstatus(od->sess, od->conn, AIM_ICQ_STATE_CHAT); gc->away = g_strdup(""); } else if (!strcmp(state, "Invisible")) { aim_setextstatus(od->sess, od->conn, AIM_ICQ_STATE_INVISIBLE); gc->away = g_strdup(""); } else if (!strcmp(state, GAIM_AWAY_CUSTOM)) { if (message) { aim_setextstatus(od->sess, od->conn, AIM_ICQ_STATE_OUT | AIM_ICQ_STATE_AWAY); gc->away = g_strdup(""); } else { aim_setextstatus(od->sess, od->conn, AIM_ICQ_STATE_NORMAL); } } return; } static void oscar_set_away(struct gaim_connection *gc, char *state, char *message) { struct oscar_data *od = (struct oscar_data *)gc->proto_data; if (od->icq) oscar_set_away_icq(gc, od, state, message); else oscar_set_away_aim(gc, od, message); return; } static void oscar_warn(struct gaim_connection *g, char *name, int anon) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; aim_send_warning(odata->sess, odata->conn, name, anon ? AIM_WARN_ANON : 0); } static void oscar_dir_search(struct gaim_connection *g, const char *first, const char *middle, const char *last, const char *maiden, const char *city, const char *state, const char *country, const char *email) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; if (strlen(email)) aim_usersearch_address(odata->sess, odata->conn, email); } static void oscar_add_buddy(struct gaim_connection *g, const char *name) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; if (odata->icq) { aim_add_buddy(odata->sess, odata->conn, name); } else { if ((odata->sess->ssi.received_data) && !(aim_ssi_itemlist_finditem(odata->sess->ssi.items, NULL, name, 0x0000))) { debug_printf("ssi: adding buddy %s to group %s\n", name, find_group_by_buddy(g, name)->name); aim_ssi_addbuddies(odata->sess, odata->conn, find_group_by_buddy(g, name)->name, &name, 1); } } } static void oscar_add_buddies(struct gaim_connection *g, GList *buddies) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; if (odata->icq) { char buf[MSG_LEN]; int n=0; while (buddies) { if (n > MSG_LEN - 18) { aim_bos_setbuddylist(odata->sess, odata->conn, buf); n = 0; } n += g_snprintf(buf + n, sizeof(buf) - n, "%s&", (char *)buddies->data); buddies = buddies->next; } aim_bos_setbuddylist(odata->sess, odata->conn, buf); } else { if (odata->sess->ssi.received_data) { int tmp; GSList *curgrp, *curbud; for (curgrp=g->groups; curgrp; curgrp=g_slist_next(curgrp)) { tmp = 0; for (curbud=((struct group*)curgrp->data)->members; curbud; curbud=curbud->next) if (!aim_ssi_itemlist_finditem(odata->sess->ssi.items, NULL, ((struct buddy*)curbud->data)->name, 0x0000)) tmp++; if (tmp) { char **sns = (char **)malloc(tmp*sizeof(char*)); tmp = 0; for (curbud=((struct group*)curgrp->data)->members; curbud; curbud=curbud->next) if (!aim_ssi_itemlist_finditem(odata->sess->ssi.items, NULL, ((struct buddy*)curbud->data)->name, 0x0000)) { debug_printf("ssi: adding buddy %s to group %s\n", ((struct buddy*)curbud->data)->name, ((struct group*)curgrp->data)->name); sns[tmp] = (char *)((struct buddy*)curbud->data)->name; tmp++; } aim_ssi_addbuddies(odata->sess, odata->conn, ((struct group*)curgrp->data)->name, (const char**)sns, tmp); free(sns); } } } } } static void oscar_move_buddy(struct gaim_connection *g, const char *name, const char *old_group, const char *new_group) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; if (!odata->icq) if (odata->sess->ssi.received_data) { aim_ssi_movebuddy(odata->sess, odata->conn, old_group, new_group, name); debug_printf("ssi: moved buddy %s from group %s to group %s\n", name, old_group, new_group); } } static void oscar_remove_buddy(struct gaim_connection *g, char *name, char *group) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; if (odata->icq) { aim_remove_buddy(odata->sess, odata->conn, name); } else { if (odata->sess->ssi.received_data) { struct aim_ssi_item *ssigroup; while (aim_ssi_itemlist_finditem(odata->sess->ssi.items, NULL, name, 0x0000) && (ssigroup = aim_ssi_itemlist_findparent(odata->sess->ssi.items, name)) && !aim_ssi_delbuddies(odata->sess, odata->conn, ssigroup->name, &name, 1)) debug_printf("ssi: deleted buddy %s from group %s\n", name, group); } } } static void oscar_remove_buddies(struct gaim_connection *g, GList *buddies, const char *group) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; if (odata->icq) { GList *cur; for (cur=buddies; cur; cur=cur->next) aim_remove_buddy(odata->sess, odata->conn, cur->data); } else { if (odata->sess->ssi.received_data) { GList *cur; int tmp = 0; for (cur=buddies; cur; cur=cur->next) if (aim_ssi_itemlist_finditem(odata->sess->ssi.items, NULL, cur->data, 0x0000)) tmp++; if (tmp) { char **sns; sns = (char **)malloc(tmp*sizeof(char*)); tmp = 0; for (cur=buddies; cur; cur=cur->next) if (aim_ssi_itemlist_finditem(odata->sess->ssi.items, NULL, cur->data, 0x0000)) { debug_printf("ssi: deleting buddy %s from group %s\n", cur->data, group); sns[tmp] = cur->data; tmp++; } aim_ssi_delbuddies(odata->sess, odata->conn, group, sns, tmp); free(sns); } } } } static void oscar_rename_group(struct gaim_connection *g, const char *old_group, const char *new_group, GList *members) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; if (!odata->icq) if (odata->sess->ssi.received_data) { if (aim_ssi_itemlist_finditem(odata->sess->ssi.items, NULL, new_group, 0x0001)) { oscar_remove_buddies(g, members, old_group); oscar_add_buddies(g, members); debug_printf("ssi: moved all buddies from group %s to %s\n", old_group, new_group); } else { aim_ssi_rename_group(odata->sess, odata->conn, old_group, new_group); debug_printf("ssi: renamed group %s to %s\n", old_group, new_group); } } } static int gaim_ssi_parserights(aim_session_t *sess, aim_frame_t *fr, ...) { /* XXX - Fix parsing of the ssi rights packet and pass us the data fu16_t maxbuddies, maxgroups, maxpermits, maxdenies; va_list ap; va_start(ap, fr); maxbuddies = (fu16_t)va_arg(ap, unsigned int); maxgroupss = (fu16_t)va_arg(ap, unsigned int); maxpermits = (fu16_t)va_arg(ap, unsigned int); maxdenies = (fu16_t)va_arg(ap, unsigned int); va_end(ap); debug_printf("ssi rights: Max buddies = %d / Max groups = %d / Max permits = %d / Max denies = %d\n", maxbuddies, maxgroups, maxpermits, maxdenies); */ return 1; } static int gaim_ssi_parselist(aim_session_t *sess, aim_frame_t *fr, ...) { struct gaim_connection *gc = sess->aux_data; struct oscar_data *odata = (struct oscar_data *)gc->proto_data; struct aim_ssi_item *curitem; int tmp; const char **sns; debug_printf("ssi: syncing local list and server list\n"); if (odata->icq) return 1; /* Activate SSI */ debug_printf("ssi: activating server-stored buddy list\n"); aim_ssi_enable(sess, fr->conn); /* Clean the buddy list */ aim_ssi_cleanlist(sess, fr->conn); /* Add from server list to local list */ tmp = 0; for (curitem=sess->ssi.items; curitem; curitem=curitem->next) { switch (curitem->type) { case 0x0000: /* Buddy */ if ((curitem->name) && (!find_buddy(gc, curitem->name))) { struct aim_ssi_item *curgroup = sess->ssi.items; while (curgroup) { if ((curgroup->type == 0x0001) && (curgroup->gid == curitem->gid) && (curgroup->name)) { debug_printf("ssi: adding buddy %s to group %s to local list\n", curitem->name, curgroup->name); add_buddy(gc, curgroup->name, curitem->name, 0); tmp++; } curgroup = curgroup->next; } } break; case 0x0002: /* Permit buddy */ if (curitem->name) { GSList *list; for (list=gc->permit; (list && aim_sncmp(curitem->name, list->data)); list=list->next); if (!list) { char *name; debug_printf("ssi: adding permit buddy %s to local list\n", curitem->name); name = g_strdup(normalize(curitem->name)); gc->permit = g_slist_append(gc->permit, name); build_allow_list(); tmp++; } } break; case 0x0003: /* Deny buddy */ if (curitem->name) { GSList *list; for (list=gc->deny; (list && aim_sncmp(curitem->name, list->data)); list=list->next); if (!list) { char *name; debug_printf("ssi: adding deny buddy %s to local list\n", curitem->name); name = g_strdup(normalize(curitem->name)); gc->deny = g_slist_append(gc->deny, name); build_block_list(); tmp++; } } break; case 0x0004: /* Permit/deny setting */ if (curitem->data) { fu8_t permdeny; if ((permdeny = aim_ssi_getpermdeny(sess->ssi.items)) && (permdeny != gc->permdeny)) { debug_printf("ssi: changing permdeny from %d to %d\n", gc->permdeny, permdeny); gc->permdeny = permdeny; tmp++; } } break; case 0x0005: /* Presence setting */ /* We don't want to change Gaim's setting because it applies to all accounts */ break; } /* End of switch on curitem->type */ } /* End of for loop */ if (tmp) do_export(gc); /* Add from local list to server list */ if (gc) { GSList *cur; /* Buddies */ cur = gc->groups; while (cur) { GSList *curbud; tmp = 0; for (curbud=((struct group*)cur->data)->members; curbud; curbud=curbud->next) if (!aim_ssi_itemlist_finditem(sess->ssi.items, NULL, ((struct buddy*)curbud->data)->name, 0x0000)) tmp++; if (tmp) { sns = malloc(tmp*sizeof(char*)); tmp = 0; for (curbud=((struct group*)cur->data)->members; curbud; curbud=curbud->next) if (!aim_ssi_itemlist_finditem(sess->ssi.items, NULL, ((struct buddy*)curbud->data)->name, 0x0000)) { debug_printf("ssi: adding buddy %s from local list to server list\n", ((struct buddy*)curbud->data)->name); sns[tmp] = ((char *)((struct buddy*)curbud->data)->name); tmp++; } aim_ssi_addbuddies(sess, fr->conn, ((struct group*)cur->data)->name, sns, tmp); free(sns); } cur = g_slist_next(cur); } /* Permit list */ if (gc->permit) { tmp = 0; for (cur=gc->permit; cur; cur=cur->next) if (!aim_ssi_itemlist_finditem(sess->ssi.items, NULL, cur->data, 0x0002)) tmp++; if (tmp) { sns = malloc(tmp*sizeof(char*)); tmp = 0; for (cur=gc->permit; cur; cur=cur->next) if (!aim_ssi_itemlist_finditem(sess->ssi.items, NULL, cur->data, 0x0002)) { debug_printf("ssi: adding permit %s from local list to server list\n", cur->data); sns[tmp] = cur->data; tmp++; } aim_ssi_addpord(sess, fr->conn, sns, tmp, AIM_SSI_TYPE_PERMIT); free(sns); } } /* Deny list */ if (gc->deny) { tmp = 0; for (cur=gc->deny; cur; cur=cur->next) if (!aim_ssi_itemlist_finditem(sess->ssi.items, NULL, cur->data, 0x0003)) tmp++; if (tmp) { sns = malloc(tmp*sizeof(char*)); tmp = 0; for (cur=gc->deny; cur; cur=cur->next) if (!aim_ssi_itemlist_finditem(sess->ssi.items, NULL, cur->data, 0x0003)) { debug_printf("ssi: adding deny %s from local list to server list\n", cur->data); sns[tmp] = cur->data; tmp++; } aim_ssi_addpord(sess, fr->conn, sns, tmp, AIM_SSI_TYPE_DENY); free(sns); } } /* Presence settings (idle time visibility) */ if ((tmp = aim_ssi_getpresence(sess->ssi.items)) != 0xFFFFFFFF) if (report_idle && !(tmp & 0x400)) aim_ssi_setpresence(sess, fr->conn, tmp | 0x400); /* Check for maximum number of buddies */ for (cur=gc->groups, tmp=0; cur; cur=g_slist_next(cur)) { struct group* gr = (struct group*)cur->data; tmp = tmp + g_slist_length(gr->members); } if (tmp > odata->rights.maxbuddies) { char *dialog_msg = g_strdup_printf(_("The maximum number of buddies allowed in your buddy list is %d, and you have %d." " Until you are below the limit, some buddies will not show up as online."), odata->rights.maxbuddies, tmp); do_error_dialog("Maximum buddy list length exceeded.", dialog_msg, GAIM_WARNING); g_free(dialog_msg); } } /* end if (gc) */ return 1; } static GList *oscar_chat_info(struct gaim_connection *gc) { GList *m = NULL; struct proto_chat_entry *pce; pce = g_new0(struct proto_chat_entry, 1); pce->label = _("Join what group:"); m = g_list_append(m, pce); pce = g_new0(struct proto_chat_entry, 1); pce->label = _("Exchange:"); pce->is_int = TRUE; pce->min = 4; pce->max = 20; m = g_list_append(m, pce); return m; } static void oscar_join_chat(struct gaim_connection *g, GList *data) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; aim_conn_t *cur; char *name; int *exchange; if (!data || !data->next) return; name = data->data; exchange = data->next->data; debug_printf("Attempting to join chat room %s.\n", name); if ((cur = aim_getconn_type(odata->sess, AIM_CONN_TYPE_CHATNAV))) { debug_printf("chatnav exists, creating room\n"); aim_chatnav_createroom(odata->sess, cur, name, *exchange); } else { /* this gets tricky */ struct create_room *cr = g_new0(struct create_room, 1); debug_printf("chatnav does not exist, opening chatnav\n"); cr->exchange = *exchange; cr->name = g_strdup(name); odata->create_rooms = g_slist_append(odata->create_rooms, cr); aim_reqservice(odata->sess, odata->conn, AIM_CONN_TYPE_CHATNAV); } } static void oscar_chat_invite(struct gaim_connection *g, int id, const char *message, const char *name) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; struct chat_connection *ccon = find_oscar_chat(g, id); if (!ccon) return; aim_chat_invite(odata->sess, odata->conn, name, message ? message : "", ccon->exchange, ccon->name, 0x0); } static void oscar_chat_leave(struct gaim_connection *g, int id) { struct oscar_data *odata = g ? (struct oscar_data *)g->proto_data : NULL; GSList *bcs = g->buddy_chats; struct conversation *b = NULL; struct chat_connection *c = NULL; int count = 0; while (bcs) { count++; b = (struct conversation *)bcs->data; if (id == b->id) break; bcs = bcs->next; b = NULL; } if (!b) return; debug_printf("Attempting to leave room %s (currently in %d rooms)\n", b->name, count); c = find_oscar_chat(g, b->id); if (c != NULL) { if (odata) odata->oscar_chats = g_slist_remove(odata->oscar_chats, c); if (c->inpa > 0) gaim_input_remove(c->inpa); if (g && odata->sess) aim_conn_kill(odata->sess, &c->conn); g_free(c->name); g_free(c->show); g_free(c); } /* we do this because with Oscar it doesn't tell us we left */ serv_got_chat_left(g, b->id); } static int oscar_chat_send(struct gaim_connection *g, int id, char *message) { struct oscar_data *odata = (struct oscar_data *)g->proto_data; GSList *bcs = g->buddy_chats; struct conversation *b = NULL; struct chat_connection *c = NULL; char *buf, *buf2; int i, j; while (bcs) { b = (struct conversation *)bcs->data; if (id == b->id) break; bcs = bcs->next; b = NULL; } if (!b) return -EINVAL; bcs = odata->oscar_chats; while (bcs) { c = (struct chat_connection *)bcs->data; if (b == c->cnv) break; bcs = bcs->next; c = NULL; } if (!c) return -EINVAL; buf = g_malloc(strlen(message) * 4 + 1); for (i = 0, j = 0; i < strlen(message); i++) { if (message[i] == '\n') { buf[j++] = '<'; buf[j++] = 'B'; buf[j++] = 'R'; buf[j++] = '>'; } else { buf[j++] = message[i]; } } buf[j] = '\0'; if (strlen(buf) > c->maxlen) return -E2BIG; buf2 = strip_html(buf); if (strlen(buf2) > c->maxvis) { g_free(buf2); return -E2BIG; } g_free(buf2); aim_chat_send_im(odata->sess, c->conn, 0, buf, strlen(buf)); g_free(buf); return 0; } static char **oscar_list_icon(int uc) { if (uc == 0) return (char **)icon_online_xpm; if (uc & 0xffff0000) { uc >>= 16; if (uc & AIM_ICQ_STATE_INVISIBLE) return icon_offline_xpm; if (uc & AIM_ICQ_STATE_CHAT) return icon_ffc_xpm; if (uc & AIM_ICQ_STATE_DND) return icon_dnd_xpm; if (uc & AIM_ICQ_STATE_OUT) return icon_na_xpm; if (uc & AIM_ICQ_STATE_BUSY) return icon_occ_xpm; if (uc & AIM_ICQ_STATE_AWAY) return icon_away_xpm; return icon_online_xpm; } if (uc & UC_UNAVAILABLE) return (char **)away_icon_xpm; if (uc & UC_WIRELESS) return (char **)wireless_icon_xpm; if (uc & UC_AB) return (char **)ab_xpm; if (uc & UC_AOL) return (char **)aol_icon_xpm; if (uc & UC_ADMIN) return (char **)admin_icon_xpm; if (uc & UC_UNCONFIRMED) return (char **)dt_icon_xpm; if (uc & UC_NORMAL) return (char **)free_icon_xpm; return NULL; } /* * This is called after the raw data for a file has been transferred (whether * we are sending or receiving), but there are other files remaining. */ void oscar_file_transfer_nextfile(struct gaim_connection *gc, struct file_transfer *xfer) { struct oscar_file_transfer *oft = find_oft_by_xfer(gc, xfer); aim_conn_t *conn = oft->conn; aim_session_t *sess = aim_conn_getsess(conn); oft->filesdone++; oft->watcher = gaim_input_add(conn->fd, GAIM_INPUT_READ, oscar_callback, conn); /* If this is an incoming sendfile transfer, we send an OK * message to the sender; if this is an outgoing sendfile, we * will get an OK from the receiver that will be handled in * oscar_sendfile_out_done(), so we don't need to do anything * yet. */ if (oft->type == OFT_SENDFILE_IN) aim_oft_end(sess, conn); } /* * This is called after the raw data for a file has been transferred (whether * we are sending or receiving), and it is the last file in the set, so we * can tear down the connection. */ void oscar_file_transfer_done(struct gaim_connection *gc, struct file_transfer *xfer) { struct oscar_file_transfer *oft = find_oft_by_xfer(gc, xfer); aim_conn_t *conn = oft->conn; aim_session_t *sess = aim_conn_getsess(conn); oft->filesdone++; if (oft->type == OFT_SENDFILE_IN) { aim_oft_end(sess, conn); oscar_file_transfer_disconnect(sess, conn); } else if (oft->type == OFT_SENDFILE_OUT) { /* Wait for response before closing connection. */ oft->watcher = gaim_input_add(conn->fd, GAIM_INPUT_READ, oscar_callback, conn); } } /* * This is called when there is raw data ready to be sent or received; all the * protocol details have been taken care of. */ static int oscar_file_transfer_do(aim_session_t *sess, aim_frame_t *fr, ...) { struct gaim_connection *gc = sess->aux_data; va_list ap; aim_conn_t *conn; struct oscar_file_transfer *oft; struct aim_fileheader_t *fh; int err; va_start(ap, fr); conn = va_arg(ap, aim_conn_t *); fh = va_arg(ap, struct aim_fileheader_t *); va_end(ap); oft = find_oft_by_conn(gc, conn); /* Don't use the regular input handler for the raw data. */ gaim_input_remove(oft->watcher); oft->watcher = 0; if (oft->type == OFT_SENDFILE_IN) { /* AAA convert fh->name from UCS-2 to UTF-8 if (fh->nencode == 0x0002) */ err = transfer_in_do(oft->xfer, conn->fd, fh->name, fh->size); } else { err = transfer_out_do(oft->xfer, conn->fd, fh->nrecvd); } if (err) { /* There was an error; cancel the transfer. */ struct oscar_data *od = (struct oscar_data *)gc->proto_data; aim_conn_t *bosconn = od->conn; aim_canceltransfer(sess, bosconn, oft->cookie, oft->sn, AIM_CAPS_SENDFILE); oscar_file_transfer_disconnect(sess, oft->conn); } return 0; } static int gaim_directim_initiate(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; struct gaim_connection *gc = sess->aux_data; struct oscar_data *od = (struct oscar_data *)gc->proto_data; aim_conn_t *newconn, *listenerconn; struct conversation *cnv; struct direct_im *dim; char buf[256]; char *sn; va_start(ap, fr); newconn = va_arg(ap, aim_conn_t *); listenerconn = va_arg(ap, aim_conn_t *); va_end(ap); aim_conn_close(listenerconn); aim_conn_kill(sess, &listenerconn); sn = g_strdup(aim_directim_getsn(newconn)); debug_printf("DirectIM: initiate success to %s\n", sn); dim = find_direct_im(od, sn); if (!(cnv = find_conversation(sn))) cnv = new_conversation(sn); gaim_input_remove(dim->watcher); dim->conn = newconn; dim->watcher = gaim_input_add(dim->conn->fd, GAIM_INPUT_READ, oscar_callback, dim->conn); dim->connected = TRUE; g_snprintf(buf, sizeof buf, _("Direct IM with %s established"), sn); g_free(sn); write_to_conv(cnv, buf, WFLAG_SYSTEM, NULL, time(NULL), -1); aim_conn_addhandler(sess, newconn, AIM_CB_FAM_OFT, AIM_CB_OFT_DIRECTIMINCOMING, gaim_directim_incoming, 0); aim_conn_addhandler(sess, newconn, AIM_CB_FAM_OFT, AIM_CB_OFT_DIRECTIMTYPING, gaim_directim_typing, 0); aim_conn_addhandler(sess, newconn, AIM_CB_FAM_SPECIAL, AIM_CB_SPECIAL_IMAGETRANSFER, gaim_update_ui, 0); return 1; } static int gaim_update_ui(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; char *sn; double percent; struct gaim_connection *gc = sess->aux_data; struct oscar_data *od = (struct oscar_data *)gc->proto_data; struct conversation *c; struct direct_im *dim; va_start(ap, fr); sn = va_arg(ap, char *); percent = va_arg(ap, double); va_end(ap); if (!(dim = find_direct_im(od, sn))) return 1; if (dim->watcher) { gaim_input_remove(dim->watcher); /* Otherwise, the callback will callback */ dim->watcher = 0; } while (gtk_events_pending()) gtk_main_iteration(); if ((c = find_conversation(sn))) update_progress(c, percent); dim->watcher = gaim_input_add(dim->conn->fd, GAIM_INPUT_READ, oscar_callback, dim->conn); return 1; } static int gaim_directim_incoming(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; char *msg, *sn; int len, encoding; struct gaim_connection *gc = sess->aux_data; va_start(ap, fr); sn = va_arg(ap, char *); msg = va_arg(ap, char *); len = va_arg(ap, int); encoding = va_arg(ap, int); va_end(ap); debug_printf("Got DirectIM message from %s\n", sn); /* AAA - I imagine Paco-Paco will want to do some voodoo with the encoding here */ serv_got_im(gc, sn, msg, 0, time(NULL), len); return 1; } static int gaim_directim_typing(aim_session_t *sess, aim_frame_t *fr, ...) { va_list ap; char *sn; int typing; struct gaim_connection *gc = sess->aux_data; va_start(ap, fr); sn = va_arg(ap, char *); typing = va_arg(ap, int); va_end(ap); if (typing) { /* I had to leave this. It's just too funny. It reminds me of my sister. */ debug_printf("ohmigod! %s has started typing (DirectIM). He's going to send you a message! *squeal*\n", sn); serv_got_typing(gc,sn,0, TYPING); } else serv_got_typing_stopped(gc,sn); return 1; } struct ask_do_dir_im { char *who; struct gaim_connection *gc; }; static void oscar_cancel_direct_im(struct ask_do_dir_im *data) { g_free(data); } static void oscar_direct_im(struct ask_do_dir_im *data) { struct gaim_connection *gc = data->gc; struct oscar_data *od = (struct oscar_data *)gc->proto_data; struct direct_im *dim; dim = find_direct_im(od, data->who); if (dim) { if (!(dim->connected)) { /* We'll free the old, unconnected dim, and start over */ od->direct_ims = g_slist_remove(od->direct_ims, dim); gaim_input_remove(dim->watcher); g_free(dim); debug_printf("Gave up on old direct IM, trying again\n"); } else { do_error_dialog("DirectIM already open.", NULL, GAIM_ERROR); return; } } dim = g_new0(struct direct_im, 1); dim->gc = gc; g_snprintf(dim->name, sizeof dim->name, "%s", data->who); dim->conn = aim_directim_initiate(od->sess, data->who); if (dim->conn != NULL) { od->direct_ims = g_slist_append(od->direct_ims, dim); dim->watcher = gaim_input_add(dim->conn->fd, GAIM_INPUT_READ, oscar_callback, dim->conn); aim_conn_addhandler(od->sess, dim->conn, AIM_CB_FAM_OFT, AIM_CB_OFT_DIRECTIMINITIATE, gaim_directim_initiate, 0); } else { do_error_dialog(_("Unable to open Direct IM"), NULL, GAIM_ERROR); g_free(dim); } } static void oscar_ask_direct_im(struct gaim_connection *gc, gchar *who) { char buf[BUF_LONG]; struct ask_do_dir_im *data = g_new0(struct ask_do_dir_im, 1); data->who = who; data->gc = gc; g_snprintf(buf, sizeof(buf), _("You have selected to open a Direct IM connection with %s."), who); do_ask_dialog(buf, _("Because this reveals your IP address, it may be considered a privacy risk. Do you wish to continue?"), data, _("Connect"), oscar_direct_im, _("Cancel"), oscar_cancel_direct_im); } static void oscar_get_away_msg(struct gaim_connection *gc, char *who) { struct oscar_data *od = gc->proto_data; od->evilhack = g_slist_append(od->evilhack, g_strdup(normalize(who))); if (od->icq) { struct buddy *budlight = find_buddy(gc, who); if (budlight) if ((budlight->uc >> 16) & (AIM_ICQ_STATE_AWAY || AIM_ICQ_STATE_DND || AIM_ICQ_STATE_OUT || AIM_ICQ_STATE_BUSY || AIM_ICQ_STATE_CHAT)) if (budlight->caps & AIM_CAPS_ICQSERVERRELAY) aim_send_im_ch2_geticqmessage(od->sess, who, (budlight->uc & 0xffff0000) >> 16); else { char *state_msg = gaim_icq_status((budlight->uc & 0xffff0000) >> 16); char *dialog_msg = g_strdup_printf(_("<B>UIN:</B> %s<BR><B>Status:</B> %s<BR><HR><I>Remote client does not support sending status messages.</I><BR>"), who, state_msg); g_show_info_text(gc, who, 2, dialog_msg, NULL); free(state_msg); free(dialog_msg); } else { char *state_msg = gaim_icq_status((budlight->uc & 0xffff0000) >> 16); char *dialog_msg = g_strdup_printf(_("<B>UIN:</B> %s<BR><B>Status:</B> %s<BR><HR><I>User has no status message.</I><BR>"), who, state_msg); g_show_info_text(gc, who, 2, dialog_msg, NULL); free(state_msg); free(dialog_msg); } else do_error_dialog("Could not find contact in local list, therefore unable to request status message.\n", NULL, GAIM_ERROR); } else oscar_get_info(gc, who); } static GList *oscar_buddy_menu(struct gaim_connection *gc, char *who) { GList *m = NULL; struct proto_buddy_menu *pbm; char *n = g_strdup(normalize(gc->username)); struct oscar_data *odata = gc->proto_data; pbm = g_new0(struct proto_buddy_menu, 1); pbm->label = _("Get Info"); pbm->callback = oscar_get_info; pbm->gc = gc; m = g_list_append(m, pbm); if (odata->icq) { pbm = g_new0(struct proto_buddy_menu, 1); pbm->label = _("Get Status Msg"); pbm->callback = oscar_get_away_msg; pbm->gc = gc; m = g_list_append(m, pbm); } else { pbm = g_new0(struct proto_buddy_menu, 1); pbm->label = _("Get Away Msg"); pbm->callback = oscar_get_away_msg; pbm->gc = gc; m = g_list_append(m, pbm); if (strcmp(n, normalize(who))) { pbm = g_new0(struct proto_buddy_menu, 1); pbm->label = _("Direct IM"); pbm->callback = oscar_ask_direct_im; pbm->gc = gc; m = g_list_append(m, pbm); pbm = g_new0(struct proto_buddy_menu, 1); pbm->label = _("Send File"); pbm->callback = oscar_ask_send_file; pbm->gc = gc; m = g_list_append(m, pbm); } } pbm = g_new0(struct proto_buddy_menu, 1); pbm->label = _("Get Capabilities"); pbm->callback = oscar_get_caps; pbm->gc = gc; m = g_list_append(m, pbm); g_free(n); return m; } static GList *oscar_edit_buddy_menu(struct gaim_connection *gc, char *who) { GList *m = NULL; struct proto_buddy_menu *pbm; struct oscar_data *odata = gc->proto_data; if (odata->icq) { pbm = g_new0(struct proto_buddy_menu, 1); pbm->label = _("Get Info"); pbm->callback = oscar_get_info; pbm->gc = gc; m = g_list_append(m, pbm); } return m; } static void oscar_set_permit_deny(struct gaim_connection *gc) { struct oscar_data *od = (struct oscar_data *)gc->proto_data; if (od->icq) { GSList *list, *g; char buf[MAXMSGLEN]; int at; switch(gc->permdeny) { case 1: aim_bos_changevisibility(od->sess, od->conn, AIM_VISIBILITYCHANGE_DENYADD, gc->username); break; case 2: aim_bos_changevisibility(od->sess, od->conn, AIM_VISIBILITYCHANGE_PERMITADD, gc->username); break; case 3: list = gc->permit; at = 0; while (list) { at += g_snprintf(buf + at, sizeof(buf) - at, "%s&", (char *)list->data); list = list->next; } aim_bos_changevisibility(od->sess, od->conn, AIM_VISIBILITYCHANGE_PERMITADD, buf); break; case 4: list = gc->deny; at = 0; while (list) { at += g_snprintf(buf + at, sizeof(buf) - at, "%s&", (char *)list->data); list = list->next; } aim_bos_changevisibility(od->sess, od->conn, AIM_VISIBILITYCHANGE_DENYADD, buf); break; case 5: g = gc->groups; at = 0; while (g) { list = ((struct group *)g->data)->members; while (list) { at += g_snprintf(buf + at, sizeof(buf) - at, "%s&", (char *)list->data); list = list->next; } g = g->next; } aim_bos_changevisibility(od->sess, od->conn, AIM_VISIBILITYCHANGE_PERMITADD, buf); break; default: break; } signoff_blocked(gc); } else { if (od->sess->ssi.received_data) aim_ssi_setpermdeny(od->sess, od->conn, gc->permdeny, 0xffffffff); } } static void oscar_add_permit(struct gaim_connection *gc, char *who) { struct oscar_data *od = (struct oscar_data *)gc->proto_data; if (od->icq) { if (gc->permdeny != 3) return; oscar_set_permit_deny(gc); } else { debug_printf("ssi: About to add a permit\n"); if (od->sess->ssi.received_data) aim_ssi_addpord(od->sess, od->conn, (const char **) &who, 1, AIM_SSI_TYPE_PERMIT); } } static void oscar_add_deny(struct gaim_connection *gc, char *who) { struct oscar_data *od = (struct oscar_data *)gc->proto_data; if (od->icq) { if (gc->permdeny != 4) return; oscar_set_permit_deny(gc); } else { debug_printf("ssi: About to add a deny\n"); if (od->sess->ssi.received_data) aim_ssi_addpord(od->sess, od->conn, (const char **) &who, 1, AIM_SSI_TYPE_DENY); } } static void oscar_rem_permit(struct gaim_connection *gc, char *who) { struct oscar_data *od = (struct oscar_data *)gc->proto_data; if (od->icq) { if (gc->permdeny != 3) return; oscar_set_permit_deny(gc); } else { debug_printf("ssi: About to delete a permit\n"); if (od->sess->ssi.received_data) aim_ssi_delpord(od->sess, od->conn, (const char **) &who, 1, AIM_SSI_TYPE_PERMIT); } } static void oscar_rem_deny(struct gaim_connection *gc, char *who) { struct oscar_data *od = (struct oscar_data *)gc->proto_data; if (od->icq) { if (gc->permdeny != 4) return; oscar_set_permit_deny(gc); } else { debug_printf("ssi: About to delete a deny\n"); if (od->sess->ssi.received_data) aim_ssi_delpord(od->sess, od->conn, (const char **) &who, 1, AIM_SSI_TYPE_DENY); } } static GList *oscar_away_states(struct gaim_connection *gc) { struct oscar_data *od = gc->proto_data; GList *m = NULL; if (!od->icq) return g_list_append(m, GAIM_AWAY_CUSTOM); m = g_list_append(m, "Online"); m = g_list_append(m, "Away"); m = g_list_append(m, "Do Not Disturb"); m = g_list_append(m, "Not Available"); m = g_list_append(m, "Occupied"); m = g_list_append(m, "Free For Chat"); m = g_list_append(m, "Invisible"); return m; } static void oscar_change_email(struct gaim_connection *gc, char *email) { struct oscar_data *od = gc->proto_data; aim_conn_t *conn = aim_getconn_type(od->sess, AIM_CONN_TYPE_AUTH); if (conn) { aim_admin_setemail(od->sess, conn, email); } else { od->setemail = TRUE; od->email = g_strdup(email); aim_reqservice(od->sess, od->conn, AIM_CONN_TYPE_AUTH); } } static void oscar_format_screenname(struct gaim_connection *gc, char *nick) { struct oscar_data *od = gc->proto_data; if (!strcmp(normalize(nick), normalize(gc->username))) { if (!aim_getconn_type(od->sess, AIM_CONN_TYPE_AUTH)) { od->setnick = TRUE; od->newsn = g_strdup(nick); aim_reqservice(od->sess, od->conn, AIM_CONN_TYPE_AUTH); } else { aim_admin_setnick(od->sess, aim_getconn_type(od->sess, AIM_CONN_TYPE_AUTH), nick); } } else { do_error_dialog("The new formatting is invalid.", "Screenname formatting can change only capitalization and whitespace.", GAIM_ERROR); } } static void oscar_do_action(struct gaim_connection *gc, char *act) { struct oscar_data *od = gc->proto_data; aim_conn_t *conn = aim_getconn_type(od->sess, AIM_CONN_TYPE_AUTH); if (!strcmp(act, "Set User Info")) { show_set_info(gc); } else if (!strcmp(act, "Change Password")) { show_change_passwd(gc); } else if (!strcmp(act, "Format Screenname")) { do_prompt_dialog("New screenname formatting:", gc->displayname, gc, oscar_format_screenname, NULL); } else if (!strcmp(act, "Confirm Account")) { if (!conn) { od->conf = TRUE; aim_reqservice(od->sess, od->conn, AIM_CONN_TYPE_AUTH); } else aim_admin_reqconfirm(od->sess, conn); } else if (!strcmp(act, "Display Current Registered Address")) { if (!conn) { od->reqemail = TRUE; aim_reqservice(od->sess, od->conn, AIM_CONN_TYPE_AUTH); } else aim_admin_getinfo(od->sess, conn, 0x11); } else if (!strcmp(act, "Change Current Registered Address")) { do_prompt_dialog("Change Address To: ", NULL, gc, oscar_change_email, NULL); } else if (!strcmp(act, "Search for Buddy by Email")) { show_find_email(gc); } } static GList *oscar_actions() { GList *m = NULL; m = g_list_append(m, "Set User Info"); m = g_list_append(m, NULL); m = g_list_append(m, "Change Password"); m = g_list_append(m, "Format Screenname"); m = g_list_append(m, "Confirm Account"); m = g_list_append(m, "Display Current Registered Address"); m = g_list_append(m, "Change Current Registered Address"); m = g_list_append(m, NULL); m = g_list_append(m, "Search for Buddy by Email"); return m; } static void oscar_change_passwd(struct gaim_connection *gc, const char *old, const char *new) { struct oscar_data *od = gc->proto_data; if (!aim_getconn_type(od->sess, AIM_CONN_TYPE_AUTH)) { od->chpass = TRUE; od->oldp = g_strdup(old); od->newp = g_strdup(new); aim_reqservice(od->sess, od->conn, AIM_CONN_TYPE_AUTH); } else { aim_admin_changepasswd(od->sess, aim_getconn_type(od->sess, AIM_CONN_TYPE_AUTH), new, old); } } static void oscar_convo_closed(struct gaim_connection *gc, char *who) { struct oscar_data *od = gc->proto_data; struct direct_im *dim = find_direct_im(od, who); if (!dim) return; od->direct_ims = g_slist_remove(od->direct_ims, dim); gaim_input_remove(dim->watcher); aim_conn_kill(od->sess, &dim->conn); g_free(dim); } static struct prpl *my_protocol = NULL; G_MODULE_EXPORT void oscar_init(struct prpl *ret) { struct proto_user_opt *puo; ret->protocol = PROTO_OSCAR; ret->options = OPT_PROTO_MAIL_CHECK | OPT_PROTO_BUDDY_ICON | OPT_PROTO_IM_IMAGE; ret->name = g_strdup("AIM/ICQ"); ret->list_icon = oscar_list_icon; ret->away_states = oscar_away_states; ret->actions = oscar_actions; ret->do_action = oscar_do_action; ret->buddy_menu = oscar_buddy_menu; ret->edit_buddy_menu = oscar_edit_buddy_menu; ret->login = oscar_login; ret->close = oscar_close; ret->send_im = oscar_send_im; ret->send_typing = oscar_send_typing; ret->set_info = oscar_set_info; ret->get_info = oscar_get_info; ret->set_away = oscar_set_away; ret->get_away = oscar_get_away; ret->set_dir = oscar_set_dir; ret->get_dir = NULL; /* Oscar really doesn't have this */ ret->dir_search = oscar_dir_search; ret->set_idle = oscar_set_idle; ret->change_passwd = oscar_change_passwd; ret->add_buddy = oscar_add_buddy; ret->add_buddies = oscar_add_buddies; ret->group_buddy = oscar_move_buddy; ret->rename_group = oscar_rename_group; ret->file_transfer_cancel = oscar_file_transfer_cancel; ret->file_transfer_in = oscar_file_transfer_in; ret->file_transfer_out = oscar_file_transfer_out; ret->file_transfer_data_chunk = oscar_file_transfer_data_chunk; ret->file_transfer_nextfile = oscar_file_transfer_nextfile; ret->file_transfer_done = oscar_file_transfer_done; ret->remove_buddy = oscar_remove_buddy; ret->remove_buddies = oscar_remove_buddies; ret->add_permit = oscar_add_permit; ret->add_deny = oscar_add_deny; ret->rem_permit = oscar_rem_permit; ret->rem_deny = oscar_rem_deny; ret->set_permit_deny = oscar_set_permit_deny; ret->warn = oscar_warn; ret->chat_info = oscar_chat_info; ret->join_chat = oscar_join_chat; ret->chat_invite = oscar_chat_invite; ret->chat_leave = oscar_chat_leave; ret->chat_whisper = NULL; ret->chat_send = oscar_chat_send; ret->keepalive = oscar_keepalive; ret->convo_closed = oscar_convo_closed; puo = g_new0(struct proto_user_opt, 1); puo->label = g_strdup("Auth Host:"); puo->def = g_strdup("login.oscar.aol.com"); puo->pos = USEROPT_AUTH; ret->user_opts = g_list_append(ret->user_opts, puo); puo = g_new0(struct proto_user_opt, 1); puo->label = g_strdup("Auth Port:"); puo->def = g_strdup("5190"); puo->pos = USEROPT_AUTHPORT; ret->user_opts = g_list_append(ret->user_opts, puo); my_protocol = ret; } #ifndef STATIC G_MODULE_EXPORT void gaim_prpl_init(struct prpl *prpl) { oscar_init(prpl); prpl->plug->desc.api_version = PLUGIN_API_VERSION; } #endif