Context Navigation

source: protocols/jabber/jabber.c @ 89a1809

Last change on this file since 89a1809 was 75a4b85, checked in by Wilmer van der Gaast <wilmer@…>, at 2006-07-14T09:25:48Z
Fixed a memory leak, added a check for valid Jabber handles, and updated documentation (added information about "account set" and sorted the list of settings because it was a bit too random).
Property mode set to `100644`
File size: 60.0 KB

Rev	Line
[b7d3cc34]	1	/* -- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 8 -- */
	2	/*
	3	* gaim
	4	*
	5	* Some code copyright (C) 1998-1999, Mark Spencer <markster@marko.net>
	6	* libfaim code copyright 1998, 1999 Adam Fritzler <afritz@auk.cx>
	7	*
	8	* This program is free software; you can redistribute it and/or modify
	9	* it under the terms of the GNU General Public License as published by
	10	* the Free Software Foundation; either version 2 of the License, or
	11	* (at your option) any later version.
	12	*
	13	* This program is distributed in the hope that it will be useful,
	14	* but WITHOUT ANY WARRANTY; without even the implied warranty of
	15	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	16	* GNU General Public License for more details.
	17	*
	18	* You should have received a copy of the GNU General Public License
	19	* along with this program; if not, write to the Free Software
	20	* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
	21	*
	22	*/
	23
	24	#ifndef _WIN32
	25	#include <sys/utsname.h>
	26	#endif
	27	#include <errno.h>
	28	#include <string.h>
	29	#include <stdlib.h>
	30	#include <stdio.h>
	31	#include <time.h>
	32	#include <sys/stat.h>
	33	#include "jabber.h"
	34	#include "nogaim.h"
	35	#include "bitlbee.h"
	36	#include "proxy.h"
	37	#include "ssl_client.h"
	38
	39	/* The priv member of gjconn's is a gaim_connection for now. */
	40	#define GJ_GC(x) ((struct gaim_connection *)(x)->priv)
	41
	42	#define IQID_AUTH "__AUTH__"
	43
	44	#define IQ_NONE -1
	45	#define IQ_AUTH 0
	46	#define IQ_ROSTER 1
	47
	48	#define UC_AWAY (0x02 \| UC_UNAVAILABLE)
	49	#define UC_CHAT 0x04
	50	#define UC_XA (0x08 \| UC_UNAVAILABLE)
	51	#define UC_DND (0x10 \| UC_UNAVAILABLE)
	52
	53	#define DEFAULT_SERVER "jabber.org"
	54	#define DEFAULT_GROUPCHAT "conference.jabber.org"
	55	#define DEFAULT_PORT 5222
	56	#define DEFAULT_PORT_SSL 5223
[027d2eb]	57	#define JABBER_PORT_MIN 5220
	58	#define JABBER_PORT_MAX 5229
[b7d3cc34]	59
	60	#define JABBER_GROUP "Friends"
	61
	62	/* i18n disabled - Bitlbee */
	63	#define N_(String) String
	64
	65	/*
	66	* Note: "was_connected" may seem redundant, but it was needed and I
	67	* didn't want to touch the Jabber state stuff not specific to Gaim.
	68	*/
	69	typedef struct gjconn_struct {
	70	/* Core structure */
	71	pool p; /* Memory allocation pool */
	72	int state; /* Connection state flag */
	73	int was_connected; /* We were once connected */
	74	int fd; /* Connection file descriptor */
	75	void ssl; / SSL connection */
	76	jid user; /* User info */
	77	char pass; / User passwd */
	78
	79	/* Stream stuff */
	80	int id; /* id counter for jab_getid() function */
	81	char idbuf[9]; /* temporary storage for jab_getid() */
	82	char sid; / stream id from server, for digest auth */
	83	XML_Parser parser; /* Parser instance */
	84	xmlnode current; /* Current node in parsing instance.. */
	85
	86	/* Event callback ptrs */
	87	void (on_state)(struct gjconn_struct gjc, int state);
	88	void (on_packet)(struct gjconn_struct gjc, jpacket p);
	89
	90	GHashTable queries; / query tracker */
	91
	92	void *priv;
	93	} *gjconn, gjconn_struct;
	94
	95	typedef void (*gjconn_state_h)(gjconn gjc, int state);
	96	typedef void (*gjconn_packet_h)(gjconn gjc, jpacket p);
	97
	98	static gjconn gjab_new(char user, char pass, void *priv);
	99	static void gjab_delete(gjconn gjc);
	100	static void gjab_state_handler(gjconn gjc, gjconn_state_h h);
	101	static void gjab_packet_handler(gjconn gjc, gjconn_packet_h h);
	102	static void gjab_start(gjconn gjc);
	103	static void gjab_stop(gjconn gjc);
	104	/*
	105	static int gjab_getfd(gjconn gjc);
	106	static jid gjab_getjid(gjconn gjc);
	107	static char *gjab_getsid(gjconn gjc);
	108	*/
	109	static char *gjab_getid(gjconn gjc);
	110	static void gjab_send(gjconn gjc, xmlnode x);
	111	static void gjab_send_raw(gjconn gjc, const char *str);
	112	static void gjab_recv(gjconn gjc);
	113	static void gjab_auth(gjconn gjc);
	114
	115	/*
	116	* It is this to which we point the gaim_connection proto_data
	117	*/
	118	struct jabber_data {
	119	gjconn gjc;
	120	gboolean did_import;
	121	GSList *chats;
	122	GHashTable *hash;
	123	time_t idle;
	124	gboolean die;
	125	};
	126
	127	/*
	128	* Jabber "chat group" info. Pointers to these go in jabber_data
	129	* pending and existing chats lists.
	130	*/
	131	struct jabber_chat {
	132	jid Jid;
	133	struct gaim_connection *gc;
	134	struct conversation *b;
	135	int id;
	136	int state;
	137	};
	138
	139	/*
	140	* Jabber chat states...
	141	*
	142	* Note: due to a bug in one version of the Jabber server, subscriptions
	143	* to chat groups aren't (always?) properly removed at the server. The
	144	* result is clients receive Jabber "presence" notifications for JIDs
	145	* they no longer care about. The problem with such vestigial notifies is
	146	* that we really have no way of telling if it's vestigial or if it's a
	147	* valid "buddy" presence notification. So we keep jabber_chat structs
	148	* around after leaving a chat group and simply mark them "closed." That
	149	* way we can test for such errant presence notifications. I.e.: if we
	150	* get a presence notfication from a JID that matches a chat group JID,
	151	* we disregard it.
	152	*/
	153	#define JCS_PENDING 1 /* pending */
	154	#define JCS_ACTIVE 2 /* active */
	155	#define JCS_CLOSED 3 /* closed */
	156
	157
	158	#define STATE_EVT(arg) if(gjc->on_state) { (gjc->on_state)(gjc, (arg) ); }
	159
	160	static void jabber_remove_buddy(struct gaim_connection gc, char name, char *group);
	161	static void jabber_handlevcard(gjconn gjc, xmlnode querynode, char *from);
	162
	163	static char create_valid_jid(const char given, char server, char resource)
	164	{
	165	char *valid;
	166
	167	if (!strchr(given, '@'))
	168	valid = g_strdup_printf("%s@%s/%s", given, server, resource);
	169	else if (!strchr(strchr(given, '@'), '/'))
	170	valid = g_strdup_printf("%s/%s", given, resource);
	171	else
	172	valid = g_strdup(given);
	173
	174	return valid;
	175	}
	176
	177	static gjconn gjab_new(char user, char pass, void *priv)
	178	{
	179	pool p;
	180	gjconn gjc;
	181
	182	if (!user)
	183	return (NULL);
	184
	185	p = pool_new();
	186	if (!p)
	187	return (NULL);
	188	gjc = pmalloc_x(p, sizeof(gjconn_struct), 0);
	189	if (!gjc) {
	190	pool_free(p); /* no need for this anymore! */
	191	return (NULL);
	192	}
	193	gjc->p = p;
	194
	195	if((gjc->user = jid_new(p, user)) == NULL) {
	196	pool_free(p); /* no need for this anymore! */
	197	return (NULL);
	198	}
	199	gjc->pass = pstrdup(p, pass);
	200
	201	gjc->state = JCONN_STATE_OFF;
	202	gjc->was_connected = 0;
	203	gjc->id = 1;
	204	gjc->fd = -1;
	205
	206	gjc->priv = priv;
	207
	208	return gjc;
	209	}
	210
	211	static void gjab_delete(gjconn gjc)
	212	{
	213	if (!gjc)
	214	return;
	215
	216	gjab_stop(gjc);
	217	pool_free(gjc->p);
	218	}
	219
	220	static void gjab_state_handler(gjconn gjc, gjconn_state_h h)
	221	{
	222	if (!gjc)
	223	return;
	224
	225	gjc->on_state = h;
	226	}
	227
	228	static void gjab_packet_handler(gjconn gjc, gjconn_packet_h h)
	229	{
	230	if (!gjc)
	231	return;
	232
	233	gjc->on_packet = h;
	234	}
	235
	236	static void gjab_stop(gjconn gjc)
	237	{
	238	if (!gjc \|\| gjc->state == JCONN_STATE_OFF)
	239	return;
	240
	241	gjab_send_raw(gjc, "</stream:stream>");
	242	gjc->state = JCONN_STATE_OFF;
	243	gjc->was_connected = 0;
	244	if (gjc->ssl) {
	245	ssl_disconnect(gjc->ssl);
	246	gjc->ssl = NULL;
	247	} else {
	248	closesocket(gjc->fd);
	249	}
	250	gjc->fd = -1;
	251	XML_ParserFree(gjc->parser);
	252	gjc->parser = NULL;
	253	}
	254
	255	/*
	256	static int gjab_getfd(gjconn gjc)
	257	{
	258	if (gjc)
	259	return gjc->fd;
	260	else
	261	return -1;
	262	}
	263
	264	static jid gjab_getjid(gjconn gjc)
	265	{
	266	if (gjc)
	267	return (gjc->user);
	268	else
	269	return NULL;
	270	}
	271
	272	static char *gjab_getsid(gjconn gjc)
	273	{
	274	if (gjc)
	275	return (gjc->sid);
	276	else
	277	return NULL;
	278	}
	279	*/
	280
	281	static char *gjab_getid(gjconn gjc)
	282	{
	283	g_snprintf(gjc->idbuf, 8, "%d", gjc->id++);
	284	return &gjc->idbuf[0];
	285	}
	286
	287	static void gjab_send(gjconn gjc, xmlnode x)
	288	{
	289	if (gjc && gjc->state != JCONN_STATE_OFF) {
	290	char *buf = xmlnode2str(x);
	291	if (!buf)
	292	return;
	293	else if (gjc->ssl)
	294	ssl_write(gjc->ssl, buf, strlen(buf));
	295	else
	296	write(gjc->fd, buf, strlen(buf));
	297	}
	298	}
	299
	300	static void gjab_send_raw(gjconn gjc, const char *str)
	301	{
	302	if (gjc && gjc->state != JCONN_STATE_OFF) {
	303	int len;
	304
	305	/*
	306	* JFIXME: No error detection?!?!
	307	*/
	308	if (gjc->ssl)
	309	len = ssl_write(gjc->ssl, str, strlen(str));
	310	else
	311	len = write(gjc->fd, str, strlen(str));
	312
	313	if(len < 0) {
	314	/* Do NOT write to stdout/stderr directly, IRC clients
	315	might get confused, and we don't want that...
	316	fprintf(stderr, "DBG: Problem sending. Error: %d\n", errno);
	317	fflush(stderr); */
	318	}
	319	}
	320	}
	321
	322	static void gjab_reqroster(gjconn gjc)
	323	{
	324	xmlnode x;
	325
	326	x = jutil_iqnew(JPACKET__GET, NS_ROSTER);
	327	xmlnode_put_attrib(x, "id", gjab_getid(gjc));
	328
	329	gjab_send(gjc, x);
	330	xmlnode_free(x);
	331	}
	332
	333	static void gjab_reqauth(gjconn gjc)
	334	{
	335	xmlnode x, y, z;
	336	char *user;
	337
	338	if (!gjc)
	339	return;
	340
	341	x = jutil_iqnew(JPACKET__GET, NS_AUTH);
	342	xmlnode_put_attrib(x, "id", IQID_AUTH);
	343	y = xmlnode_get_tag(x, "query");
	344
	345	user = gjc->user->user;
	346
	347	if (user) {
	348	z = xmlnode_insert_tag(y, "username");
	349	xmlnode_insert_cdata(z, user, -1);
	350	}
	351
	352	gjab_send(gjc, x);
	353	xmlnode_free(x);
	354	}
	355
	356	static void gjab_auth(gjconn gjc)
	357	{
	358	xmlnode x, y, z;
	359	char hash, user;
	360
	361	if (!gjc)
	362	return;
	363
	364	x = jutil_iqnew(JPACKET__SET, NS_AUTH);
	365	xmlnode_put_attrib(x, "id", IQID_AUTH);
	366	y = xmlnode_get_tag(x, "query");
	367
	368	user = gjc->user->user;
	369
	370	if (user) {
	371	z = xmlnode_insert_tag(y, "username");
	372	xmlnode_insert_cdata(z, user, -1);
	373	}
	374
	375	z = xmlnode_insert_tag(y, "resource");
	376	xmlnode_insert_cdata(z, gjc->user->resource, -1);
	377
	378	if (gjc->sid) {
	379	z = xmlnode_insert_tag(y, "digest");
	380	hash = pmalloc(x->p, strlen(gjc->sid) + strlen(gjc->pass) + 1);
	381	strcpy(hash, gjc->sid);
	382	strcat(hash, gjc->pass);
	383	hash = shahash(hash);
	384	xmlnode_insert_cdata(z, hash, 40);
	385	} else {
	386	z = xmlnode_insert_tag(y, "password");
	387	xmlnode_insert_cdata(z, gjc->pass, -1);
	388	}
	389
	390	gjab_send(gjc, x);
	391	xmlnode_free(x);
	392
	393	return;
	394	}
	395
	396	static void gjab_recv(gjconn gjc)
	397	{
	398	static char buf[4096];
	399	int len;
	400
	401	if (!gjc \|\| gjc->state == JCONN_STATE_OFF)
	402	return;
	403
	404	if (gjc->ssl)
	405	len = ssl_read(gjc->ssl, buf, sizeof(buf) - 1);
	406	else
	407	len = read(gjc->fd, buf, sizeof(buf) - 1);
	408
	409	if (len > 0) {
	410	struct jabber_data *jd = GJ_GC(gjc)->proto_data;
	411	buf[len] = '\0';
	412	XML_Parse(gjc->parser, buf, len, 0);
	413	if (jd->die)
	414	signoff(GJ_GC(gjc));
[e8f8b18]	415	} else if (len == 0 \|\| (len < 0 && (!sockerr_again() \|\| gjc->ssl))) {
[b7d3cc34]	416	STATE_EVT(JCONN_STATE_OFF)
	417	}
	418	}
	419
	420	static void startElement(void userdata, const char name, const char **attribs)
	421	{
	422	xmlnode x;
	423	gjconn gjc = (gjconn) userdata;
	424
	425	if (gjc->current) {
	426	/* Append the node to the current one */
	427	x = xmlnode_insert_tag(gjc->current, name);
	428	xmlnode_put_expat_attribs(x, attribs);
	429
	430	gjc->current = x;
	431	} else {
	432	x = xmlnode_new_tag(name);
	433	xmlnode_put_expat_attribs(x, attribs);
	434	if (strcmp(name, "stream:stream") == 0) {
	435	/* special case: name == stream:stream */
	436	/* id attrib of stream is stored for digest auth */
	437	gjc->sid = g_strdup(xmlnode_get_attrib(x, "id"));
	438	/* STATE_EVT(JCONN_STATE_AUTH) */
	439	xmlnode_free(x);
	440	} else {
	441	gjc->current = x;
	442	}
	443	}
	444	}
	445
	446	static void endElement(void userdata, const char name)
	447	{
	448	gjconn gjc = (gjconn) userdata;
	449	xmlnode x;
	450	jpacket p;
	451
	452	if (gjc->current == NULL) {
	453	/* we got </stream:stream> */
	454	STATE_EVT(JCONN_STATE_OFF)
	455	return;
	456	}
	457
	458	x = xmlnode_get_parent(gjc->current);
	459
	460	if (!x) {
	461	/* it is time to fire the event */
	462	p = jpacket_new(gjc->current);
	463
	464	if (gjc->on_packet)
	465	(gjc->on_packet) (gjc, p);
	466	else
	467	xmlnode_free(gjc->current);
	468	}
	469
	470	gjc->current = x;
	471	}
	472
[ba9edaa]	473	static gboolean jabber_callback(gpointer data, gint source, b_input_condition condition)
[b7d3cc34]	474	{
	475	struct gaim_connection gc = (struct gaim_connection )data;
	476	struct jabber_data jd = (struct jabber_data )gc->proto_data;
	477
	478	gjab_recv(jd->gjc);
[ba9edaa]	479
	480	return TRUE;
[b7d3cc34]	481	}
	482
	483	static void charData(void userdata, const char s, int slen)
	484	{
	485	gjconn gjc = (gjconn) userdata;
	486
	487	if (gjc->current)
	488	xmlnode_insert_cdata(gjc->current, s, slen);
	489	}
	490
[ba9edaa]	491	static gboolean gjab_connected(gpointer data, gint source, b_input_condition cond)
[b7d3cc34]	492	{
	493	xmlnode x;
	494	char t, t2;
	495	struct gaim_connection *gc = data;
	496	struct jabber_data *jd;
	497	gjconn gjc;
	498
	499	if (!g_slist_find(get_connections(), gc)) {
	500	closesocket(source);
[ba9edaa]	501	return FALSE;
[b7d3cc34]	502	}
	503
	504	jd = gc->proto_data;
	505	gjc = jd->gjc;
	506
	507	if (gjc->fd != source)
	508	gjc->fd = source;
	509
	510	if (source == -1) {
	511	STATE_EVT(JCONN_STATE_OFF)
[ba9edaa]	512	return FALSE;
[b7d3cc34]	513	}
	514
	515	gjc->state = JCONN_STATE_CONNECTED;
	516	STATE_EVT(JCONN_STATE_CONNECTED)
	517
	518	/* start stream */
	519	x = jutil_header(NS_CLIENT, gjc->user->server);
	520	t = xmlnode2str(x);
	521	/* this is ugly, we can create the string here instead of jutil_header */
	522	/* what do you think about it? -madcat */
	523	t2 = strstr(t, "/>");
	524	*t2++ = '>';
	525	*t2 = '\0';
	526	gjab_send_raw(gjc, "<?xml version='1.0'?>");
	527	gjab_send_raw(gjc, t);
	528	xmlnode_free(x);
	529
	530	gjc->state = JCONN_STATE_ON;
	531	STATE_EVT(JCONN_STATE_ON);
	532
	533	gc = GJ_GC(gjc);
[ba9edaa]	534	gc->inpa = b_input_add(gjc->fd, GAIM_INPUT_READ, jabber_callback, gc);
	535
	536	return FALSE;
[b7d3cc34]	537	}
	538
[ba9edaa]	539	static gboolean gjab_connected_ssl(gpointer data, void *source, b_input_condition cond)
[b7d3cc34]	540	{
	541	struct gaim_connection *gc = data;
	542	struct jabber_data *jd;
	543	gjconn gjc;
	544
	545	jd = gc->proto_data;
	546	gjc = jd->gjc;
	547
	548	if (source == NULL) {
	549	STATE_EVT(JCONN_STATE_OFF)
[ba9edaa]	550	return FALSE;
[b7d3cc34]	551	}
	552
	553	if (!g_slist_find(get_connections(), gc)) {
	554	ssl_disconnect(source);
[ba9edaa]	555	return FALSE;
[b7d3cc34]	556	}
	557
[ba9edaa]	558	return gjab_connected(data, gjc->fd, cond);
[b7d3cc34]	559	}
	560
	561	static void gjab_start(gjconn gjc)
	562	{
[0a3c243]	563	account_t *acc;
[b7d3cc34]	564	int port = -1, ssl = 0;
[96863f6]	565	char *server = NULL;
[b7d3cc34]	566
	567	if (!gjc \|\| gjc->state != JCONN_STATE_OFF)
	568	return;
	569
[0a3c243]	570	acc = GJ_GC(gjc)->acc;
[96863f6]	571	server = acc->server;
	572	port = set_getint(&acc->set, "port");
	573	ssl = set_getbool(&acc->set, "ssl");
[b7d3cc34]	574
[96863f6]	575	if (port < JABBER_PORT_MIN \|\| port > JABBER_PORT_MAX) {
[027d2eb]	576	serv_got_crap(GJ_GC(gjc), "For security reasons, the Jabber port number must be in the %d-%d range.", JABBER_PORT_MIN, JABBER_PORT_MAX);
[626b446]	577	STATE_EVT(JCONN_STATE_OFF)
	578	return;
	579	}
[b7d3cc34]	580
	581	if (server == NULL)
	582	server = g_strdup(gjc->user->server);
	583
	584	gjc->parser = XML_ParserCreate(NULL);
	585	XML_SetUserData(gjc->parser, (void *)gjc);
	586	XML_SetElementHandler(gjc->parser, startElement, endElement);
	587	XML_SetCharacterDataHandler(gjc->parser, charData);
	588
	589	if (ssl) {
	590	if ((gjc->ssl = ssl_connect(server, port, gjab_connected_ssl, GJ_GC(gjc))))
	591	gjc->fd = ssl_getfd(gjc->ssl);
	592	else
	593	gjc->fd = -1;
	594	} else {
	595	gjc->fd = proxy_connect(server, port, gjab_connected, GJ_GC(gjc));
	596	}
	597
[0a3c243]	598	if (!acc->gc \|\| (gjc->fd < 0)) {
[b7d3cc34]	599	STATE_EVT(JCONN_STATE_OFF)
	600	return;
	601	}
	602	}
	603
	604	/*
	605	* Find existing/active Jabber chat
	606	*/
	607	static struct jabber_chat find_existing_chat(struct gaim_connection gc, jid chat)
	608	{
	609	GSList jcs = ((struct jabber_data )gc->proto_data)->chats;
	610	struct jabber_chat *jc = NULL;
	611
	612	while (jcs) {
	613	jc = jcs->data;
	614	if (jc->state == JCS_ACTIVE && !jid_cmpx(chat, jc->Jid, JID_USER \| JID_SERVER))
	615	break;
	616	jc = NULL;
	617	jcs = jcs->next;
	618	}
	619
	620	return jc;
	621	}
	622
	623	/*
	624	* Find pending chat
	625	*/
	626	static struct jabber_chat find_pending_chat(struct gaim_connection gc, jid chat)
	627	{
	628	GSList jcs = ((struct jabber_data )gc->proto_data)->chats;
	629	struct jabber_chat *jc = NULL;
	630
	631	while (jcs) {
	632	jc = jcs->data;
	633	if (jc->state == JCS_PENDING && !jid_cmpx(chat, jc->Jid, JID_USER \| JID_SERVER))
	634	break;
	635	jc = NULL;
	636	jcs = jcs->next;
	637	}
	638
	639	return jc;
	640	}
	641
	642	static gboolean find_chat_buddy(struct conversation b, char name)
	643	{
	644	GList *m = b->in_room;
	645
	646	while (m) {
	647	if (!strcmp(m->data, name))
	648	return TRUE;
	649	m = m->next;
	650	}
	651
	652	return FALSE;
	653	}
	654
	655	/*
	656	* Remove a buddy from the (gaim) buddylist (if he's on it)
	657	*/
	658	static void jabber_remove_gaim_buddy(struct gaim_connection gc, char buddyname)
	659	{
	660	struct buddy *b;
	661
	662	if ((b = find_buddy(gc, buddyname)) != NULL) {
	663	/* struct group *group;
	664
	665	group = find_group_by_buddy(gc, buddyname);
	666	remove_buddy(gc, group, b); */
	667	jabber_remove_buddy(gc, b->name, JABBER_GROUP);
	668	}
	669	}
	670
	671	/*
	672	* keep track of away msg same as yahoo plugin
	673	*/
	674	static void jabber_track_away(gjconn gjc, jpacket p, char name, char type)
	675	{
	676	struct jabber_data *jd = GJ_GC(gjc)->proto_data;
	677	gpointer val = g_hash_table_lookup(jd->hash, name);
	678	char *show;
	679	char *vshow = NULL;
	680	char *status = NULL;
	681	char *msg = NULL;
	682
	683	if (type && (g_strcasecmp(type, "unavailable") == 0)) {
	684	vshow = _("Unavailable");
	685	} else {
	686	if((show = xmlnode_get_tag_data(p->x, "show")) != NULL) {
	687	if (!g_strcasecmp(show, "away")) {
	688	vshow = _("Away");
	689	} else if (!g_strcasecmp(show, "chat")) {
	690	vshow = _("Online");
	691	} else if (!g_strcasecmp(show, "xa")) {
	692	vshow = _("Extended Away");
	693	} else if (!g_strcasecmp(show, "dnd")) {
	694	vshow = _("Do Not Disturb");
	695	}
	696	}
	697	}
	698
	699	status = xmlnode_get_tag_data(p->x, "status");
	700
	701	if(vshow != NULL \|\| status != NULL ) {
	702	/* kinda hokey, but it works :-) */
	703	msg = g_strdup_printf("%s%s%s",
	704	(vshow == NULL? "" : vshow),
	705	(vshow == NULL \|\| status == NULL? "" : ": "),
	706	(status == NULL? "" : status));
	707	} else {
	708	msg = g_strdup(_("Online"));
	709	}
	710
	711	if (val) {
	712	g_free(val);
	713	g_hash_table_insert(jd->hash, name, msg);
	714	} else {
	715	g_hash_table_insert(jd->hash, g_strdup(name), msg);
	716	}
	717	}
	718
	719	static time_t iso8601_to_time(char *timestamp)
	720	{
	721	struct tm t;
	722	time_t retval = 0;
	723
	724	if(sscanf(timestamp,"%04d%02d%02dT%02d:%02d:%02d",
	725	&t.tm_year, &t.tm_mon, &t.tm_mday, &t.tm_hour, &t.tm_min, &t.tm_sec))
	726	{
	727	t.tm_year -= 1900;
	728	t.tm_mon -= 1;
	729	t.tm_isdst = 0;
	730	retval = mktime(&t);
	731	# ifdef HAVE_TM_GMTOFF
	732	retval += t.tm_gmtoff;
	733	# else
	734	# ifdef HAVE_TIMEZONE
	735	tzset(); /* making sure */
	736	retval -= timezone;
	737	# endif
	738	# endif
	739	}
	740
	741	return retval;
	742	}
	743
	744	static void jabber_handlemessage(gjconn gjc, jpacket p)
	745	{
[43e3368]	746	xmlnode y, xmlns, z;
[b7d3cc34]	747	time_t time_sent = time(NULL);
	748
[43e3368]	749	char from = NULL, msg = NULL, *type = NULL;
[b7d3cc34]	750	char m[BUF_LONG * 2];
	751
	752	type = xmlnode_get_attrib(p->x, "type");
	753
	754	z = xmlnode_get_firstchild(p->x);
	755
	756	while(z)
	757	{
	758	if(NSCHECK(z,NS_DELAY))
	759	{
	760	char *timestamp = xmlnode_get_attrib(z,"stamp");
	761	time_sent = iso8601_to_time(timestamp);
	762	}
	763	z = xmlnode_get_nextsibling(z);
	764	}
	765
	766	if (!type \|\| !g_strcasecmp(type, "normal") \|\| !g_strcasecmp(type, "chat")) {
	767
	768	/* XXX namespaces could be handled better. (mid) */
	769	if ((xmlns = xmlnode_get_tag(p->x, "x")))
	770	type = xmlnode_get_attrib(xmlns, "xmlns");
	771
	772	from = jid_full(p->from);
	773	/*
	774	if ((y = xmlnode_get_tag(p->x, "html"))) {
	775	msg = xmlnode_get_data(y);
	776	} else
	777	*/
	778	if ((y = xmlnode_get_tag(p->x, "body"))) {
	779	msg = xmlnode_get_data(y);
	780	}
	781
	782
	783	if (!from)
	784	return;
	785
	786	if (type && !g_strcasecmp(type, "jabber:x:conference")) {
[43e3368]	787	/* do nothing */
[b7d3cc34]	788	} else if (msg) { /* whisper */
	789	struct jabber_chat *jc;
	790	g_snprintf(m, sizeof(m), "%s", msg);
	791	if (((jc = find_existing_chat(GJ_GC(gjc), p->from)) != NULL) && jc->b)
	792	serv_got_chat_in(GJ_GC(gjc), jc->b->id, p->from->resource, 1, m, time_sent);
	793	else {
	794	int flags = 0;
[43e3368]	795
	796	if(p->from->user) {
	797	from = g_strdup_printf("%s@%s", p->from->user, p->from->server);
	798	} else {
	799	/* server message? */
	800	from = g_strdup(p->from->server);
	801	}
	802	serv_got_im(GJ_GC(gjc), from, m, flags, time_sent, -1);
	803	g_free(from);
[b7d3cc34]	804	}
	805	}
	806
	807	} else if (!g_strcasecmp(type, "error")) {
	808	if ((y = xmlnode_get_tag(p->x, "error"))) {
	809	type = xmlnode_get_attrib(y, "code");
	810	msg = xmlnode_get_data(y);
	811	}
	812
	813	if (msg) {
	814	from = g_strdup_printf("Error %s", type ? type : "");
	815	do_error_dialog(GJ_GC(gjc), msg, from);
	816	g_free(from);
	817	}
[43e3368]	818	} else if (!g_strcasecmp(type, "headline")) {
	819	char subject, body, *url;
[b7d3cc34]	820
[43e3368]	821	y = xmlnode_get_tag( p->x, "body" );
	822	body = y ? g_strdup( xmlnode_get_data( y ) ) : NULL;
	823
	824	y = xmlnode_get_tag( p->x, "subject" );
	825	subject = y ? g_strdup( xmlnode_get_data( y ) ) : NULL;
	826
	827	url = NULL;
	828	z = xmlnode_get_firstchild(p->x);
	829	while( z )
	830	{
	831	char *xtype = xmlnode_get_attrib( z, "xmlns" );
	832
	833	if( xtype && g_strcasecmp( xtype, "jabber:x:oob" ) == 0 &&
	834	( y = xmlnode_get_tag( z, "url" ) ) )
	835	{
	836	url = g_strdup( xmlnode_get_data( y ) );
	837	break;
[b7d3cc34]	838	}
[43e3368]	839
	840	z = xmlnode_get_nextsibling( z );
[b7d3cc34]	841	}
[43e3368]	842
	843	g_snprintf( m, BUF_LONG, "Subject: %s\nURL: %s\nMessage:\n%s", subject ? subject : "(none)",
	844	url ? url : "(none)", body ? body : "(none)" );
[b7d3cc34]	845
[43e3368]	846	if( p->from->user )
	847	from = g_strdup_printf( "%s@%s", p->from->user, p->from->server );
	848	else
	849	from = g_strdup( p->from->server );
	850
	851	serv_got_im( GJ_GC(gjc), from, m, 0, time_sent, -1 );
	852
	853	g_free( from );
	854	g_free( subject );
	855	g_free( body );
	856	g_free( url );
[b7d3cc34]	857	}
	858	}
	859
	860	static void jabber_handlepresence(gjconn gjc, jpacket p)
	861	{
	862	char to, from, *type;
	863	struct buddy *b = NULL;
	864	jid who;
	865	char *buddy;
	866	xmlnode y;
	867	char *show;
	868	int state = 0;
	869	GSList *resources;
	870	char *res;
	871	struct conversation *cnv = NULL;
	872	struct jabber_chat *jc = NULL;
	873
	874	to = xmlnode_get_attrib(p->x, "to");
	875	from = xmlnode_get_attrib(p->x, "from");
	876	type = xmlnode_get_attrib(p->x, "type");
	877
	878	if (type && g_strcasecmp(type, "error") == 0) {
	879	return;
	880	}
	881	else if ((y = xmlnode_get_tag(p->x, "show"))) {
	882	show = xmlnode_get_data(y);
	883	if (!show) {
	884	state = 0;
	885	} else if (!g_strcasecmp(show, "away")) {
	886	state = UC_AWAY;
	887	} else if (!g_strcasecmp(show, "chat")) {
	888	state = UC_CHAT;
	889	} else if (!g_strcasecmp(show, "xa")) {
	890	state = UC_XA;
	891	} else if (!g_strcasecmp(show, "dnd")) {
	892	state = UC_DND;
	893	}
	894	} else {
	895	state = 0;
	896	}
	897
	898	who = jid_new(gjc->p, from);
	899	if (who->user == NULL) {
	900	/* FIXME: transport */
	901	return;
	902	}
	903
	904	buddy = g_strdup_printf("%s@%s", who->user, who->server);
	905
	906	/* um. we're going to check if it's a chat. if it isn't, and there are pending
	907	* chats, create the chat. if there aren't pending chats and we don't have the
	908	* buddy on our list, simply bail out. */
	909	if ((cnv = NULL) == NULL) {
	910	static int i = 0x70;
	911	if ((jc = find_pending_chat(GJ_GC(gjc), who)) != NULL) {
	912	jc->b = cnv = serv_got_joined_chat(GJ_GC(gjc), i++, who->user);
	913	jc->id = jc->b->id;
	914	jc->state = JCS_ACTIVE;
	915	} else if ((b = find_buddy(GJ_GC(gjc), buddy)) == NULL) {
	916	g_free(buddy);
	917	return;
	918	}
	919	}
	920
	921	if (!cnv) {
	922	resources = b->proto_data;
	923	res = who->resource;
	924	if (res)
	925	while (resources) {
	926	if (!strcmp(res, resources->data))
	927	break;
	928	resources = resources->next;
	929	}
	930
	931	/* keep track of away msg same as yahoo plugin */
	932	jabber_track_away(gjc, p, normalize(b->name), type);
	933
	934	if (type && (g_strcasecmp(type, "unavailable") == 0)) {
	935	if (resources) {
	936	g_free(resources->data);
	937	b->proto_data = g_slist_remove(b->proto_data, resources->data);
	938	}
	939	if (!b->proto_data) {
	940	serv_got_update(GJ_GC(gjc), buddy, 0, 0, 0, 0, 0, 0);
	941	}
	942	} else {
	943	if (!resources) {
	944	b->proto_data = g_slist_append(b->proto_data, g_strdup(res));
	945	}
	946
	947	serv_got_update(GJ_GC(gjc), buddy, 1, 0, b->signon, b->idle, state, 0);
	948
	949	}
	950	} else {
	951	if (who->resource) {
	952	char *buf;
	953
	954	buf = g_strdup_printf("%s@%s/%s", who->user, who->server, who->resource);
	955	jabber_track_away(gjc, p, buf, type);
	956	g_free(buf);
	957
	958	if (type && !g_strcasecmp(type, "unavailable")) {
	959	struct jabber_data *jd;
	960	if (!jc && !(jc = find_existing_chat(GJ_GC(gjc), who))) {
	961	g_free(buddy);
	962	return;
	963	}
	964	jd = jc->gc->proto_data;
	965	/* if it's not ourselves...*/
	966	if (strcmp(who->resource, jc->Jid->resource) && jc->b) {
	967	remove_chat_buddy(jc->b, who->resource, NULL);
	968	g_free(buddy);
	969	return;
	970	}
	971
	972	jc->state = JCS_CLOSED;
	973	serv_got_chat_left(GJ_GC(gjc), jc->id);
	974	/*
	975	* TBD: put back some day?
	976	jd->chats = g_slist_remove(jd->chats, jc);
	977	g_free(jc);
	978	*/
	979	} else {
	980	if ((!jc && !(jc = find_existing_chat(GJ_GC(gjc), who))) \|\| !jc->b) {
	981	g_free(buddy);
	982	return;
	983	}
	984	if (!find_chat_buddy(jc->b, who->resource)) {
	985	add_chat_buddy(jc->b, who->resource);
	986	}
	987	}
	988	}
	989	}
	990
	991	g_free(buddy);
	992
	993	return;
	994	}
	995
	996	/*
	997	* Used only by Jabber accept/deny add stuff just below
	998	*/
	999	struct jabber_add_permit {
	1000	gjconn gjc;
	1001	gchar *user;
	1002	};
	1003
	1004	/*
	1005	* Common part for Jabber accept/deny adds
	1006	*
	1007	* "type" says whether we'll permit/deny the subscribe request
	1008	*/
	1009	static void jabber_accept_deny_add(struct jabber_add_permit jap, const char type)
	1010	{
	1011	xmlnode g = xmlnode_new_tag("presence");
	1012
	1013	xmlnode_put_attrib(g, "to", jap->user);
	1014	xmlnode_put_attrib(g, "type", type);
	1015	gjab_send(jap->gjc, g);
	1016
	1017	xmlnode_free(g);
	1018	}
	1019
	1020	/*
	1021	* Callback from "accept" in do_ask_dialog() invoked by jabber_handles10n()
	1022	*/
	1023	static void jabber_accept_add(gpointer w, struct jabber_add_permit *jap)
	1024	{
	1025	jabber_accept_deny_add(jap, "subscribed");
	1026	/*
	1027	* If we don't already have the buddy on our buddylist,
	1028	* ask if we want him or her added.
	1029	*/
	1030	if(find_buddy(GJ_GC(jap->gjc), jap->user) == NULL) {
[e6d6047]	1031	show_got_added(GJ_GC(jap->gjc), jap->user, NULL);
[b7d3cc34]	1032	}
	1033	g_free(jap->user);
	1034	g_free(jap);
	1035	}
	1036
	1037	/*
	1038	* Callback from "deny/cancel" in do_ask_dialog() invoked by jabber_handles10n()
	1039	*/
	1040	static void jabber_deny_add(gpointer w, struct jabber_add_permit *jap)
	1041	{
	1042	jabber_accept_deny_add(jap, "unsubscribed");
	1043	g_free(jap->user);
	1044	g_free(jap);
	1045	}
	1046
	1047	/*
	1048	* Handle subscription requests
	1049	*/
	1050	static void jabber_handles10n(gjconn gjc, jpacket p)
	1051	{
	1052	xmlnode g;
	1053	char *Jid = xmlnode_get_attrib(p->x, "from");
	1054	char *type = xmlnode_get_attrib(p->x, "type");
	1055
	1056	g = xmlnode_new_tag("presence");
	1057	xmlnode_put_attrib(g, "to", Jid);
	1058
	1059	if (!strcmp(type, "subscribe")) {
	1060	/*
	1061	* A "subscribe to us" request was received - put up the approval dialog
	1062	*/
	1063	struct jabber_add_permit *jap = g_new0(struct jabber_add_permit, 1);
[5c09a59]	1064	gchar *msg = g_strdup_printf(_("The user %s wants to add you to his/her buddy list."),
[b7d3cc34]	1065	Jid);
	1066
	1067	jap->gjc = gjc;
	1068	jap->user = g_strdup(Jid);
	1069	do_ask_dialog(GJ_GC(gjc), msg, jap, jabber_accept_add, jabber_deny_add);
	1070
	1071	g_free(msg);
	1072	xmlnode_free(g); /* Never needed it here anyway */
	1073	return;
	1074
	1075	} else if (!strcmp(type, "unsubscribe")) {
	1076	/*
	1077	* An "unsubscribe to us" was received - simply "approve" it
	1078	*/
	1079	xmlnode_put_attrib(g, "type", "unsubscribed");
	1080	} else {
	1081	/*
	1082	* Did we attempt to subscribe to somebody and they do not exist?
	1083	*/
	1084	if (!strcmp(type, "unsubscribed")) {
	1085	xmlnode y;
	1086	char *status;
	1087	if((y = xmlnode_get_tag(p->x, "status")) && (status = xmlnode_get_data(y)) &&
	1088	!strcmp(status, "Not Found")) {
	1089	char *msg = g_strdup_printf("%s: \"%s\"", _("No such user"),
	1090	xmlnode_get_attrib(p->x, "from"));
	1091	do_error_dialog(GJ_GC(gjc), msg, _("Jabber Error"));
	1092	g_free(msg);
	1093	}
	1094	}
	1095
	1096	xmlnode_free(g);
	1097	return;
	1098	}
	1099
	1100	gjab_send(gjc, g);
	1101	xmlnode_free(g);
	1102	}
	1103
	1104	/*
	1105	* Pending subscription to a buddy?
	1106	*/
	1107	#define BUD_SUB_TO_PEND(sub, ask) ((!g_strcasecmp((sub), "none") \|\| !g_strcasecmp((sub), "from")) && \
	1108	(ask) != NULL && !g_strcasecmp((ask), "subscribe"))
	1109
	1110	/*
	1111	* Subscribed to a buddy?
	1112	*/
	1113	#define BUD_SUBD_TO(sub, ask) ((!g_strcasecmp((sub), "to") \|\| !g_strcasecmp((sub), "both")) && \
	1114	((ask) == NULL \|\| !g_strcasecmp((ask), "subscribe")))
	1115
	1116	/*
	1117	* Pending unsubscription to a buddy?
	1118	*/
	1119	#define BUD_USUB_TO_PEND(sub, ask) ((!g_strcasecmp((sub), "to") \|\| !g_strcasecmp((sub), "both")) && \
	1120	(ask) != NULL && !g_strcasecmp((ask), "unsubscribe"))
	1121
	1122	/*
	1123	* Unsubscribed to a buddy?
	1124	*/
	1125	#define BUD_USUBD_TO(sub, ask) ((!g_strcasecmp((sub), "none") \|\| !g_strcasecmp((sub), "from")) && \
	1126	((ask) == NULL \|\| !g_strcasecmp((ask), "unsubscribe")))
	1127
	1128	/*
	1129	* If a buddy is added or removed from the roster on another resource
	1130	* jabber_handlebuddy is called
	1131	*
	1132	* Called with roster item node.
	1133	*/
	1134	static void jabber_handlebuddy(gjconn gjc, xmlnode x)
	1135	{
	1136	xmlnode g;
	1137	char Jid, name, sub, ask;
	1138	jid who;
	1139	struct buddy *b = NULL;
	1140	char buddyname, groupname = NULL;
	1141
	1142	Jid = xmlnode_get_attrib(x, "jid");
	1143	name = xmlnode_get_attrib(x, "name");
	1144	sub = xmlnode_get_attrib(x, "subscription");
	1145	ask = xmlnode_get_attrib(x, "ask");
	1146	who = jid_new(gjc->p, Jid);
	1147
	1148	/* JFIXME: jabber_handleroster() had a "FIXME: transport" at this
	1149	* equivilent point. So...
	1150	*
	1151	* We haven't allocated any memory or done anything interesting to
	1152	* this point, so we'll violate Good Coding Structure here by
	1153	* simply bailing out.
	1154	*/
	1155	if (!who \|\| !who->user) {
	1156	return;
	1157	}
	1158
	1159	buddyname = g_strdup_printf("%s@%s", who->user, who->server);
	1160
	1161	if((g = xmlnode_get_tag(x, "group")) != NULL) {
	1162	groupname = xmlnode_get_data(g);
	1163	}
	1164
	1165	/*
	1166	* Add or remove a buddy? Change buddy's alias or group?
	1167	*/
	1168	if (BUD_SUB_TO_PEND(sub, ask) \|\| BUD_SUBD_TO(sub, ask)) {
	1169	if ((b = find_buddy(GJ_GC(gjc), buddyname)) == NULL) {
	1170	add_buddy(GJ_GC(gjc), groupname ? groupname : _("Buddies"), buddyname,
	1171	name ? name : buddyname);
	1172	} else {
	1173	/* struct group c_grp = find_group_by_buddy(GJ_GC(gjc), buddyname); /
	1174
	1175	/*
	1176	* If the buddy's in a new group or his/her alias is changed...
	1177	*/
	1178	if(groupname) {
	1179	int present = b->present; /* save presence state */
	1180	int uc = b->uc; /* and away state (?) */
	1181	int idle = b->idle;
	1182	int signon = b->signon;
	1183
	1184	/*
	1185	* seems rude, but it seems to be the only way...
	1186	*/
	1187	/* remove_buddy(GJ_GC(gjc), c_grp, b); */
	1188	jabber_remove_buddy(GJ_GC(gjc), b->name, JABBER_GROUP);
	1189
	1190	add_buddy(GJ_GC(gjc), groupname, buddyname,
	1191	name ? name : buddyname);
	1192	if(present) {
	1193	serv_got_update(GJ_GC(gjc), buddyname, 1, 0, signon, idle, uc, 0);
	1194	}
	1195	} else if(name != NULL && strcmp(b->show, name)) {
	1196	strncpy(b->show, name, BUDDY_ALIAS_MAXLEN);
	1197	b->show[BUDDY_ALIAS_MAXLEN - 1] = '\0'; /* cheap safety feature */
	1198	serv_buddy_rename(GJ_GC(gjc), buddyname, b->show);
	1199	}
	1200	}
	1201	} else if (BUD_USUB_TO_PEND(sub, ask) \|\| BUD_USUBD_TO(sub, ask) \|\| !g_strcasecmp(sub, "remove")) {
	1202	jabber_remove_gaim_buddy(GJ_GC(gjc), buddyname);
	1203	}
	1204	g_free(buddyname);
	1205
	1206	}
	1207
	1208	static void jabber_handleroster(gjconn gjc, xmlnode querynode)
	1209	{
	1210	xmlnode x;
	1211
	1212	x = xmlnode_get_firstchild(querynode);
	1213	while (x) {
	1214	jabber_handlebuddy(gjc, x);
	1215	x = xmlnode_get_nextsibling(x);
	1216	}
	1217
[61dddd0]	1218	account_online(GJ_GC(gjc));
[b7d3cc34]	1219	}
	1220
	1221	static void jabber_handleauthresp(gjconn gjc, jpacket p)
	1222	{
	1223	if (jpacket_subtype(p) == JPACKET__RESULT) {
	1224	if (xmlnode_has_children(p->x)) {
	1225	xmlnode query = xmlnode_get_tag(p->x, "query");
	1226	set_login_progress(GJ_GC(gjc), 4, _("Authenticating"));
	1227	if (!xmlnode_get_tag(query, "digest")) {
	1228	g_free(gjc->sid);
	1229	gjc->sid = NULL;
	1230	}
	1231	gjab_auth(gjc);
	1232	} else {
[1fa6a23]	1233	gjab_reqroster(gjc);
	1234
[b7d3cc34]	1235	((struct jabber_data *)GJ_GC(gjc)->proto_data)->did_import = TRUE;
	1236	}
	1237	} else {
	1238	xmlnode xerr;
	1239	char *errmsg = NULL;
	1240	int errcode = 0;
	1241	struct jabber_data *jd = GJ_GC(gjc)->proto_data;
	1242
	1243	xerr = xmlnode_get_tag(p->x, "error");
	1244	if (xerr) {
	1245	char msg[BUF_LONG];
	1246	errmsg = xmlnode_get_data(xerr);
	1247	if (xmlnode_get_attrib(xerr, "code")) {
	1248	errcode = atoi(xmlnode_get_attrib(xerr, "code"));
	1249	g_snprintf(msg, sizeof(msg), "Error %d: %s", errcode, errmsg ? errmsg : "Unknown error");
	1250	} else
	1251	g_snprintf(msg, sizeof(msg), "%s", errmsg);
	1252	hide_login_progress(GJ_GC(gjc), msg);
	1253	} else {
	1254	hide_login_progress(GJ_GC(gjc), _("Unknown login error"));
	1255	}
	1256
	1257	jd->die = TRUE;
	1258	}
	1259	}
	1260
	1261	static void jabber_handleversion(gjconn gjc, xmlnode iqnode) {
	1262	xmlnode querynode, x;
	1263	char id, from;
	1264	char os[1024];
	1265	#ifndef _WIN32
	1266	struct utsname osinfo;
	1267
	1268	uname(&osinfo);
	1269	g_snprintf(os, sizeof os, "%s %s %s", osinfo.sysname, osinfo.release, osinfo.machine);
	1270	#else
	1271	g_snprintf(os, sizeof os, "Windows %d %d", _winmajor, _winminor);
	1272	#endif
	1273
	1274
	1275	id = xmlnode_get_attrib(iqnode, "id");
	1276	from = xmlnode_get_attrib(iqnode, "from");
	1277
	1278	x = jutil_iqnew(JPACKET__RESULT, NS_VERSION);
	1279
	1280	xmlnode_put_attrib(x, "to", from);
	1281	xmlnode_put_attrib(x, "id", id);
	1282	querynode = xmlnode_get_tag(x, "query");
	1283	xmlnode_insert_cdata(xmlnode_insert_tag(querynode, "name"), PACKAGE, -1);
	1284	xmlnode_insert_cdata(xmlnode_insert_tag(querynode, "version"), BITLBEE_VERSION, -1);
	1285	xmlnode_insert_cdata(xmlnode_insert_tag(querynode, "os"), os, -1);
	1286
	1287	gjab_send(gjc, x);
	1288
	1289	xmlnode_free(x);
	1290	}
	1291
	1292	static void jabber_handletime(gjconn gjc, xmlnode iqnode) {
	1293	xmlnode querynode, x;
	1294	char id, from;
	1295	time_t now_t;
	1296	struct tm *now;
	1297	char buf[1024];
	1298
	1299	time(&now_t);
	1300	now = localtime(&now_t);
	1301
	1302	id = xmlnode_get_attrib(iqnode, "id");
	1303	from = xmlnode_get_attrib(iqnode, "from");
	1304
	1305	x = jutil_iqnew(JPACKET__RESULT, NS_TIME);
	1306
	1307	xmlnode_put_attrib(x, "to", from);
	1308	xmlnode_put_attrib(x, "id", id);
	1309	querynode = xmlnode_get_tag(x, "query");
	1310
	1311	strftime(buf, 1024, "%Y%m%dT%T", now);
	1312	xmlnode_insert_cdata(xmlnode_insert_tag(querynode, "utc"), buf, -1);
	1313	strftime(buf, 1024, "%Z", now);
	1314	xmlnode_insert_cdata(xmlnode_insert_tag(querynode, "tz"), buf, -1);
	1315	strftime(buf, 1024, "%d %b %Y %T", now);
	1316	xmlnode_insert_cdata(xmlnode_insert_tag(querynode, "display"), buf, -1);
	1317
	1318	gjab_send(gjc, x);
	1319
	1320	xmlnode_free(x);
	1321	}
	1322
	1323	static void jabber_handlelast(gjconn gjc, xmlnode iqnode) {
	1324	xmlnode x, querytag;
	1325	char id, from;
	1326	struct jabber_data *jd = GJ_GC(gjc)->proto_data;
	1327	char idle_time[32];
	1328
	1329	id = xmlnode_get_attrib(iqnode, "id");
	1330	from = xmlnode_get_attrib(iqnode, "from");
	1331
	1332	x = jutil_iqnew(JPACKET__RESULT, "jabber:iq:last");
	1333
	1334	xmlnode_put_attrib(x, "to", from);
	1335	xmlnode_put_attrib(x, "id", id);
	1336	querytag = xmlnode_get_tag(x, "query");
	1337	g_snprintf(idle_time, sizeof idle_time, "%ld", jd->idle ? time(NULL) - jd->idle : 0);
	1338	xmlnode_put_attrib(querytag, "seconds", idle_time);
	1339
	1340	gjab_send(gjc, x);
	1341	xmlnode_free(x);
	1342	}
	1343
	1344	/*
	1345	* delete == TRUE: delete found entry
	1346	*
	1347	* returns pointer to (local) copy of value if found, NULL otherwise
	1348	*
	1349	* Note: non-reentrant! Local static storage re-used on subsequent calls.
	1350	* If you're going to need to keep the returned value, make a copy!
	1351	*/
	1352	static gchar jabber_track_queries(GHashTable queries, gchar *key, gboolean delete)
	1353	{
	1354	gpointer my_key, my_val;
	1355	static gchar *ret_val = NULL;
	1356
	1357	if(ret_val != NULL) {
	1358	g_free(ret_val);
	1359	ret_val = NULL;
	1360	}
	1361
	1362	/* self-protection */
	1363	if(queries != NULL && key != NULL) {
	1364	if(g_hash_table_lookup_extended(queries, key, &my_key, &my_val)) {
	1365	ret_val = g_strdup((gchar *) my_val);
	1366	if(delete) {
	1367	g_hash_table_remove(queries, key);
	1368	g_free(my_key);
	1369	g_free(my_val);
	1370	}
	1371	}
	1372	}
	1373
	1374	return(ret_val);
	1375	}
	1376
	1377	static void jabber_handlepacket(gjconn gjc, jpacket p)
	1378	{
	1379	char *id;
	1380	switch (p->type) {
	1381	case JPACKET_MESSAGE:
	1382	jabber_handlemessage(gjc, p);
	1383	break;
	1384	case JPACKET_PRESENCE:
	1385	jabber_handlepresence(gjc, p);
	1386	break;
	1387	case JPACKET_IQ:
	1388	id = xmlnode_get_attrib(p->x, "id");
	1389	if (id != NULL && !strcmp(id, IQID_AUTH)) {
	1390	jabber_handleauthresp(gjc, p);
	1391	break;
	1392	}
	1393
	1394	if (jpacket_subtype(p) == JPACKET__SET) {
	1395	xmlnode querynode;
	1396	querynode = xmlnode_get_tag(p->x, "query");
	1397	if (NSCHECK(querynode, "jabber:iq:roster")) {
	1398	jabber_handlebuddy(gjc, xmlnode_get_firstchild(querynode));
	1399	}
	1400	} else if (jpacket_subtype(p) == JPACKET__GET) {
	1401	xmlnode querynode;
	1402	querynode = xmlnode_get_tag(p->x, "query");
	1403	if (NSCHECK(querynode, NS_VERSION)) {
	1404	jabber_handleversion(gjc, p->x);
	1405	} else if (NSCHECK(querynode, NS_TIME)) {
	1406	jabber_handletime(gjc, p->x);
	1407	} else if (NSCHECK(querynode, "jabber:iq:last")) {
	1408	jabber_handlelast(gjc, p->x);
	1409	}
	1410	} else if (jpacket_subtype(p) == JPACKET__RESULT) {
	1411	xmlnode querynode, vcard;
	1412	/* char xmlns; /
	1413	char *from;
	1414
	1415	/*
	1416	* TBD: ISTM maybe this part could use a serious re-work?
	1417	*/
	1418	from = xmlnode_get_attrib(p->x, "from");
	1419	querynode = xmlnode_get_tag(p->x, "query");
	1420	vcard = xmlnode_get_tag(p->x, "vCard");
	1421	if (!vcard)
	1422	vcard = xmlnode_get_tag(p->x, "VCARD");
	1423
	1424	if (NSCHECK(querynode, NS_ROSTER)) {
	1425	jabber_handleroster(gjc, querynode);
	1426	} else if (NSCHECK(querynode, NS_VCARD)) {
	1427	jabber_track_queries(gjc->queries, id, TRUE); /* delete query track */
	1428	jabber_handlevcard(gjc, querynode, from);
	1429	} else if (vcard) {
	1430	jabber_track_queries(gjc->queries, id, TRUE); /* delete query track */
	1431	jabber_handlevcard(gjc, vcard, from);
	1432	} else {
	1433	char *val;
	1434
	1435	/* handle "null" query results */
	1436	if((val = jabber_track_queries(gjc->queries, id, TRUE)) != NULL) {
	1437	if (!g_strncasecmp(val, "vcard", 5)) {
	1438	jabber_handlevcard(gjc, NULL, from);
	1439	}
	1440
	1441	/* No-op */
	1442	}
	1443	}
	1444
	1445	} else if (jpacket_subtype(p) == JPACKET__ERROR) {
	1446	xmlnode xerr;
	1447	char from, errmsg = NULL;
	1448	int errcode = 0;
	1449
	1450	from = xmlnode_get_attrib(p->x, "from");
	1451	xerr = xmlnode_get_tag(p->x, "error");
	1452	if (xerr) {
	1453	errmsg = xmlnode_get_data(xerr);
	1454	if (xmlnode_get_attrib(xerr, "code"))
	1455	errcode = atoi(xmlnode_get_attrib(xerr, "code"));
	1456	}
	1457
	1458	from = g_strdup_printf("Error %d (%s)", errcode, from);
	1459	do_error_dialog(GJ_GC(gjc), errmsg, from);
	1460	g_free(from);
	1461
	1462	}
	1463
	1464	break;
	1465	case JPACKET_S10N:
	1466	jabber_handles10n(gjc, p);
	1467	break;
	1468	}
	1469
	1470	xmlnode_free(p->x);
	1471
	1472	return;
	1473	}
	1474
	1475	static void jabber_handlestate(gjconn gjc, int state)
	1476	{
	1477	switch (state) {
	1478	case JCONN_STATE_OFF:
	1479	if(gjc->was_connected) {
	1480	hide_login_progress_error(GJ_GC(gjc), _("Connection lost"));
	1481	} else {
	1482	hide_login_progress(GJ_GC(gjc), _("Unable to connect"));
	1483	}
	1484	signoff(GJ_GC(gjc));
	1485	break;
	1486	case JCONN_STATE_CONNECTED:
	1487	gjc->was_connected = 1;
	1488	set_login_progress(GJ_GC(gjc), 2, _("Connected"));
	1489	break;
	1490	case JCONN_STATE_ON:
	1491	set_login_progress(GJ_GC(gjc), 3, _("Requesting Authentication Method"));
	1492	gjab_reqauth(gjc);
	1493	break;
	1494	}
	1495	return;
	1496	}
	1497
[96863f6]	1498	static void jabber_acc_init(account_t *acc)
[b7d3cc34]	1499	{
[96863f6]	1500	set_t *s;
	1501
	1502	s = set_add( &acc->set, "port", "5222", set_eval_int, acc );
	1503	s->flags \|= ACC_SET_OFFLINE_ONLY;
	1504
	1505	s = set_add( &acc->set, "resource", "BitlBee", NULL, acc );
	1506	s->flags \|= ACC_SET_OFFLINE_ONLY;
	1507
	1508	s = set_add( &acc->set, "server", NULL, set_eval_account, acc );
	1509	s->flags \|= ACC_SET_NOSAVE \| ACC_SET_OFFLINE_ONLY;
	1510
	1511	s = set_add( &acc->set, "ssl", "false", set_eval_bool, acc );
	1512	s->flags \|= ACC_SET_OFFLINE_ONLY;
	1513	}
[b7d3cc34]	1514
[96863f6]	1515	static void jabber_login(account_t *acc)
	1516	{
	1517	struct gaim_connection *gc;
	1518	struct jabber_data *jd;
	1519	char resource, loginname;
	1520
	1521	/* Time to move some data/things from the old syntax to the new one: */
	1522	if (acc->server) {
	1523	char s, tmp_server;
	1524	int port;
	1525
	1526	if (g_strcasecmp(acc->server, "ssl") == 0) {
	1527	set_setstr(&acc->set, "server", "");
	1528	set_setint(&acc->set, "port", DEFAULT_PORT_SSL);
	1529	set_setstr(&acc->set, "ssl", "true");
	1530
	1531	g_free(acc->server);
	1532	acc->server = NULL;
	1533	} else if ((s = strchr(acc->server, ':'))) {
	1534	if (strstr(acc->server, ":ssl")) {
	1535	set_setint(&acc->set, "port", DEFAULT_PORT_SSL);
	1536	set_setstr(&acc->set, "ssl", "true");
	1537	}
	1538	if (isdigit(s[1])) {
	1539	if (sscanf(s + 1, "%d", &port) == 1)
	1540	set_setint(&acc->set, "port", port);
	1541	}
	1542	tmp_server = g_strndup(acc->server, s - acc->server);
	1543	set_setstr(&acc->set, "server", tmp_server);
	1544	g_free(tmp_server);
	1545	}
	1546	}
	1547
	1548	gc = new_gaim_conn(acc);
	1549	jd = gc->proto_data = g_new0(struct jabber_data, 1);
	1550
[75a4b85]	1551	if( strchr( acc->user, '@' ) == NULL )
	1552	{
	1553	hide_login_progress( gc, "Invalid account name" );
	1554	signoff( gc );
	1555	return;
	1556	}
	1557
[96863f6]	1558	resource = set_getstr(&acc->set, "resource");
	1559	loginname = create_valid_jid(acc->user, DEFAULT_SERVER, resource);
	1560
[b7d3cc34]	1561	jd->hash = g_hash_table_new(g_str_hash, g_str_equal);
	1562	jd->chats = NULL; /* we have no chats yet */
	1563
	1564	set_login_progress(gc, 1, _("Connecting"));
	1565
[0a3c243]	1566	if (!(jd->gjc = gjab_new(loginname, acc->pass, gc))) {
[b7d3cc34]	1567	g_free(loginname);
	1568	hide_login_progress(gc, _("Unable to connect"));
	1569	signoff(gc);
	1570	return;
	1571	}
	1572
	1573	g_free(loginname);
	1574	gjab_state_handler(jd->gjc, jabber_handlestate);
	1575	gjab_packet_handler(jd->gjc, jabber_handlepacket);
	1576	jd->gjc->queries = g_hash_table_new(g_str_hash, g_str_equal);
	1577	gjab_start(jd->gjc);
	1578	}
	1579
	1580	static gboolean jabber_destroy_hash(gpointer key, gpointer val, gpointer data) {
	1581	g_free(key);
	1582	g_free(val);
	1583	return TRUE;
	1584	}
	1585
[ba9edaa]	1586	static gboolean jabber_free(gpointer data, gint fd, b_input_condition cond)
[b7d3cc34]	1587	{
	1588	struct jabber_data *jd = data;
	1589
	1590	if(jd->gjc != NULL) {
	1591	gjab_delete(jd->gjc);
[75cde5d]	1592	/* YAY for modules with their own memory pool managers!...
[b7d3cc34]	1593	g_free(jd->gjc->sid);
[75cde5d]	1594	And a less sarcastic yay for valgrind. :-) */
[b7d3cc34]	1595	jd->gjc = NULL;
	1596	}
	1597	g_free(jd);
	1598
	1599	return FALSE;
	1600	}
	1601
	1602	static void jabber_close(struct gaim_connection *gc)
	1603	{
	1604	struct jabber_data *jd = gc->proto_data;
	1605
	1606	if(jd) {
	1607	GSList *jcs = jd->chats;
	1608
	1609	/* Free-up the jabber_chat struct allocs and the list */
	1610	while (jcs) {
	1611	g_free(jcs->data);
	1612	jcs = jcs->next;
	1613	}
	1614	g_slist_free(jd->chats);
	1615
	1616	/* Free-up the away status memories and the list */
	1617	if(jd->hash != NULL) {
	1618	g_hash_table_foreach_remove(jd->hash, jabber_destroy_hash, NULL);
	1619	g_hash_table_destroy(jd->hash);
	1620	jd->hash = NULL;
	1621	}
	1622
	1623	/* Free-up the pending queries memories and the list */
	1624	if(jd->gjc != NULL && jd->gjc->queries != NULL) {
	1625	g_hash_table_foreach_remove(jd->gjc->queries, jabber_destroy_hash, NULL);
	1626	g_hash_table_destroy(jd->gjc->queries);
	1627	jd->gjc->queries = NULL;
	1628	}
	1629	}
	1630	if (gc->inpa)
[ba9edaa]	1631	b_event_remove(gc->inpa);
[b7d3cc34]	1632
	1633	if(jd) {
[ba9edaa]	1634	b_timeout_add(50, jabber_free, jd);
[b7d3cc34]	1635	if(jd->gjc != NULL)
	1636	xmlnode_free(jd->gjc->current);
	1637	}
	1638	gc->proto_data = NULL;
	1639	}
	1640
	1641	static int jabber_send_im(struct gaim_connection gc, char who, char *message, int len, int flags)
	1642	{
	1643	xmlnode x, y;
	1644	char *realwho;
	1645	gjconn gjc = ((struct jabber_data *)gc->proto_data)->gjc;
	1646
	1647	if (!who \|\| !message)
	1648	return 0;
	1649
	1650	x = xmlnode_new_tag("message");
	1651	/* Bare username and "username" not the server itself? */
	1652	if (!strchr(who, '@') && strcmp(who, gjc->user->server) != 0)
	1653	realwho = g_strdup_printf("%s@%s", who, gjc->user->server);
	1654	else
	1655	realwho = g_strdup(who);
	1656	xmlnode_put_attrib(x, "to", realwho);
	1657	g_free(realwho);
	1658
	1659	xmlnode_insert_tag(x, "bitlbee");
	1660	xmlnode_put_attrib(x, "type", "chat");
	1661
	1662	if (message && strlen(message)) {
	1663	y = xmlnode_insert_tag(x, "body");
	1664	xmlnode_insert_cdata(y, message, -1);
	1665	}
	1666
	1667	gjab_send(((struct jabber_data *)gc->proto_data)->gjc, x);
	1668	xmlnode_free(x);
	1669	return 1;
	1670	}
	1671
	1672	/*
	1673	* Add/update buddy's roster entry on server
	1674	*/
	1675	static void jabber_roster_update(struct gaim_connection gc, char name)
	1676	{
	1677	xmlnode x, y;
	1678	char *realwho;
	1679	gjconn gjc;
	1680	struct buddy *buddy = NULL;
	1681	/* struct group buddy_group = NULL; /
	1682
	1683	if(gc && gc->proto_data && ((struct jabber_data *)gc->proto_data)->gjc && name) {
	1684	gjc = ((struct jabber_data *)gc->proto_data)->gjc;
	1685
	1686	if (!strchr(name, '@'))
	1687	realwho = g_strdup_printf("%s@%s", name, gjc->user->server);
	1688	else {
	1689	jid who = jid_new(gjc->p, name);
	1690	if (who->user == NULL) {
	1691	/* FIXME: transport */
	1692	return;
	1693	}
	1694	realwho = g_strdup_printf("%s@%s", who->user, who->server);
	1695	}
	1696
	1697
	1698	x = jutil_iqnew(JPACKET__SET, NS_ROSTER);
	1699	y = xmlnode_insert_tag(xmlnode_get_tag(x, "query"), "item");
	1700	xmlnode_put_attrib(y, "jid", realwho);
	1701
	1702
	1703	/* If we can find the buddy, there's an alias for him, it's not 0-length
	1704	* and it doesn't match his JID, add the "name" attribute.
	1705	*/
	1706	if((buddy = find_buddy(gc, realwho)) != NULL &&
	1707	buddy->show != NULL && buddy->show[0] != '\0' && strcmp(realwho, buddy->show)) {
	1708
	1709	xmlnode_put_attrib(y, "name", buddy->show);
	1710	}
	1711
	1712	/*
	1713	* Find out what group the buddy's in and send that along
	1714	* with the roster item.
	1715	*/
	1716	/* Bitlbee disabled
	1717	if((buddy_group = NULL) != NULL) {
	1718	xmlnode z;
	1719	z = xmlnode_insert_tag(y, "group");
	1720	xmlnode_insert_cdata(z, buddy_group->name, -1);
	1721	}
	1722	End - Bitlbee */
	1723
	1724	gjab_send(((struct jabber_data *)gc->proto_data)->gjc, x);
	1725
	1726	xmlnode_free(x);
	1727	g_free(realwho);
	1728	}
	1729	}
	1730
	1731	/*
	1732	* Change buddy's group on server roster
	1733	*/
	1734	static void jabber_group_change(struct gaim_connection gc, char name, char old_group, char new_group)
	1735	{
	1736	if(strcmp(old_group, new_group)) {
	1737	jabber_roster_update(gc, name);
	1738	}
	1739	}
	1740
	1741	static void jabber_add_buddy(struct gaim_connection gc, char name)
	1742	{
	1743	xmlnode x;
	1744	char *realwho;
	1745	gjconn gjc = ((struct jabber_data *)gc->proto_data)->gjc;
	1746
	1747	if (!((struct jabber_data *)gc->proto_data)->did_import)
	1748	return;
	1749
	1750	if (!name)
	1751	return;
	1752
	1753	if (!strcmp(gc->username, name))
	1754	return;
	1755
	1756	if (!strchr(name, '@'))
	1757	realwho = g_strdup_printf("%s@%s", name, gjc->user->server);
	1758	else {
	1759	jid who;
	1760
	1761	if((who = jid_new(gjc->p, name)) == NULL) {
	1762	char *msg = g_strdup_printf("%s: \"%s\"", _("Invalid Jabber I.D."), name);
	1763	do_error_dialog(GJ_GC(gjc), msg, _("Jabber Error"));
	1764	g_free(msg);
	1765	jabber_remove_gaim_buddy(gc, name);
	1766	return;
	1767	}
	1768	if (who->user == NULL) {
	1769	/* FIXME: transport */
	1770	return;
	1771	}
	1772	realwho = g_strdup_printf("%s@%s", who->user, who->server);
	1773	}
	1774
	1775	x = xmlnode_new_tag("presence");
	1776	xmlnode_put_attrib(x, "to", realwho);
	1777	xmlnode_put_attrib(x, "type", "subscribe");
	1778	gjab_send(((struct jabber_data *)gc->proto_data)->gjc, x);
	1779	xmlnode_free(x);
	1780
	1781	jabber_roster_update(gc, realwho);
	1782
	1783	g_free(realwho);
	1784	}
	1785
	1786	static void jabber_remove_buddy(struct gaim_connection gc, char name, char *group)
	1787	{
	1788	xmlnode x;
	1789	char *realwho;
	1790	gjconn gjc = ((struct jabber_data *)gc->proto_data)->gjc;
	1791
	1792	if (!name)
	1793	return;
	1794
	1795	if (!strchr(name, '@'))
	1796	realwho = g_strdup_printf("%s@%s", name, gjc->user->server);
	1797	else
	1798	realwho = g_strdup(name);
	1799
	1800	x = xmlnode_new_tag("presence");
	1801	xmlnode_put_attrib(x, "to", realwho);
	1802	xmlnode_put_attrib(x, "type", "unsubscribe");
	1803	gjab_send(((struct jabber_data *)gc->proto_data)->gjc, x);
	1804	g_free(realwho);
	1805	xmlnode_free(x);
	1806	}
	1807
	1808	static void jabber_get_info(struct gaim_connection gc, char who) {
	1809	xmlnode x;
	1810	char *id;
	1811	char *realwho;
	1812	struct jabber_data *jd = gc->proto_data;
	1813	gjconn gjc = jd->gjc;
	1814
	1815	x = jutil_iqnew(JPACKET__GET, NS_VCARD);
	1816	/* Bare username? */
	1817	if (!strchr(who, '@')) {
	1818	realwho = g_strdup_printf("%s@%s", who, gjc->user->server);
	1819	} else {
	1820	realwho = g_strdup(who);
	1821	}
	1822	xmlnode_put_attrib(x, "to", realwho);
	1823	g_free(realwho);
	1824
	1825	id = gjab_getid(gjc);
	1826	xmlnode_put_attrib(x, "id", id);
	1827
	1828	g_hash_table_insert(jd->gjc->queries, g_strdup(id), g_strdup("vCard"));
	1829
	1830	gjab_send(gjc, x);
	1831
	1832	xmlnode_free(x);
	1833
	1834	}
	1835
	1836	static void jabber_get_away_msg(struct gaim_connection gc, char who) {
	1837	struct jabber_data *jd = gc->proto_data;
	1838	gjconn gjc = jd->gjc;
	1839	char *status;
	1840
	1841	/* space for all elements: Jabber I.D. + "status" + NULL (list terminator) */
	1842	gchar str_arr = (gchar ) g_new(gpointer, 3);
	1843	gchar **ap = str_arr;
	1844	gchar realwho, final;
	1845
	1846	/* Bare username? */
	1847	if (!strchr(who, '@')) {
	1848	realwho = g_strdup_printf("%s@%s", who, gjc->user->server);
	1849	} else {
	1850	realwho = g_strdup(who);
	1851	}
	1852	*ap++ = g_strdup_printf("<B>Jabber ID:</B> %s<BR>\n", realwho);
	1853
	1854	if((status = g_hash_table_lookup(jd->hash, realwho)) == NULL) {
	1855	status = _("Unknown");
	1856	}
	1857	*ap++ = g_strdup_printf("<B>Status:</B> %s<BR>\n", status);
	1858
	1859	*ap = NULL;
	1860
	1861	final= g_strjoinv(NULL, str_arr);
	1862	g_strfreev(str_arr);
	1863
	1864	g_free(realwho);
	1865	g_free(final);
	1866
	1867	}
	1868
	1869	static GList jabber_away_states(struct gaim_connection gc) {
	1870	GList *m = NULL;
	1871
	1872	m = g_list_append(m, "Online");
	1873	m = g_list_append(m, "Chatty");
	1874	m = g_list_append(m, "Away");
	1875	m = g_list_append(m, "Extended Away");
	1876	m = g_list_append(m, "Do Not Disturb");
	1877
	1878	return m;
	1879	}
	1880
	1881	static void jabber_set_away(struct gaim_connection gc, char state, char *message)
	1882	{
	1883	xmlnode x, y;
	1884	struct jabber_data *jd = gc->proto_data;
	1885	gjconn gjc = jd->gjc;
	1886
	1887	gc->away = NULL; /* never send an auto-response */
	1888
	1889	x = xmlnode_new_tag("presence");
	1890
	1891	if (!strcmp(state, GAIM_AWAY_CUSTOM)) {
	1892	/* oh goody. Gaim is telling us what to do. */
	1893	if (message) {
	1894	/* Gaim wants us to be away */
	1895	y = xmlnode_insert_tag(x, "show");
	1896	xmlnode_insert_cdata(y, "away", -1);
	1897	y = xmlnode_insert_tag(x, "status");
[a252c1a]	1898	xmlnode_insert_cdata(y, message, -1);
[b7d3cc34]	1899	gc->away = "";
	1900	} else {
	1901	/* Gaim wants us to not be away */
	1902	/* but for Jabber, we can just send presence with no other information. */
	1903	}
	1904	} else {
	1905	/* state is one of our own strings. it won't be NULL. */
	1906	if (!g_strcasecmp(state, "Online")) {
	1907	/* once again, we don't have to put anything here */
	1908	} else if (!g_strcasecmp(state, "Chatty")) {
	1909	y = xmlnode_insert_tag(x, "show");
	1910	xmlnode_insert_cdata(y, "chat", -1);
	1911	} else if (!g_strcasecmp(state, "Away")) {
	1912	y = xmlnode_insert_tag(x, "show");
	1913	xmlnode_insert_cdata(y, "away", -1);
	1914	gc->away = "";
	1915	} else if (!g_strcasecmp(state, "Extended Away")) {
	1916	y = xmlnode_insert_tag(x, "show");
	1917	xmlnode_insert_cdata(y, "xa", -1);
	1918	gc->away = "";
	1919	} else if (!g_strcasecmp(state, "Do Not Disturb")) {
	1920	y = xmlnode_insert_tag(x, "show");
	1921	xmlnode_insert_cdata(y, "dnd", -1);
	1922	gc->away = "";
	1923	}
	1924	}
	1925
	1926	gjab_send(gjc, x);
	1927	xmlnode_free(x);
	1928	}
	1929
	1930	static void jabber_keepalive(struct gaim_connection *gc) {
	1931	struct jabber_data jd = (struct jabber_data )gc->proto_data;
	1932	gjab_send_raw(jd->gjc, " \t ");
	1933	}
	1934
	1935	/---------------------------------------/
	1936	/* Jabber "set info" (vCard) support */
	1937	/---------------------------------------/
	1938
	1939	/*
	1940	* V-Card format:
	1941	*
	1942	* <vCard prodid='' version='' xmlns=''>
	1943	* <FN></FN>
	1944	* <N>
	1945	* <FAMILY/>
	1946	* <GIVEN/>
	1947	* </N>
	1948	* <NICKNAME/>
	1949	* <URL/>
	1950	* <ADR>
	1951	* <STREET/>
	1952	* <EXTADD/>
	1953	* <LOCALITY/>
	1954	* <REGION/>
	1955	* <PCODE/>
	1956	* <COUNTRY/>
	1957	* </ADR>
	1958	* <TEL/>
	1959	* <EMAIL/>
	1960	* <ORG>
	1961	* <ORGNAME/>
	1962	* <ORGUNIT/>
	1963	* </ORG>
	1964	* <TITLE/>
	1965	* <ROLE/>
	1966	* <DESC/>
	1967	* <BDAY/>
	1968	* </vCard>
	1969	*
	1970	* See also:
	1971	*
	1972	* http://docs.jabber.org/proto/html/vcard-temp.html
	1973	* http://www.vcard-xml.org/dtd/vCard-XML-v2-20010520.dtd
	1974	*/
	1975
	1976	/*
	1977	* Cross-reference user-friendly V-Card entry labels to vCard XML tags
	1978	* and attributes.
	1979	*
	1980	* Order is (or should be) unimportant. For example: we have no way of
	1981	* knowing in what order real data will arrive.
	1982	*
	1983	* Format: Label, Pre-set text, "visible" flag, "editable" flag, XML tag
	1984	* name, XML tag's parent tag "path" (relative to vCard node).
	1985	*
	1986	* List is terminated by a NULL label pointer.
	1987	*
	1988	* Entries with no label text, but with XML tag and parent tag
	1989	* entries, are used by V-Card XML construction routines to
	1990	* "automagically" construct the appropriate XML node tree.
	1991	*
	1992	* Thoughts on future direction/expansion
	1993	*
	1994	* This is a "simple" vCard.
	1995	*
	1996	* It is possible for nodes other than the "vCard" node to have
	1997	* attributes. Should that prove necessary/desirable, add an
	1998	* "attributes" pointer to the vcard_template struct, create the
	1999	* necessary tag_attr structs, and add 'em to the vcard_dflt_data
	2000	* array.
	2001	*
	2002	* The above changes will (obviously) require changes to the vCard
	2003	* construction routines.
	2004	*/
	2005
	2006	static struct vcard_template {
	2007	char label; / label text pointer */
	2008	char text; / entry text pointer */
	2009	int visible; /* should entry field be "visible?" */
	2010	int editable; /* should entry field be editable? */
	2011	char tag; / tag text */
	2012	char ptag; / parent tag "path" text */
	2013	char url; / vCard display format if URL */
	2014	} vcard_template_data[] = {
	2015	{N_("Full Name"), NULL, TRUE, TRUE, "FN", NULL, NULL},
	2016	{N_("Family Name"), NULL, TRUE, TRUE, "FAMILY", "N", NULL},
	2017	{N_("Given Name"), NULL, TRUE, TRUE, "GIVEN", "N", NULL},
	2018	{N_("Nickname"), NULL, TRUE, TRUE, "NICKNAME", NULL, NULL},
	2019	{N_("URL"), NULL, TRUE, TRUE, "URL", NULL, "<A HREF=\"%s\">%s</A>"},
	2020	{N_("Street Address"), NULL, TRUE, TRUE, "STREET", "ADR", NULL},
	2021	{N_("Extended Address"), NULL, TRUE, TRUE, "EXTADD", "ADR", NULL},
	2022	{N_("Locality"), NULL, TRUE, TRUE, "LOCALITY", "ADR", NULL},
	2023	{N_("Region"), NULL, TRUE, TRUE, "REGION", "ADR", NULL},
	2024	{N_("Postal Code"), NULL, TRUE, TRUE, "PCODE", "ADR", NULL},
	2025	{N_("Country"), NULL, TRUE, TRUE, "COUNTRY", "ADR", NULL},
	2026	{N_("Telephone"), NULL, TRUE, TRUE, "TELEPHONE", NULL, NULL},
	2027	{N_("Email"), NULL, TRUE, TRUE, "EMAIL", NULL, "<A HREF=\"mailto:%s\">%s</A>"},
	2028	{N_("Organization Name"), NULL, TRUE, TRUE, "ORGNAME", "ORG", NULL},
	2029	{N_("Organization Unit"), NULL, TRUE, TRUE, "ORGUNIT", "ORG", NULL},
	2030	{N_("Title"), NULL, TRUE, TRUE, "TITLE", NULL, NULL},
	2031	{N_("Role"), NULL, TRUE, TRUE, "ROLE", NULL, NULL},
	2032	{N_("Birthday"), NULL, TRUE, TRUE, "BDAY", NULL, NULL},
	2033	{N_("Description"), NULL, TRUE, TRUE, "DESC", NULL, NULL},
	2034	{"", NULL, TRUE, TRUE, "N", NULL, NULL},
	2035	{"", NULL, TRUE, TRUE, "ADR", NULL, NULL},
	2036	{"", NULL, TRUE, TRUE, "ORG", NULL, NULL},
	2037	{NULL, NULL, 0, 0, NULL, NULL, NULL}
	2038	};
	2039
	2040	/*
	2041	* Used by routines to parse an XML-encoded string into an xmlnode tree
	2042	*/
	2043	typedef struct {
	2044	XML_Parser parser;
	2045	xmlnode current;
	2046	} *xmlstr2xmlnode_parser, xmlstr2xmlnode_parser_struct;
	2047
	2048
	2049	/*
	2050	* Used by XML_Parse on parsing CDATA
	2051	*/
	2052	static void xmlstr2xmlnode_charData(void userdata, const char s, int slen)
	2053	{
	2054	xmlstr2xmlnode_parser xmlp = (xmlstr2xmlnode_parser) userdata;
	2055
	2056	if (xmlp->current)
	2057	xmlnode_insert_cdata(xmlp->current, s, slen);
	2058	}
	2059
	2060	/*
	2061	* Used by XML_Parse to start or append to an xmlnode
	2062	*/
	2063	static void xmlstr2xmlnode_startElement(void userdata, const char name, const char **attribs)
	2064	{
	2065	xmlnode x;
	2066	xmlstr2xmlnode_parser xmlp = (xmlstr2xmlnode_parser) userdata;
	2067
	2068	if (xmlp->current) {
	2069	/* Append the node to the current one */
	2070	x = xmlnode_insert_tag(xmlp->current, name);
	2071	xmlnode_put_expat_attribs(x, attribs);
	2072
	2073	xmlp->current = x;
	2074	} else {
	2075	x = xmlnode_new_tag(name);
	2076	xmlnode_put_expat_attribs(x, attribs);
	2077	xmlp->current = x;
	2078	}
	2079	}
	2080
	2081	/*
	2082	* Used by XML_Parse to end an xmlnode
	2083	*/
	2084	static void xmlstr2xmlnode_endElement(void userdata, const char name)
	2085	{
	2086	xmlstr2xmlnode_parser xmlp = (xmlstr2xmlnode_parser) userdata;
	2087	xmlnode x;
	2088
	2089	if (xmlp->current != NULL && (x = xmlnode_get_parent(xmlp->current)) != NULL) {
	2090	xmlp->current = x;
	2091	}
	2092	}
	2093
	2094	/*
	2095	* Parse an XML-encoded string into an xmlnode tree
	2096	*
	2097	* Caller is responsible for freeing the returned xmlnode
	2098	*/
	2099	static xmlnode xmlstr2xmlnode(char *xmlstring)
	2100	{
	2101	xmlstr2xmlnode_parser my_parser = g_new(xmlstr2xmlnode_parser_struct, 1);
	2102	xmlnode x = NULL;
	2103
	2104	my_parser->parser = XML_ParserCreate(NULL);
	2105	my_parser->current = NULL;
	2106
	2107	XML_SetUserData(my_parser->parser, (void *)my_parser);
	2108	XML_SetElementHandler(my_parser->parser, xmlstr2xmlnode_startElement, xmlstr2xmlnode_endElement);
	2109	XML_SetCharacterDataHandler(my_parser->parser, xmlstr2xmlnode_charData);
	2110	XML_Parse(my_parser->parser, xmlstring, strlen(xmlstring), 0);
	2111
	2112	x = my_parser->current;
	2113
	2114	XML_ParserFree(my_parser->parser);
	2115	g_free(my_parser);
	2116
	2117	return(x);
	2118	}
	2119
	2120	/*
	2121	* Insert a tag node into an xmlnode tree, recursively inserting parent tag
	2122	* nodes as necessary
	2123	*
	2124	* Returns pointer to inserted node
	2125	*
	2126	* Note to hackers: this code is designed to be re-entrant (it's recursive--it
	2127	* calls itself), so don't put any "static"s in here!
	2128	*/
	2129	static xmlnode insert_tag_to_parent_tag(xmlnode start, const char parent_tag, const char new_tag)
	2130	{
	2131	xmlnode x = NULL;
	2132
	2133	/*
	2134	* If the parent tag wasn't specified, see if we can get it
	2135	* from the vCard template struct.
	2136	*/
	2137	if(parent_tag == NULL) {
	2138	struct vcard_template *vc_tp = vcard_template_data;
	2139
	2140	while(vc_tp->label != NULL) {
	2141	if(strcmp(vc_tp->tag, new_tag) == 0) {
	2142	parent_tag = vc_tp->ptag;
	2143	break;
	2144	}
	2145	++vc_tp;
	2146	}
	2147	}
	2148
	2149	/*
	2150	* If we have a parent tag...
	2151	*/
	2152	if(parent_tag != NULL ) {
	2153	/*
	2154	* Try to get the parent node for a tag
	2155	*/
	2156	if((x = xmlnode_get_tag(start, parent_tag)) == NULL) {
	2157	/*
	2158	* Descend?
	2159	*/
	2160	char *grand_parent = strcpy(g_malloc(strlen(parent_tag) + 1), parent_tag);
	2161	char *parent;
	2162
	2163	if((parent = strrchr(grand_parent, '/')) != NULL) {
	2164	*(parent++) = '\0';
	2165	x = insert_tag_to_parent_tag(start, grand_parent, parent);
	2166	} else {
	2167	x = xmlnode_insert_tag(start, grand_parent);
	2168	}
	2169	g_free(grand_parent);
	2170	} else {
	2171	/*
	2172	* We found something to be the parent node.
	2173	* Note: may be the "root" node!
	2174	*/
	2175	xmlnode y;
	2176	if((y = xmlnode_get_tag(x, new_tag)) != NULL) {
	2177	return(y);
	2178	}
	2179	}
	2180	}
	2181
	2182	/*
	2183	* insert the new tag into its parent node
	2184	*/
	2185	return(xmlnode_insert_tag((x == NULL? start : x), new_tag));
	2186	}
	2187
	2188	/*
	2189	* Send vCard info to Jabber server
	2190	*/
	2191	static void jabber_set_info(struct gaim_connection gc, char info)
	2192	{
	2193	xmlnode x, vc_node;
	2194	char *id;
	2195	struct jabber_data *jd = gc->proto_data;
	2196	gjconn gjc = jd->gjc;
	2197
	2198	x = xmlnode_new_tag("iq");
	2199	xmlnode_put_attrib(x,"type","set");
	2200
	2201	id = gjab_getid(gjc);
	2202
	2203	xmlnode_put_attrib(x, "id", id);
	2204
	2205	/*
	2206	* Send only if there's actually any information to send
	2207	*/
	2208	if((vc_node = xmlstr2xmlnode(info)) != NULL && xmlnode_get_name(vc_node) != NULL &&
	2209	g_strncasecmp(xmlnode_get_name(vc_node), "vcard", 5) == 0) {
	2210	xmlnode_insert_tag_node(x, vc_node);
	2211	gjab_send(gjc, x);
	2212	}
	2213
	2214	xmlnode_free(x);
	2215	}
	2216
	2217	/*
	2218	* displays a Jabber vCard
	2219	*/
	2220	static void jabber_handlevcard(gjconn gjc, xmlnode querynode, char *from)
	2221	{
	2222	struct jabber_data *jd = GJ_GC(gjc)->proto_data;
	2223	jid who = jid_new(gjc->p, from);
	2224	char status = NULL, text = NULL;
	2225	GString *str = g_string_sized_new(100);
	2226	xmlnode child;
	2227
	2228	gchar *buddy = NULL;
	2229
	2230	if(querynode == NULL) {
	2231	serv_got_crap(GJ_GC(gjc), "%s - Received empty info reply from %s", _("User Info"), from);
	2232	return;
	2233	}
	2234
	2235	if(who->resource != NULL && (who->resource)[0] != '\0') {
	2236	buddy = g_strdup_printf("%s@%s/%s", who->user, who->server, who->resource);
	2237	} else {
	2238	buddy = g_strdup_printf("%s@%s", who->user, who->server);
	2239	}
	2240
	2241	if((status = g_hash_table_lookup(jd->hash, buddy)) == NULL) {
	2242	status = _("Unknown");
	2243	}
	2244
	2245	g_string_sprintfa(str, "%s: %s - %s: %s", _("Jabber ID"), buddy, _("Status"),
	2246	status);
	2247
	2248	for(child = querynode->firstchild; child; child = child->next)
	2249	{
	2250	xmlnode child2;
	2251
	2252	if(child->type != NTYPE_TAG)
	2253	continue;
	2254
	2255	text = xmlnode_get_data(child);
	2256	if(text && !strcmp(child->name, "FN")) {
	2257	info_string_append(str, "\n", _("Full Name"), text);
	2258	} else if (!strcmp(child->name, "N")) {
	2259	for (child2 = child->firstchild; child2; child2 = child2->next) {
	2260	char *text2 = NULL;
	2261
	2262	if (child2->type != NTYPE_TAG)
	2263	continue;
	2264
	2265	text2 = xmlnode_get_data(child2);
	2266	if (text2 && !strcmp(child2->name, "FAMILY")) {
	2267	info_string_append(str, "\n", _("Family Name"), text2);
	2268	} else if (text2 && !strcmp(child2->name, "GIVEN")) {
	2269	info_string_append(str, "\n", _("Given Name"), text2);
	2270	} else if (text2 && !strcmp(child2->name, "MIDDLE")) {
	2271	info_string_append(str, "\n", _("Middle Name"), text2);
	2272	}
	2273	}
	2274	} else if (text && !strcmp(child->name, "NICKNAME")) {
	2275	info_string_append(str, "\n", _("Nickname"), text);
	2276	} else if (text && !strcmp(child->name, "BDAY")) {
	2277	info_string_append(str, "\n", _("Birthday"), text);
	2278	} else if (!strcmp(child->name, "ADR")) {
	2279	/* show wich address it is */
	2280	/* Just for the beauty of bitlbee
	2281	if (child->firstchild)
	2282	g_string_sprintfa(str, "%s:\n", _("Address"));
	2283	*/
	2284	for(child2 = child->firstchild; child2; child2 = child2->next) {
	2285	char *text2 = NULL;
	2286
	2287	if(child2->type != NTYPE_TAG)
	2288	continue;
	2289
	2290	text2 = xmlnode_get_data(child2);
	2291	if(text2 && !strcmp(child2->name, "POBOX")) {
	2292	info_string_append(str, "\n",
	2293	_("P.O. Box"), text2);
	2294	} else if(text2 && !strcmp(child2->name, "EXTADR")) {
	2295	info_string_append(str, "\n",
	2296	_("Extended Address"), text2);
	2297	} else if(text2 && !strcmp(child2->name, "STREET")) {
	2298	info_string_append(str, "\n",
	2299	_("Street Address"), text2);
	2300	} else if(text2 && !strcmp(child2->name, "LOCALITY")) {
	2301	info_string_append(str, "\n",
	2302	_("Locality"), text2);
	2303	} else if(text2 && !strcmp(child2->name, "REGION")) {
	2304	info_string_append(str, "\n",
	2305	_("Region"), text2);
	2306	} else if(text2 && !strcmp(child2->name, "PCODE")) {
	2307	info_string_append(str, "\n",
	2308	_("Postal Code"), text2);
	2309	} else if(text2 && (!strcmp(child2->name, "CTRY")
	2310	\|\| !strcmp(child2->name, "COUNTRY"))) {
	2311	info_string_append(str, "\n", _("Country"), text2);
	2312	}
	2313	}
	2314	} else if(!strcmp(child->name, "TEL")) {
	2315	char *number = NULL;
	2316	if ((child2 = xmlnode_get_tag(child, "NUMBER"))) {
	2317	/* show what kind of number it is */
	2318	number = xmlnode_get_data(child2);
	2319	if(number) {
	2320	info_string_append(str, "\n", _("Telephone"), number);
	2321	}
	2322	} else if((number = xmlnode_get_data(child))) {
	2323	/* lots of clients (including gaim) do this,
	2324	* but it's out of spec */
	2325	info_string_append(str, "\n", _("Telephone"), number);
	2326	}
	2327	} else if(!strcmp(child->name, "EMAIL")) {
	2328	char *userid = NULL;
	2329	if((child2 = xmlnode_get_tag(child, "USERID"))) {
	2330	/* show what kind of email it is */
	2331	userid = xmlnode_get_data(child2);
	2332	if(userid) {
	2333	info_string_append(str, "\n", _("Email"), userid);
	2334	}
	2335	} else if((userid = xmlnode_get_data(child))) {
	2336	/* lots of clients (including gaim) do this,
	2337	* but it's out of spec */
	2338	info_string_append(str, "\n", _("Email"), userid);
	2339	}
	2340	} else if(!strcmp(child->name, "ORG")) {
	2341	for(child2 = child->firstchild; child2; child2 = child2->next) {
	2342	char *text2 = NULL;
	2343
	2344	if(child2->type != NTYPE_TAG)
	2345	continue;
	2346
	2347	text2 = xmlnode_get_data(child2);
	2348	if(text2 && !strcmp(child2->name, "ORGNAME")) {
	2349	info_string_append(str, "\n", _("Organization Name"), text2);
	2350	} else if(text2 && !strcmp(child2->name, "ORGUNIT")) {
	2351	info_string_append(str, "\n", _("Organization Unit"), text2);
	2352	}
	2353	}
	2354	} else if(text && !strcmp(child->name, "TITLE")) {
	2355	info_string_append(str, "\n", _("Title"), text);
	2356	} else if(text && !strcmp(child->name, "ROLE")) {
	2357	info_string_append(str, "\n", _("Role"), text);
	2358	} else if(text && !strcmp(child->name, "DESC")) {
	2359	g_string_sprintfa(str, "\n%s:\n%s\n%s", _("Description"),
	2360	text, _("End of Description"));
	2361	}
	2362	}
	2363
	2364	serv_got_crap(GJ_GC(gjc), "%s\n%s", _("User Info"), str->str);
	2365
	2366	g_free(buddy);
	2367	g_string_free(str, TRUE);
	2368	}
	2369
[7b23afd]	2370	void jabber_init()
[b7d3cc34]	2371	{
[7b23afd]	2372	struct prpl *ret = g_new0(struct prpl, 1);
	2373
	2374	ret->name = "jabber";
[b7d3cc34]	2375	ret->away_states = jabber_away_states;
[96863f6]	2376	ret->acc_init = jabber_acc_init;
[b7d3cc34]	2377	ret->login = jabber_login;
	2378	ret->close = jabber_close;
	2379	ret->send_im = jabber_send_im;
	2380	ret->set_info = jabber_set_info;
	2381	ret->get_info = jabber_get_info;
	2382	ret->set_away = jabber_set_away;
	2383	ret->get_away = jabber_get_away_msg;
	2384	ret->add_buddy = jabber_add_buddy;
	2385	ret->remove_buddy = jabber_remove_buddy;
	2386	ret->keepalive = jabber_keepalive;
	2387	ret->alias_buddy = jabber_roster_update;
	2388	ret->group_buddy = jabber_group_change;
[5b52a48]	2389	ret->handle_cmp = g_strcasecmp;
[b7d3cc34]	2390
[7b23afd]	2391	register_protocol (ret);
[b7d3cc34]	2392	}

Note: See TracBrowser for help on using the repository browser.

Download in other formats: