Context Navigation

source: protocols/jabber/jabber.c @ e62762b

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

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

Download in other formats: