Mercurial > pidgin
view src/protocols/zephyr/zephyr.c @ 6378:01289157fc37
[gaim-migrate @ 6883]
This solves the problem of 50 billion dialogs on your screen and server
requests to re-authorize or re-deny everybody on every privacy list in your
protocol. "Oops."
committer: Tailor Script <tailor@pidgin.im>
author | Christian Hammond <chipx86@chipx86.com> |
---|---|
date | Tue, 05 Aug 2003 18:59:57 +0000 |
parents | 8f94cce8faa5 |
children | 5ced8e111473 |
line wrap: on
line source
/* -*- Mode: C; tab-width: 8; indent-tabs-mode: nil; c-basic-offset: 8 -*- */ /* * gaim * * Copyright (C) 1998-2001, Mark Spencer <markster@marko.net> * Some code borrowed from GtkZephyr, by * Jag/Sean Dilda <agrajag@linuxpower.org>/<smdilda@unity.ncsu.edu> * http://gtkzephyr.linuxpower.org/ * * 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 * */ /* XXX eww */ #include "src/internal.h" #include "debug.h" #include "multi.h" #include "notify.h" #include "prpl.h" #include "server.h" #include "util.h" #include "zephyr/zephyr.h" #include "gaim.h" extern Code_t ZGetLocations(ZLocations_t *, int *); extern Code_t ZSetLocation(char *); extern Code_t ZUnsetLocation(); typedef struct _zframe zframe; typedef struct _zephyr_triple zephyr_triple; /* struct I need for zephyr_to_html */ struct _zframe { /* true for everything but @color, since inside the parens of that one is * the color. */ gboolean has_closer; /* </i>, </font>, </b>, etc. */ char *closing; /* text including the opening html thingie. */ GString *text; struct _zframe *enclosing; }; struct _zephyr_triple { char *class; char *instance; char *recipient; char *name; gboolean open; int id; }; #define z_call(func) if (func != ZERR_NONE)\ return; #define z_call_r(func) if (func != ZERR_NONE)\ return TRUE; #define z_call_s(func, err) if (func != ZERR_NONE) {\ gaim_connection_error(zgc, err);\ return;\ } static char *zephyr_normalize(const char *); /* this is so bad, and if Zephyr weren't so fucked up to begin with I * wouldn't do this. but it is so i will. */ static guint32 nottimer = 0; static guint32 loctimer = 0; GaimConnection *zgc = NULL; static GList *pending_zloc_names = NULL; static GSList *subscrips = NULL; static int last_id = 0; /* just for debugging static void handle_unknown(ZNotice_t notice) { debug_printf("z_packet: %s\n", notice.z_packet); debug_printf("z_version: %s\n", notice.z_version); debug_printf("z_kind: %d\n", notice.z_kind); debug_printf("z_class: %s\n", notice.z_class); debug_printf("z_class_inst: %s\n", notice.z_class_inst); debug_printf("z_opcode: %s\n", notice.z_opcode); debug_printf("z_sender: %s\n", notice.z_sender); debug_printf("z_recipient: %s\n", notice.z_recipient); debug_printf("z_message: %s\n", notice.z_message); debug_printf("z_message_len: %d\n", notice.z_message_len); debug_printf("\n"); } */ static zephyr_triple *new_triple(const char *c, const char *i, const char *r) { zephyr_triple *zt; zt = g_new0(zephyr_triple, 1); zt->class = g_strdup(c); zt->instance = g_strdup(i); zt->recipient = g_strdup(r); zt->name = g_strdup_printf("%s,%s,%s", c, i, r); zt->id = ++last_id; zt->open = FALSE; return zt; } static void free_triple(zephyr_triple *zt) { g_free(zt->class); g_free(zt->instance); g_free(zt->recipient); g_free(zt->name); g_free(zt); } /* returns true if zt1 is a subset of zt2, i.e. zt2 has the same thing or * wildcards in each field of zt1. */ static gboolean triple_subset(zephyr_triple *zt1, zephyr_triple *zt2) { if (g_ascii_strcasecmp(zt2->class, zt1->class) && g_ascii_strcasecmp(zt2->class, "*")) { return FALSE; } if (g_ascii_strcasecmp(zt2->instance, zt1->instance) && g_ascii_strcasecmp(zt2->instance, "*")) { return FALSE; } if (g_ascii_strcasecmp(zt2->recipient, zt1->recipient) && g_ascii_strcasecmp(zt2->recipient, "*")) { return FALSE; } return TRUE; } static zephyr_triple *find_sub_by_triple(zephyr_triple *zt) { zephyr_triple *curr_t; GSList *curr = subscrips; while (curr) { curr_t = curr->data; if (triple_subset(zt, curr_t)) return curr_t; curr = curr->next; } return NULL; } static zephyr_triple *find_sub_by_id(int id) { zephyr_triple *zt; GSList *curr = subscrips; while (curr) { zt = curr->data; if (zt->id == id) return zt; curr = curr->next; } return NULL; } /* utility macros that are useful for zephyr_to_html */ #define IS_OPENER(c) ((c == '{') || (c == '[') || (c == '(') || (c == '<')) #define IS_CLOSER(c) ((c == '}') || (c == ']') || (c == ')') || (c == '>')) /* this parses zephyr formatting and converts it to html. For example, if * you pass in "@{@color(blue)@i(hello)}" you should get out * "<font color=blue><i>hello</i></font>". */ static char *zephyr_to_html(char *message) { int len, cnt; zframe *frames, *curr; char *ret; frames = g_new(zframe, 1); frames->text = g_string_new(""); frames->enclosing = NULL; frames->closing = ""; frames->has_closer = FALSE; len = strlen(message); cnt = 0; while (cnt <= len) { if (message[cnt] == '@') { zframe *new_f; char *buf; int end; for (end=1; (cnt+end) <= len && !IS_OPENER(message[cnt+end]); end++); buf = g_new0(char, end); if (end) { g_snprintf(buf, end, "%s", message+cnt+1); } if (!g_ascii_strcasecmp(buf, "italic") || !g_ascii_strcasecmp(buf, "i")) { new_f = g_new(zframe, 1); new_f->enclosing = frames; new_f->text = g_string_new("<i>"); new_f->closing = "</i>"; new_f->has_closer = TRUE; frames = new_f; cnt += end+1; /* cnt points to char after opener */ } else if (!g_ascii_strcasecmp(buf, "bold") || !g_ascii_strcasecmp(buf, "b")) { new_f = g_new(zframe, 1); new_f->enclosing = frames; new_f->text = g_string_new("<b>"); new_f->closing = "</b>"; new_f->has_closer = TRUE; frames = new_f; cnt += end+1; } else if (!g_ascii_strcasecmp(buf, "color")) { cnt += end+1; new_f = g_new(zframe, 1); new_f->enclosing = frames; new_f->text = g_string_new("<font color="); for (; (cnt <= len) && !IS_CLOSER(message[cnt]); cnt++) { g_string_append_c(new_f->text, message[cnt]); } cnt++; /* point to char after closer */ g_string_append_c(new_f->text, '>'); new_f->closing = "</font>"; new_f->has_closer = FALSE; frames = new_f; } else if (!g_ascii_strcasecmp(buf, "")) { new_f = g_new(zframe, 1); new_f->enclosing = frames; new_f->text = g_string_new(""); new_f->closing = ""; new_f->has_closer = TRUE; frames = new_f; cnt += end+1; /* cnt points to char after opener */ } else { if ((cnt+end) > len) { g_string_append_c(frames->text, '@'); cnt++; } else { /* unrecognized thingie. act like it's not there, but we * still need to take care of the corresponding closer, * make a frame that does nothing. */ new_f = g_new(zframe, 1); new_f->enclosing = frames; new_f->text = g_string_new(""); new_f->closing = ""; new_f->has_closer = TRUE; frames = new_f; cnt += end+1; /* cnt points to char after opener */ } } } else if (IS_CLOSER(message[cnt])) { zframe *popped; gboolean last_had_closer; if (frames->enclosing) { do { popped = frames; frames = frames->enclosing; g_string_append(frames->text, popped->text->str); g_string_append(frames->text, popped->closing); g_string_free(popped->text, TRUE); last_had_closer = popped->has_closer; g_free(popped); } while (frames && frames->enclosing && !last_had_closer); } else { g_string_append_c(frames->text, message[cnt]); } cnt++; } else if (message[cnt] == '\n') { g_string_append(frames->text, "<br>"); cnt++; } else { g_string_append_c(frames->text, message[cnt++]); } } /* go through all the stuff that they didn't close */ while (frames->enclosing) { curr = frames; g_string_append(frames->enclosing->text, frames->text->str); g_string_append(frames->enclosing->text, frames->closing); g_string_free(frames->text, TRUE); frames = frames->enclosing; g_free(curr); } ret = frames->text->str; g_string_free(frames->text, FALSE); g_free(frames); return ret; } static gboolean pending_zloc(char *who) { GList *curr; for (curr = pending_zloc_names; curr != NULL; curr = curr->next) { if (!g_ascii_strcasecmp(who, (char*)curr->data)) { g_free((char*)curr->data); pending_zloc_names = g_list_remove(pending_zloc_names, curr->data); return TRUE; } } return FALSE; } static void handle_message(ZNotice_t notice, struct sockaddr_in from) { if (!g_ascii_strcasecmp(notice.z_class, LOGIN_CLASS)) { /* well, we'll be updating in 20 seconds anyway, might as well ignore this. */ } else if (!g_ascii_strcasecmp(notice.z_class, LOCATE_CLASS)) { if (!g_ascii_strcasecmp(notice.z_opcode, LOCATE_LOCATE)) { int nlocs; char *user; struct buddy *b; if (ZParseLocations(¬ice, NULL, &nlocs, &user) != ZERR_NONE) return; if ((b = gaim_find_buddy(zgc->account, user)) == NULL) { char *e = strchr(user, '@'); if (e) *e = '\0'; b = gaim_find_buddy(zgc->account, user); } if (!b) { free(user); return; } if (pending_zloc(b->name)) { ZLocations_t locs; int one = 1; GString *str = g_string_new(""); g_string_append_printf(str, _("<b>User:</b> %s<br>"), b->name); if (b->alias) g_string_append_printf(str, _("<b>Alias:</b> %s<br>"), b->alias); if (!nlocs) { g_string_append_printf(str, _("<br>Hidden or not logged-in")); } for (; nlocs > 0; nlocs--) { ZGetLocations(&locs, &one); g_string_append_printf(str, _("<br>At %s since %s"), locs.host, locs.time); } g_show_info_text(NULL, NULL, 2, str->str, NULL); g_string_free(str, TRUE); } else serv_got_update(zgc, b->name, nlocs, 0, 0, 0, 0); free(user); } } else { char *buf, *buf2; char *send_inst; char *realmptr; char *sendertmp; char *ptr = notice.z_message + strlen(notice.z_message) + 1; int len = notice.z_message_len - (ptr - notice.z_message); int away; if (len > 0) { buf = g_malloc(len + 1); g_snprintf(buf, len + 1, "%s", ptr); g_strchomp(buf); buf2 = zephyr_to_html(buf); g_free(buf); if (!g_ascii_strcasecmp(notice.z_class, "MESSAGE") && !g_ascii_strcasecmp(notice.z_class_inst, "PERSONAL")) { if (!g_ascii_strcasecmp(notice.z_message, "Automated reply:")) away = TRUE; else away = FALSE; serv_got_im(zgc, notice.z_sender, buf2, 0, time(NULL), -1); } else { zephyr_triple *zt1, *zt2; zt1 = new_triple(notice.z_class, notice.z_class_inst, notice.z_recipient); zt2 = find_sub_by_triple(zt1); if (!zt2) { /* we shouldn't be subscribed to this message. ignore. */ } else { if (!zt2->open) { zt2->open = TRUE; serv_got_joined_chat(zgc, zt2->id, zt2->name); } /* If the person is in the default Realm, then strip the Realm from the sender field */ sendertmp = g_strdup_printf("%s",notice.z_sender); if ((realmptr = strchr(sendertmp,'@')) != NULL) { realmptr++; if (!g_ascii_strcasecmp(realmptr,ZGetRealm())) { realmptr--; sprintf(realmptr,"%c",'\0'); send_inst = g_strdup_printf("%s %s",sendertmp, notice.z_class_inst); } else { send_inst = g_strdup_printf("%s %s",notice.z_sender, notice.z_class_inst); } } else { send_inst = g_strdup_printf("%s %s",sendertmp,notice.z_class_inst); } serv_got_chat_in(zgc, zt2->id, send_inst, FALSE, buf2, time(NULL)); g_free(sendertmp); g_free(send_inst); } free_triple(zt1); } g_free(buf2); } } } static gint check_notify(gpointer data) { while (ZPending()) { ZNotice_t notice; struct sockaddr_in from; z_call_r(ZReceiveNotice(¬ice, &from)); switch (notice.z_kind) { case UNSAFE: case UNACKED: case ACKED: handle_message(notice, from); break; default: /* we'll just ignore things for now */ debug_printf("ZEPHYR: Unhandled Notice\n"); break; } ZFreeNotice(¬ice); } return TRUE; } static gint check_loc(gpointer data) { GaimBlistNode *gnode,*bnode; ZAsyncLocateData_t ald; ald.user = NULL; memset(&(ald.uid), 0, sizeof(ZUnique_Id_t)); ald.version = NULL; for(gnode = gaim_get_blist()->root; gnode; gnode = gnode->next) { if(!GAIM_BLIST_NODE_IS_GROUP(gnode)) continue; for(bnode = gnode->child; bnode; bnode = bnode->next) { struct buddy *b = (struct buddy *)bnode; if(!GAIM_BLIST_NODE_IS_BUDDY(bnode)) continue; if(b->account->gc == zgc) { char *chk; chk = zephyr_normalize(b->name); /* doesn't matter if this fails or not; we'll just move on to the next one */ ZRequestLocations(chk, &ald, UNACKED, ZAUTH); free(ald.user); free(ald.version); } } } return TRUE; } static char *get_exposure_level() { char *exposure = ZGetVariable("exposure"); if (!exposure) return EXPOSE_REALMVIS; if (!g_ascii_strcasecmp(exposure, EXPOSE_NONE)) return EXPOSE_NONE; if (!g_ascii_strcasecmp(exposure, EXPOSE_OPSTAFF)) return EXPOSE_OPSTAFF; if (!g_ascii_strcasecmp(exposure, EXPOSE_REALMANN)) return EXPOSE_REALMANN; if (!g_ascii_strcasecmp(exposure, EXPOSE_NETVIS)) return EXPOSE_NETVIS; if (!g_ascii_strcasecmp(exposure, EXPOSE_NETANN)) return EXPOSE_NETANN; return EXPOSE_REALMVIS; } static void strip_comments(char *str) { char *tmp = strchr(str, '#'); if (tmp) *tmp = '\0'; g_strchug(str); g_strchomp(str); } static void process_zsubs() { FILE *f; gchar *fname; gchar buff[BUFSIZ]; fname = g_strdup_printf("%s/.zephyr.subs", gaim_home_dir()); f = fopen(fname, "r"); if (f) { char **triple; ZSubscription_t sub; char *recip; while (fgets(buff, BUFSIZ, f)) { strip_comments(buff); if (buff[0]) { triple = g_strsplit(buff, ",", 3); if (triple[0] && triple[1] ) { /* char *tmp = g_strdup_printf("%s@%s", g_getenv("USER"), ZGetRealm()); */ char *tmp = g_strdup_printf("%s",ZGetSender()); char *atptr; sub.zsub_class = triple[0]; sub.zsub_classinst = triple[1]; if(triple[2] == NULL) { recip = g_malloc0(1); } else if (!g_ascii_strcasecmp(triple[2], "%me%")) { recip = g_strdup_printf("%s",ZGetSender()); } else if (!g_ascii_strcasecmp(triple[2], "*")) { /* wildcard * form of class,instance,* */ recip = g_malloc0(1); } else if (!g_ascii_strcasecmp(triple[2], tmp)) { /* form of class,instance,aatharuv@ATHENA.MIT.EDU */ recip = g_strdup(triple[2]); } else if ((atptr = strchr(triple[2], '@')) != NULL) { /* form of class,instance,*@ANDREW.CMU.EDU * class,instance,@ANDREW.CMU.EDU * If realm is local realm, blank recipient, else * @REALM-NAME */ char *realmat = g_strdup_printf("@%s", ZGetRealm()); if (!g_ascii_strcasecmp(atptr, realmat)) recip = g_malloc0(1); else recip = g_strdup(atptr); g_free(realmat); } else { recip = g_strdup(triple[2]); } g_free(tmp); sub.zsub_recipient = recip; if (ZSubscribeTo(&sub, 1, 0) != ZERR_NONE) { debug_printf("Zephyr: Couldn't subscribe to %s, %s, " "%s\n", sub.zsub_class, sub.zsub_classinst, sub.zsub_recipient); } subscrips = g_slist_append(subscrips, new_triple(triple[0], triple[1], recip)); g_free(recip); } g_strfreev(triple); } } } } static void process_anyone() { FILE *fd; gchar buff[BUFSIZ], *filename; struct group *g; struct buddy *b; if (!(g = gaim_find_group(_("Anyone")))) { g = gaim_group_new(_("Anyone")); gaim_blist_add_group(g, NULL); } filename = g_strconcat(gaim_home_dir(), "/.anyone", NULL); if ((fd = fopen(filename, "r")) != NULL) { while (fgets(buff, BUFSIZ, fd)) { strip_comments(buff); if (buff[0]) { b = gaim_buddy_new(zgc->account, buff, NULL); gaim_blist_add_buddy(b, g, NULL); } } fclose(fd); } g_free(filename); } static void zephyr_login(GaimAccount *account) { ZSubscription_t sub; if (zgc) { gaim_notify_error(account->gc, NULL, _("Already logged in with Zephyr"), _("Because Zephyr uses your system username, you " "are unable to have multiple accounts on it " "when logged in as the same user.")); return; } zgc = gaim_account_get_connection(account); z_call_s(ZInitialize(), "Couldn't initialize zephyr"); z_call_s(ZOpenPort(NULL), "Couldn't open port"); z_call_s(ZSetLocation(get_exposure_level()), "Couldn't set location"); sub.zsub_class = "MESSAGE"; sub.zsub_classinst = "PERSONAL"; sub.zsub_recipient = ZGetSender(); /* we don't care if this fails. i'm lying right now. */ if (ZSubscribeTo(&sub, 1, 0) != ZERR_NONE) { debug_printf("Zephyr: Couldn't subscribe to messages!\n"); } gaim_connection_set_state(zgc, GAIM_CONNECTED); serv_finish_login(zgc); process_anyone(); process_zsubs(); nottimer = g_timeout_add(100, check_notify, NULL); loctimer = g_timeout_add(20000, check_loc, NULL); } static void write_zsubs() { GSList *s = subscrips; zephyr_triple *zt; FILE *fd; char *fname; char** triple; fname = g_strdup_printf("%s/.zephyr.subs", gaim_home_dir()); fd = fopen(fname, "w"); if (!fd) { g_free(fname); return; } while (s) { zt = s->data; triple = g_strsplit(zt->name,",",3); if (triple[2] != NULL) { if (!g_ascii_strcasecmp(triple[2], "")) { fprintf(fd, "%s,%s,*\n", triple[0], triple[1]); } else if (!g_ascii_strcasecmp(triple[2], ZGetSender())) { fprintf(fd, "%s,%s,%%me%%\n",triple[0],triple[1]); } else { fprintf(fd, "%s\n", zt->name); } } else { fprintf(fd, "%s,%s,*\n",triple[0], triple[1]); } g_free(triple); s = s->next; } g_free(fname); fclose(fd); } static void write_anyone() { GaimBlistNode *gnode,*bnode; struct buddy *b; char *ptr, *fname, *ptr2; FILE *fd; fname = g_strdup_printf("%s/.anyone", gaim_home_dir()); fd = fopen(fname, "w"); if (!fd) { g_free(fname); return; } for(gnode = gaim_get_blist()->root; gnode; gnode = gnode->next) { if(!GAIM_BLIST_NODE_IS_GROUP(gnode)) continue; for(bnode = gnode->child; bnode; bnode = bnode->next) { if(!GAIM_BLIST_NODE_IS_BUDDY(bnode)) continue; b = (struct buddy *)bnode; if(b->account->gc == zgc) { if ((ptr = strchr(b->name, '@')) != NULL) { ptr2 = ptr + 1; /* We should only strip the realm name if the principal is in the user's realm */ if (!g_ascii_strcasecmp(ptr2,ZGetRealm())) { *ptr = '\0'; } } fprintf(fd, "%s\n", b->name); if (ptr) *ptr = '@'; } } } fclose(fd); g_free(fname); } static void zephyr_close(GaimConnection *gc) { GList *l; GSList *s; l = pending_zloc_names; while (l) { g_free((char*)l->data); l = l->next; } g_list_free(pending_zloc_names); write_anyone(); write_zsubs(); s = subscrips; while (s) { free_triple((zephyr_triple*)s->data); s = s->next; } g_slist_free(subscrips); if (nottimer) g_source_remove(nottimer); nottimer = 0; if (loctimer) g_source_remove(loctimer); loctimer = 0; zgc = NULL; z_call(ZCancelSubscriptions(0)); z_call(ZUnsetLocation()); z_call(ZClosePort()); } static void zephyr_add_buddy(GaimConnection *gc, const char *buddy) { } static void zephyr_remove_buddy(GaimConnection *gc, const char *buddy, const char *group) { } static int zephyr_chat_send(GaimConnection *gc, int id, const char *im) { ZNotice_t notice; zephyr_triple *zt; char *buf; const char *sig; zt = find_sub_by_id(id); if (!zt) /* this should never happen. */ return -EINVAL; sig = ZGetVariable("zwrite-signature"); if (!sig) { sig = g_get_real_name(); } buf = g_strdup_printf("%s%c%s", sig, '\0', im); bzero((char *)¬ice, sizeof(notice)); notice.z_kind = ACKED; notice.z_port = 0; notice.z_opcode = ""; notice.z_class = zt->class; notice.z_class_inst = zt->instance; if (!g_ascii_strcasecmp(zt->recipient, "*")) notice.z_recipient = zephyr_normalize(""); else notice.z_recipient = zephyr_normalize(zt->recipient); notice.z_sender = 0; notice.z_default_format = "Class $class, Instance $instance:\n" "To: @bold($recipient) at $time $date\n" "From: @bold($1) <$sender>\n\n$2"; notice.z_message_len = strlen(im) + strlen(sig) + 4; notice.z_message = buf; ZSendNotice(¬ice, ZAUTH); g_free(buf); return 0; } static int zephyr_send_im(GaimConnection *gc, const char *who, const char *im, int len, int flags) { ZNotice_t notice; char *buf; const char *sig; if (flags & IM_FLAG_AWAY) sig = "Automated reply:"; else { sig = ZGetVariable("zwrite-signature"); if (!sig) { sig = g_get_real_name(); } } buf = g_strdup_printf("%s%c%s", sig, '\0', im); bzero((char *)¬ice, sizeof(notice)); notice.z_kind = ACKED; notice.z_port = 0; notice.z_opcode = ""; notice.z_class = "MESSAGE"; notice.z_class_inst = "PERSONAL"; notice.z_sender = 0; notice.z_recipient = who; notice.z_default_format = "Class $class, Instance $instance:\n" "To: @bold($recipient) at $time $date\n" "From: @bold($1) <$sender>\n\n$2"; notice.z_message_len = strlen(im) + strlen(sig) + 4; notice.z_message = buf; g_free(buf); return 1; } static char *zephyr_normalize(const char *orig) { static char buf[80]; if (strchr(orig, '@')) { g_snprintf(buf, 80, "%s", orig); } else { g_snprintf(buf, 80, "%s@%s", orig, ZGetRealm()); } return buf; } static void zephyr_zloc(GaimConnection *gc, const char *who) { ZAsyncLocateData_t ald; if (ZRequestLocations(zephyr_normalize(who), &ald, UNACKED, ZAUTH) != ZERR_NONE) { return; } pending_zloc_names = g_list_append(pending_zloc_names, g_strdup(zephyr_normalize(who))); } static GList *zephyr_buddy_menu(GaimConnection *gc, const char *who) { GList *m = NULL; struct proto_buddy_menu *pbm; pbm = g_new0(struct proto_buddy_menu, 1); pbm->label = _("ZLocate"); pbm->callback = zephyr_zloc; pbm->gc = gc; m = g_list_append(m, pbm); return m; } static void zephyr_set_away(GaimConnection *gc, const char *state, const char *msg) { if (gc->away) { g_free(gc->away); gc->away = NULL; } if (!g_ascii_strcasecmp(state, _("Hidden"))) { ZSetLocation(EXPOSE_OPSTAFF); gc->away = g_strdup(""); } else if (!g_ascii_strcasecmp(state, _("Online"))) ZSetLocation(get_exposure_level()); else /* state is GAIM_AWAY_CUSTOM */ if (msg) gc->away = g_strdup(msg); } static GList *zephyr_away_states(GaimConnection *gc) { GList *m = NULL; m = g_list_append(m, _("Online")); m = g_list_append(m, GAIM_AWAY_CUSTOM); m = g_list_append(m, _("Hidden")); return m; } static GList *zephyr_chat_info(GaimConnection *gc) { GList *m = NULL; struct proto_chat_entry *pce; pce = g_new0(struct proto_chat_entry, 1); pce->label = _("Class:"); pce->identifier = "class"; m = g_list_append(m, pce); pce = g_new0(struct proto_chat_entry, 1); pce->label = _("Instance:"); pce->identifier = "instance"; m = g_list_append(m, pce); pce = g_new0(struct proto_chat_entry, 1); pce->label = _("Recipient:"); pce->identifier = "recipient"; m = g_list_append(m, pce); return m; } static void zephyr_join_chat(GaimConnection *gc, GHashTable *data) { ZSubscription_t sub; zephyr_triple *zt1, *zt2; const char *classname; const char *instname; const char *recip; classname = g_hash_table_lookup(data, "class"); instname = g_hash_table_lookup(data, "instance"); recip = g_hash_table_lookup(data, "recipient"); if (!classname || !instname || !recip) return; if (!g_ascii_strcasecmp(recip, "%me%")) recip = ZGetSender(); zt1 = new_triple(classname, instname, recip); zt2 = find_sub_by_triple(zt1); if (zt2) { free_triple(zt1); if (!zt2->open) serv_got_joined_chat(gc, zt2->id, zt2->name); return; } sub.zsub_class = zt1->class; sub.zsub_classinst = zt1->instance; sub.zsub_recipient = zt1->recipient; if (ZSubscribeTo(&sub, 1, 0) != ZERR_NONE) { free_triple(zt1); return; } subscrips = g_slist_append(subscrips, zt1); zt1->open = TRUE; serv_got_joined_chat(gc, zt1->id, zt1->name); } static void zephyr_chat_leave(GaimConnection *gc, int id) { zephyr_triple *zt; zt = find_sub_by_id(id); if (zt) { zt->open = FALSE; zt->id = ++last_id; } } static const char *zephyr_list_icon(GaimAccount *a, struct buddy *b) { return "zephyr"; } static GaimPlugin *my_protocol = NULL; static GaimPluginProtocolInfo prpl_info = { GAIM_PROTO_ZEPHYR, OPT_PROTO_NO_PASSWORD, NULL, NULL, zephyr_list_icon, NULL, NULL, NULL, zephyr_away_states, NULL, zephyr_buddy_menu, zephyr_chat_info, zephyr_login, zephyr_close, zephyr_send_im, NULL, NULL, zephyr_zloc, zephyr_set_away, NULL, NULL, NULL, NULL, NULL, NULL, zephyr_add_buddy, NULL, zephyr_remove_buddy, NULL, NULL, NULL, NULL, NULL, NULL, NULL, zephyr_join_chat, NULL, zephyr_chat_leave, NULL, zephyr_chat_send, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL, zephyr_normalize }; static GaimPluginInfo info = { 2, /**< api_version */ GAIM_PLUGIN_PROTOCOL, /**< type */ NULL, /**< ui_requirement */ 0, /**< flags */ NULL, /**< dependencies */ GAIM_PRIORITY_DEFAULT, /**< priority */ "prpl-zephyr", /**< id */ "Zephyr", /**< name */ VERSION, /**< version */ /** summary */ N_("Zephyr Protocol Plugin"), /** description */ N_("Zephyr Protocol Plugin"), NULL, /**< author */ GAIM_WEBSITE, /**< homepage */ NULL, /**< load */ NULL, /**< unload */ NULL, /**< destroy */ NULL, /**< ui_info */ &prpl_info /**< extra_info */ }; static void init_plugin(GaimPlugin *plugin) { my_protocol = plugin; } GAIM_INIT_PLUGIN(zephyr, init_plugin, info);