Context Navigation

source: protocols/jabber/iq.c @ 0cab388

Last change on this file since 0cab388 was b79308b, checked in by ulim <a.sporto+bee@…>, at 2008-04-14T13:10:53Z
merged in upstream r379 (somewhere after 1.2-3). Just one trivial conflict in the jabber Makefile, went smoothly.
Property mode set to `100644`
File size: 23.1 KB

Line
1	/***************************************************************************\
2	* *
3	* BitlBee - An IRC to IM gateway *
4	* Jabber module - IQ packets *
5	* *
6	* Copyright 2006 Wilmer van der Gaast <wilmer@gaast.net> *
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 along *
19	* with this program; if not, write to the Free Software Foundation, Inc., *
20	* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. *
21	* *
22	\***************************************************************************/
23
24	#include "jabber.h"
25	#include "sha1.h"
26
27	static xt_status jabber_parse_roster( struct im_connection ic, struct xt_node node, struct xt_node *orig );
28	static xt_status jabber_iq_display_vcard( struct im_connection ic, struct xt_node node, struct xt_node *orig );
29
30	xt_status jabber_pkt_iq( struct xt_node *node, gpointer data )
31	{
32	struct im_connection *ic = data;
33	struct xt_node c, reply = NULL;
34	char type, s;
35	int st, pack = 1;
36
37	type = xt_find_attr( node, "type" );
38
39	if( !type )
40	{
41	imcb_error( ic, "Received IQ packet without type." );
42	imc_logout( ic, TRUE );
43	return XT_ABORT;
44	}
45
46	if( strcmp( type, "result" ) == 0 \|\| strcmp( type, "error" ) == 0 )
47	{
48	return jabber_cache_handle_packet( ic, node );
49	}
50	else if( strcmp( type, "get" ) == 0 )
51	{
52	if( !( ( c = xt_find_node( node->children, "query" ) ) \|\|
53	( c = xt_find_node( node->children, "ping" ) ) ) \|\| /* O_o WHAT is wrong with just <query/> ????? */
54	!( s = xt_find_attr( c, "xmlns" ) ) )
55	{
56	imcb_log( ic, "Warning: Received incomplete IQ-%s packet", type );
57	return XT_HANDLED;
58	}
59
60	reply = xt_new_node( "query", NULL, NULL );
61	xt_add_attr( reply, "xmlns", s );
62
63	/* Of course this is a very essential query to support. ;-) */
64	if( strcmp( s, XMLNS_VERSION ) == 0 )
65	{
66	xt_add_child( reply, xt_new_node( "name", "BitlBee", NULL ) );
67	xt_add_child( reply, xt_new_node( "version", BITLBEE_VERSION, NULL ) );
68	xt_add_child( reply, xt_new_node( "os", ARCH, NULL ) );
69	}
70	else if( strcmp( s, XMLNS_TIME ) == 0 )
71	{
72	time_t time_ep;
73	char buf[1024];
74
75	buf[sizeof(buf)-1] = 0;
76	time_ep = time( NULL );
77
78	strftime( buf, sizeof( buf ) - 1, "%Y%m%dT%H:%M:%S", gmtime( &time_ep ) );
79	xt_add_child( reply, xt_new_node( "utc", buf, NULL ) );
80
81	strftime( buf, sizeof( buf ) - 1, "%Z", localtime( &time_ep ) );
82	xt_add_child( reply, xt_new_node( "tz", buf, NULL ) );
83	}
84	else if( strcmp( s, XMLNS_PING ) == 0 )
85	{
86	xt_free_node( reply );
87	reply = jabber_make_packet( "iq", "result", xt_find_attr( node, "from" ), NULL );
88	if( ( s = xt_find_attr( node, "id" ) ) )
89	xt_add_attr( reply, "id", s );
90	pack = 0;
91	}
92	else if( strcmp( s, XMLNS_DISCO_INFO ) == 0 )
93	{
94	const char *features[] = { XMLNS_DISCO_INFO,
95	XMLNS_VERSION,
96	XMLNS_TIME,
97	XMLNS_CHATSTATES,
98	XMLNS_MUC,
99	XMLNS_PING,
100	XMLNS_SI,
101	XMLNS_BYTESTREAMS,
102	XMLNS_FILETRANSFER,
103	NULL };
104	const char **f;
105
106	c = xt_new_node( "identity", NULL, NULL );
107	xt_add_attr( c, "category", "client" );
108	xt_add_attr( c, "type", "pc" );
109	xt_add_attr( c, "name", "BitlBee" );
110	xt_add_child( reply, c );
111
112	for( f = features; *f; f ++ )
113	{
114	c = xt_new_node( "feature", NULL, NULL );
115	xt_add_attr( c, "var", *f );
116	xt_add_child( reply, c );
117	}
118	}
119	else
120	{
121	xt_free_node( reply );
122	reply = jabber_make_error_packet( node, "feature-not-implemented", "cancel", NULL );
123	pack = 0;
124	}
125	}
126	else if( strcmp( type, "set" ) == 0 )
127	{
128	if( ( c = xt_find_node( node->children, "si" ) ) &&
129	( strcmp( xt_find_attr( c, "xmlns" ), XMLNS_SI ) == 0 ) )
130	{
131	return jabber_si_handle_request( ic, node, c );
132	} else if( !( c = xt_find_node( node->children, "query" ) ) \|\|
133	!( s = xt_find_attr( c, "xmlns" ) ) )
134	{
135	imcb_log( ic, "Warning: Received incomplete IQ-%s packet", type );
136	return XT_HANDLED;
137	} else if( strcmp( s, XMLNS_ROSTER ) == 0 )
138	{
139	/* This is a roster push. XMPP servers send this when someone
140	was added to (or removed from) the buddy list. AFAIK they're
141	sent even if we added this buddy in our own session. */
142	int bare_len = strlen( ic->acc->user );
143
144	if( ( s = xt_find_attr( node, "from" ) ) == NULL \|\|
145	( strncmp( s, ic->acc->user, bare_len ) == 0 &&
146	( s[bare_len] == 0 \|\| s[bare_len] == '/' ) ) )
147	{
148	jabber_parse_roster( ic, node, NULL );
149
150	/* Should we generate a reply here? Don't think it's
151	very important... */
152	}
153	else
154	{
155	imcb_log( ic, "Warning: %s tried to fake a roster push!", s ? s : "(unknown)" );
156
157	xt_free_node( reply );
158	reply = jabber_make_error_packet( node, "not-allowed", "cancel", NULL );
159	pack = 0;
160	}
161	} else if( strcmp( s, XMLNS_BYTESTREAMS ) == 0 )
162	{
163	/* Bytestream Request (stage 2 of file transfer) */
164	return jabber_bs_recv_request( ic, node, c );
165	} else
166	{
167	xt_free_node( reply );
168	reply = jabber_make_error_packet( node, "feature-not-implemented", "cancel", NULL );
169	pack = 0;
170	}
171	}
172
173	/* If we recognized the xmlns and managed to generate a reply,
174	finish and send it. */
175	if( reply )
176	{
177	/* Normally we still have to pack it into an iq-result
178	packet, but for errors, for example, we don't. */
179	if( pack )
180	{
181	reply = jabber_make_packet( "iq", "result", xt_find_attr( node, "from" ), reply );
182	if( ( s = xt_find_attr( node, "id" ) ) )
183	xt_add_attr( reply, "id", s );
184	}
185
186	st = jabber_write_packet( ic, reply );
187	xt_free_node( reply );
188	if( !st )
189	return XT_ABORT;
190	}
191
192	return XT_HANDLED;
193	}
194
195	static xt_status jabber_do_iq_auth( struct im_connection ic, struct xt_node node, struct xt_node *orig );
196	static xt_status jabber_finish_iq_auth( struct im_connection ic, struct xt_node node, struct xt_node *orig );
197
198	int jabber_init_iq_auth( struct im_connection *ic )
199	{
200	struct jabber_data *jd = ic->proto_data;
201	struct xt_node *node;
202	int st;
203
204	node = xt_new_node( "query", NULL, xt_new_node( "username", jd->username, NULL ) );
205	xt_add_attr( node, "xmlns", XMLNS_AUTH );
206	node = jabber_make_packet( "iq", "get", NULL, node );
207
208	jabber_cache_add( ic, node, jabber_do_iq_auth );
209	st = jabber_write_packet( ic, node );
210
211	return st;
212	}
213
214	static xt_status jabber_do_iq_auth( struct im_connection ic, struct xt_node node, struct xt_node *orig )
215	{
216	struct jabber_data *jd = ic->proto_data;
217	struct xt_node reply, query;
218	xt_status st;
219	char *s;
220
221	if( !( query = xt_find_node( node->children, "query" ) ) )
222	{
223	imcb_log( ic, "Warning: Received incomplete IQ packet while authenticating" );
224	imc_logout( ic, FALSE );
225	return XT_HANDLED;
226	}
227
228	/* Time to authenticate ourselves! */
229	reply = xt_new_node( "query", NULL, NULL );
230	xt_add_attr( reply, "xmlns", XMLNS_AUTH );
231	xt_add_child( reply, xt_new_node( "username", jd->username, NULL ) );
232	xt_add_child( reply, xt_new_node( "resource", set_getstr( &ic->acc->set, "resource" ), NULL ) );
233
234	if( xt_find_node( query->children, "digest" ) && ( s = xt_find_attr( jd->xt->root, "id" ) ) )
235	{
236	/* We can do digest authentication, it seems, and of
237	course we prefer that. */
238	sha1_state_t sha;
239	char hash_hex[41];
240	unsigned char hash[20];
241	int i;
242
243	sha1_init( &sha );
244	sha1_append( &sha, (unsigned char*) s, strlen( s ) );
245	sha1_append( &sha, (unsigned char*) ic->acc->pass, strlen( ic->acc->pass ) );
246	sha1_finish( &sha, hash );
247
248	for( i = 0; i < 20; i ++ )
249	sprintf( hash_hex + i * 2, "%02x", hash[i] );
250
251	xt_add_child( reply, xt_new_node( "digest", hash_hex, NULL ) );
252	}
253	else if( xt_find_node( query->children, "password" ) )
254	{
255	/* We'll have to stick with plaintext. Let's hope we're using SSL/TLS... */
256	xt_add_child( reply, xt_new_node( "password", ic->acc->pass, NULL ) );
257	}
258	else
259	{
260	xt_free_node( reply );
261
262	imcb_error( ic, "Can't find suitable authentication method" );
263	imc_logout( ic, FALSE );
264	return XT_ABORT;
265	}
266
267	reply = jabber_make_packet( "iq", "set", NULL, reply );
268	jabber_cache_add( ic, reply, jabber_finish_iq_auth );
269	st = jabber_write_packet( ic, reply );
270
271	return st ? XT_HANDLED : XT_ABORT;
272	}
273
274	static xt_status jabber_finish_iq_auth( struct im_connection ic, struct xt_node node, struct xt_node *orig )
275	{
276	struct jabber_data *jd = ic->proto_data;
277	char *type;
278
279	if( !( type = xt_find_attr( node, "type" ) ) )
280	{
281	imcb_log( ic, "Warning: Received incomplete IQ packet while authenticating" );
282	imc_logout( ic, FALSE );
283	return XT_HANDLED;
284	}
285
286	if( strcmp( type, "error" ) == 0 )
287	{
288	imcb_error( ic, "Authentication failure" );
289	imc_logout( ic, FALSE );
290	return XT_ABORT;
291	}
292	else if( strcmp( type, "result" ) == 0 )
293	{
294	/* This happens when we just successfully authenticated the
295	old (non-SASL) way. */
296	jd->flags \|= JFLAG_AUTHENTICATED;
297	if( !jabber_get_roster( ic ) )
298	return XT_ABORT;
299	}
300
301	return XT_HANDLED;
302	}
303
304	xt_status jabber_pkt_bind_sess( struct im_connection ic, struct xt_node node, struct xt_node *orig )
305	{
306	struct jabber_data *jd = ic->proto_data;
307	struct xt_node *c;
308	char *s;
309
310	if( ( c = xt_find_node( node->children, "bind" ) ) )
311	{
312	c = xt_find_node( c->children, "jid" );
313	if( c && c->text_len && ( s = strchr( c->text, '/' ) ) &&
314	strcmp( s + 1, set_getstr( &ic->acc->set, "resource" ) ) != 0 )
315	imcb_log( ic, "Server changed session resource string to `%s'", s + 1 );
316
317	jd->flags &= ~JFLAG_WAIT_BIND;
318	}
319	else
320	{
321	jd->flags &= ~JFLAG_WAIT_SESSION;
322	}
323
324	if( ( jd->flags & ( JFLAG_WAIT_BIND \| JFLAG_WAIT_SESSION ) ) == 0 )
325	{
326	if( !jabber_get_roster( ic ) )
327	return XT_ABORT;
328	}
329
330	return XT_HANDLED;
331	}
332
333	int jabber_get_roster( struct im_connection *ic )
334	{
335	struct xt_node *node;
336	int st;
337
338	imcb_log( ic, "Authenticated, requesting buddy list" );
339
340	node = xt_new_node( "query", NULL, NULL );
341	xt_add_attr( node, "xmlns", XMLNS_ROSTER );
342	node = jabber_make_packet( "iq", "get", NULL, node );
343
344	jabber_cache_add( ic, node, jabber_parse_roster );
345	st = jabber_write_packet( ic, node );
346
347	return st;
348	}
349
350	static xt_status jabber_parse_roster( struct im_connection ic, struct xt_node node, struct xt_node *orig )
351	{
352	struct xt_node query, c;
353	int initial = ( orig != NULL );
354
355	if( !( query = xt_find_node( node->children, "query" ) ) )
356	{
357	imcb_log( ic, "Warning: Received NULL roster packet" );
358	return XT_HANDLED;
359	}
360
361	c = query->children;
362	while( ( c = xt_find_node( c, "item" ) ) )
363	{
364	struct xt_node *group = xt_find_node( node->children, "group" );
365	char *jid = xt_find_attr( c, "jid" );
366	char *name = xt_find_attr( c, "name" );
367	char *sub = xt_find_attr( c, "subscription" );
368
369	if( jid && sub )
370	{
371	if( ( strcmp( sub, "both" ) == 0 \|\| strcmp( sub, "to" ) == 0 ) )
372	{
373	if( initial \|\| imcb_find_buddy( ic, jid ) == NULL )
374	imcb_add_buddy( ic, jid, ( group && group->text_len ) ?
375	group->text : NULL );
376
377	if( name )
378	imcb_rename_buddy( ic, jid, name );
379	}
380	else if( strcmp( sub, "remove" ) == 0 )
381	{
382	jabber_buddy_remove_bare( ic, jid );
383	imcb_remove_buddy( ic, jid, NULL );
384	}
385	}
386
387	c = c->next;
388	}
389
390	if( initial )
391	imcb_connected( ic );
392
393	return XT_HANDLED;
394	}
395
396	int jabber_get_vcard( struct im_connection ic, char bare_jid )
397	{
398	struct xt_node *node;
399
400	if( strchr( bare_jid, '/' ) )
401	return 1; /* This was an error, but return 0 should only be done if the connection died... */
402
403	node = xt_new_node( "vCard", NULL, NULL );
404	xt_add_attr( node, "xmlns", XMLNS_VCARD );
405	node = jabber_make_packet( "iq", "get", bare_jid, node );
406
407	jabber_cache_add( ic, node, jabber_iq_display_vcard );
408	return jabber_write_packet( ic, node );
409	}
410
411	static xt_status jabber_iq_display_vcard( struct im_connection ic, struct xt_node node, struct xt_node *orig )
412	{
413	struct xt_node vc, c, sc; / subchild, ic is already in use ;-) */
414	GString *reply;
415	char *s;
416
417	if( ( s = xt_find_attr( node, "type" ) ) == NULL \|\|
418	strcmp( s, "result" ) != 0 \|\|
419	( vc = xt_find_node( node->children, "vCard" ) ) == NULL )
420	{
421	s = xt_find_attr( orig, "to" ); /* If this returns NULL something's wrong.. */
422	imcb_log( ic, "Could not retrieve vCard of %s", s ? s : "(NULL)" );
423	return XT_HANDLED;
424	}
425
426	s = xt_find_attr( orig, "to" );
427	reply = g_string_new( "vCard information for " );
428	reply = g_string_append( reply, s ? s : "(NULL)" );
429	reply = g_string_append( reply, ":\n" );
430
431	/* I hate this format, I really do... */
432
433	if( ( c = xt_find_node( vc->children, "FN" ) ) && c->text_len )
434	g_string_append_printf( reply, "Name: %s\n", c->text );
435
436	if( ( c = xt_find_node( vc->children, "N" ) ) && c->children )
437	{
438	reply = g_string_append( reply, "Full name:" );
439
440	if( ( sc = xt_find_node( c->children, "PREFIX" ) ) && sc->text_len )
441	g_string_append_printf( reply, " %s", sc->text );
442	if( ( sc = xt_find_node( c->children, "GIVEN" ) ) && sc->text_len )
443	g_string_append_printf( reply, " %s", sc->text );
444	if( ( sc = xt_find_node( c->children, "MIDDLE" ) ) && sc->text_len )
445	g_string_append_printf( reply, " %s", sc->text );
446	if( ( sc = xt_find_node( c->children, "FAMILY" ) ) && sc->text_len )
447	g_string_append_printf( reply, " %s", sc->text );
448	if( ( sc = xt_find_node( c->children, "SUFFIX" ) ) && sc->text_len )
449	g_string_append_printf( reply, " %s", sc->text );
450
451	reply = g_string_append_c( reply, '\n' );
452	}
453
454	if( ( c = xt_find_node( vc->children, "NICKNAME" ) ) && c->text_len )
455	g_string_append_printf( reply, "Nickname: %s\n", c->text );
456
457	if( ( c = xt_find_node( vc->children, "BDAY" ) ) && c->text_len )
458	g_string_append_printf( reply, "Date of birth: %s\n", c->text );
459
460	/* Slightly alternative use of for... ;-) */
461	for( c = vc->children; ( c = xt_find_node( c, "EMAIL" ) ); c = c->next )
462	{
463	if( ( sc = xt_find_node( c->children, "USERID" ) ) == NULL \|\| sc->text_len == 0 )
464	continue;
465
466	if( xt_find_node( c->children, "HOME" ) )
467	s = "Home";
468	else if( xt_find_node( c->children, "WORK" ) )
469	s = "Work";
470	else
471	s = "Misc.";
472
473	g_string_append_printf( reply, "%s e-mail address: %s\n", s, sc->text );
474	}
475
476	if( ( c = xt_find_node( vc->children, "URL" ) ) && c->text_len )
477	g_string_append_printf( reply, "Homepage: %s\n", c->text );
478
479	/* Slightly alternative use of for... ;-) */
480	for( c = vc->children; ( c = xt_find_node( c, "ADR" ) ); c = c->next )
481	{
482	if( xt_find_node( c->children, "HOME" ) )
483	s = "Home";
484	else if( xt_find_node( c->children, "WORK" ) )
485	s = "Work";
486	else
487	s = "Misc.";
488
489	g_string_append_printf( reply, "%s address: ", s );
490
491	if( ( sc = xt_find_node( c->children, "STREET" ) ) && sc->text_len )
492	g_string_append_printf( reply, "%s ", sc->text );
493	if( ( sc = xt_find_node( c->children, "EXTADR" ) ) && sc->text_len )
494	g_string_append_printf( reply, "%s, ", sc->text );
495	if( ( sc = xt_find_node( c->children, "PCODE" ) ) && sc->text_len )
496	g_string_append_printf( reply, "%s, ", sc->text );
497	if( ( sc = xt_find_node( c->children, "LOCALITY" ) ) && sc->text_len )
498	g_string_append_printf( reply, "%s, ", sc->text );
499	if( ( sc = xt_find_node( c->children, "REGION" ) ) && sc->text_len )
500	g_string_append_printf( reply, "%s, ", sc->text );
501	if( ( sc = xt_find_node( c->children, "CTRY" ) ) && sc->text_len )
502	g_string_append_printf( reply, "%s", sc->text );
503
504	if( reply->str[reply->len-2] == ',' )
505	reply = g_string_truncate( reply, reply->len-2 );
506
507	reply = g_string_append_c( reply, '\n' );
508	}
509
510	for( c = vc->children; ( c = xt_find_node( c, "TEL" ) ); c = c->next )
511	{
512	if( ( sc = xt_find_node( c->children, "NUMBER" ) ) == NULL \|\| sc->text_len == 0 )
513	continue;
514
515	if( xt_find_node( c->children, "HOME" ) )
516	s = "Home";
517	else if( xt_find_node( c->children, "WORK" ) )
518	s = "Work";
519	else
520	s = "Misc.";
521
522	g_string_append_printf( reply, "%s phone number: %s\n", s, sc->text );
523	}
524
525	if( ( c = xt_find_node( vc->children, "DESC" ) ) && c->text_len )
526	g_string_append_printf( reply, "Other information:\n%s", c->text );
527
528	/* sigh */
529
530	imcb_log( ic, "%s", reply->str );
531	g_string_free( reply, TRUE );
532
533	return XT_HANDLED;
534	}
535
536	static xt_status jabber_add_to_roster_callback( struct im_connection ic, struct xt_node node, struct xt_node *orig );
537
538	int jabber_add_to_roster( struct im_connection ic, char handle, char *name )
539	{
540	struct xt_node *node;
541	int st;
542
543	/* Build the item entry */
544	node = xt_new_node( "item", NULL, NULL );
545	xt_add_attr( node, "jid", handle );
546	if( name )
547	xt_add_attr( node, "name", name );
548
549	/* And pack it into a roster-add packet */
550	node = xt_new_node( "query", NULL, node );
551	xt_add_attr( node, "xmlns", XMLNS_ROSTER );
552	node = jabber_make_packet( "iq", "set", NULL, node );
553	jabber_cache_add( ic, node, jabber_add_to_roster_callback );
554
555	st = jabber_write_packet( ic, node );
556
557	return st;
558	}
559
560	static xt_status jabber_add_to_roster_callback( struct im_connection ic, struct xt_node node, struct xt_node *orig )
561	{
562	char s, jid = NULL;
563	struct xt_node *c;
564
565	if( ( c = xt_find_node( orig->children, "query" ) ) &&
566	( c = xt_find_node( c->children, "item" ) ) &&
567	( jid = xt_find_attr( c, "jid" ) ) &&
568	( s = xt_find_attr( node, "type" ) ) &&
569	strcmp( s, "result" ) == 0 )
570	{
571	if( imcb_find_buddy( ic, jid ) == NULL )
572	imcb_add_buddy( ic, jid, NULL );
573	}
574	else
575	{
576	imcb_log( ic, "Error while adding `%s' to your contact list.",
577	jid ? jid : "(unknown handle)" );
578	}
579
580	return XT_HANDLED;
581	}
582
583	int jabber_remove_from_roster( struct im_connection ic, char handle )
584	{
585	struct xt_node *node;
586	int st;
587
588	/* Build the item entry */
589	node = xt_new_node( "item", NULL, NULL );
590	xt_add_attr( node, "jid", handle );
591	xt_add_attr( node, "subscription", "remove" );
592
593	/* And pack it into a roster-add packet */
594	node = xt_new_node( "query", NULL, node );
595	xt_add_attr( node, "xmlns", XMLNS_ROSTER );
596	node = jabber_make_packet( "iq", "set", NULL, node );
597
598	st = jabber_write_packet( ic, node );
599
600	xt_free_node( node );
601	return st;
602	}
603
604	xt_status jabber_iq_parse_features( struct im_connection ic, struct xt_node node, struct xt_node *orig );
605
606	xt_status jabber_iq_query_features( struct im_connection ic, char bare_jid )
607	{
608	struct xt_node node, query;
609	struct jabber_buddy *bud;
610
611	if( ( bud = jabber_buddy_by_jid( ic, bare_jid , 0 ) ) == NULL )
612	{
613	/* Who cares about the unknown... */
614	imcb_log( ic, "Couldnt find the man: %s", bare_jid);
615	return 0;
616	}
617
618	if( bud->features ) /* been here already */
619	return XT_HANDLED;
620
621	node = xt_new_node( "query", NULL, NULL );
622	xt_add_attr( node, "xmlns", XMLNS_DISCO_INFO );
623
624	if( !( query = jabber_make_packet( "iq", "get", bare_jid, node ) ) )
625	{
626	imcb_log( ic, "WARNING: Couldn't generate feature query" );
627	xt_free_node( node );
628	}
629
630	jabber_cache_add( ic, query, jabber_iq_parse_features );
631
632	return jabber_write_packet( ic, query );
633	}
634
635	xt_status jabber_iq_parse_features( struct im_connection ic, struct xt_node node, struct xt_node *orig )
636	{
637	struct xt_node *c;
638	struct jabber_buddy *bud;
639	char *feature;
640
641	if( !( c = xt_find_node( node->children, "query" ) ) \|\|
642	!( strcmp( xt_find_attr( c, "xmlns" ), XMLNS_DISCO_INFO ) == 0 ) )
643	{
644	imcb_log( ic, "WARNING: Received incomplete IQ-result packet for discover" );
645	return XT_HANDLED;
646	}
647	if( ( bud = jabber_buddy_by_jid( ic, xt_find_attr( node, "from") , 0 ) ) == NULL )
648	{
649	/* Who cares about the unknown... */
650	imcb_log( ic, "Couldnt find the man: %s", xt_find_attr( node, "from"));
651	return 0;
652	}
653
654	c = c->children;
655	while( ( c = xt_find_node( c, "feature" ) ) ) {
656	feature = xt_find_attr( c, "var" );
657	bud->features = g_slist_append(bud->features, g_strdup(feature) );
658	c = c->next;
659	}
660
661	return XT_HANDLED;
662	}
663
664	xt_status jabber_iq_parse_server_features( struct im_connection ic, struct xt_node node, struct xt_node *orig );
665
666	xt_status jabber_iq_query_server( struct im_connection ic, char jid, char *xmlns )
667	{
668	struct xt_node node, query;
669	struct jabber_data *jd = ic->proto_data;
670
671	node = xt_new_node( "query", NULL, NULL );
672	xt_add_attr( node, "xmlns", xmlns );
673
674	if( !( query = jabber_make_packet( "iq", "get", jid, node ) ) )
675	{
676	imcb_log( ic, "WARNING: Couldn't generate server query" );
677	xt_free_node( node );
678	}
679
680	jd->have_streamhosts--;
681	jabber_cache_add( ic, query, jabber_iq_parse_server_features );
682
683	return jabber_write_packet( ic, query );
684	}
685
686	/*
687	* Query the server for "items", query each "item" for identities, query each "item" that's a proxy for it's bytestream info
688	*/
689	xt_status jabber_iq_parse_server_features( struct im_connection ic, struct xt_node node, struct xt_node *orig )
690	{
691	struct xt_node *c;
692	struct jabber_data *jd = ic->proto_data;
693
694	if( !( c = xt_find_node( node->children, "query" ) ) \|\|
695	!xt_find_attr( node, "from" ) )
696	{
697	imcb_log( ic, "WARNING: Received incomplete IQ-result packet for discover" );
698	return XT_HANDLED;
699	}
700
701	jd->have_streamhosts++;
702
703	if( strcmp( xt_find_attr( c, "xmlns" ), XMLNS_DISCO_ITEMS ) == 0 )
704	{
705	char item, itemjid;
706
707	/* answer from server */
708
709	c = c->children;
710	while( ( c = xt_find_node( c, "item" ) ) )
711	{
712	item = xt_find_attr( c, "name" );
713	itemjid = xt_find_attr( c, "jid" );
714
715	jabber_iq_query_server( ic, itemjid, XMLNS_DISCO_INFO );
716
717	c = c->next;
718	}
719	} else if( strcmp( xt_find_attr( c, "xmlns" ), XMLNS_DISCO_INFO ) == 0 )
720	{
721	char category, type;
722
723	/* answer from potential proxy */
724
725	c = c->children;
726	while( ( c = xt_find_node( c, "identity" ) ) )
727	{
728	category = xt_find_attr( c, "category" );
729	type = xt_find_attr( c, "type" );
730
731	if( type && ( strcmp( type, "bytestreams" ) == 0 ) &&
732	category && ( strcmp( category, "proxy" ) == 0 ) )
733	jabber_iq_query_server( ic, xt_find_attr( node, "from" ), XMLNS_BYTESTREAMS );
734
735	c = c->next;
736	}
737	} else if( strcmp( xt_find_attr( c, "xmlns" ), XMLNS_BYTESTREAMS ) == 0 )
738	{
739	char host, jid;
740	int port;
741
742	/* answer from proxy */
743
744	if( ( c = xt_find_node( c->children, "streamhost" ) ) &&
745	( host = xt_find_attr( c, "host" ) ) &&
746	( port = atoi( xt_find_attr( c, "port" ) ) ) &&
747	( jid = xt_find_attr( c, "jid" ) ) )
748	{
749	jabber_streamhost_t *sh = g_new0( jabber_streamhost_t, 1 );
750	sh->jid = g_strdup( jid );
751	sh->host = g_strdup( host );
752	sprintf( sh->port, "%u", port );
753
754	imcb_log( ic, "Proxy found: jid %s host %s port %u", jid, host, port );
755	jd->streamhosts = g_slist_append( jd->streamhosts, sh );
756	}
757	}
758
759	if( jd->have_streamhosts == 0 )
760	jd->have_streamhosts++;
761	return XT_HANDLED;
762	}

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

Download in other formats: