Context Navigation

source: protocols/jabber/jabber.c @ 21d09ac

Last change on this file since 21d09ac was b7d3cc34, checked in by Wilmer van der Gaast <wilmer@…>, at 2005-11-06T18:23:18Z
Initial repository (0.99 release tree)
Property mode set to `100644`
File size: 61.1 KB

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

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

Download in other formats: