Context Navigation

source: protocols/purple/purple.c @ 370899f

Last change on this file since 370899f was ff94563, checked in by Wilmer van der Gaast <wilmer@…>, at 2011-03-26T12:02:38Z
Set the libpurple proxy server in a way that should work with older libpurple versions.
Property mode set to `100644`
File size: 37.4 KB

Line
1	/***************************************************************************\
2	* *
3	* BitlBee - An IRC to IM gateway *
4	* libpurple module - Main file *
5	* *
6	* Copyright 2009-2010 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 "bitlbee.h"
25	#include "help.h"
26
27	#include <stdarg.h>
28
29	#include <glib.h>
30	#include <purple.h>
31
32	GSList *purple_connections;
33
34	/* This makes me VERY sad... :-( But some libpurple callbacks come in without
35	any context so this is the only way to get that. Don't want to support
36	libpurple in daemon mode anyway. */
37	static bee_t *local_bee;
38
39	static char set_eval_display_name( set_t set, char *value );
40
41	struct im_connection purple_ic_by_pa( PurpleAccount pa )
42	{
43	GSList *i;
44
45	for( i = purple_connections; i; i = i->next )
46	if( ((struct im_connection *)i->data)->proto_data == pa )
47	return i->data;
48
49	return NULL;
50	}
51
52	static struct im_connection purple_ic_by_gc( PurpleConnection gc )
53	{
54	return purple_ic_by_pa( purple_connection_get_account( gc ) );
55	}
56
57	static gboolean purple_menu_cmp( const char a, const char b )
58	{
59	while( a && b )
60	{
61	while( *a == '_' ) a ++;
62	while( *b == '_' ) b ++;
63	if( tolower( a ) != tolower( b ) )
64	return FALSE;
65
66	a ++;
67	b ++;
68	}
69
70	return ( a == '\0' && b == '\0' );
71	}
72
73	static void purple_init( account_t *acc )
74	{
75	PurplePlugin prpl = purple_plugins_find_with_id( (char) acc->prpl->data );
76	PurplePluginProtocolInfo *pi = prpl->info->extra_info;
77	PurpleAccount *pa;
78	GList i, st;
79	set_t *s;
80	char help_title[64];
81	GString *help;
82	static gboolean dir_fixed = FALSE;
83
84	/* Layer violation coming up: Making an exception for libpurple here.
85	Dig in the IRC state a bit to get a username. Ideally we should
86	check if s/he identified but this info doesn't seem that important.
87	It's just that fecking libpurple can't not store this shit.
88
89	Remember that libpurple is not really meant to be used on public
90	servers anyway! */
91	if( !dir_fixed )
92	{
93	irc_t *irc = acc->bee->ui_data;
94	char *dir;
95
96	dir = g_strdup_printf( "%s/purple/%s", global.conf->configdir, irc->user->nick );
97	purple_util_set_user_dir( dir );
98	g_free( dir );
99
100	purple_blist_load();
101	purple_prefs_load();
102	dir_fixed = TRUE;
103	}
104
105	help = g_string_new( "" );
106	g_string_printf( help, "BitlBee libpurple module %s (%s).\n\nSupported settings:",
107	(char*) acc->prpl->name, prpl->info->name );
108
109	/* Convert all protocol_options into per-account setting variables. */
110	for( i = pi->protocol_options; i; i = i->next )
111	{
112	PurpleAccountOption *o = i->data;
113	const char *name;
114	char *def = NULL;
115	set_eval eval = NULL;
116	void *eval_data = NULL;
117	GList *io = NULL;
118	GSList *opts = NULL;
119
120	name = purple_account_option_get_setting( o );
121
122	switch( purple_account_option_get_type( o ) )
123	{
124	case PURPLE_PREF_STRING:
125	def = g_strdup( purple_account_option_get_default_string( o ) );
126
127	g_string_append_printf( help, "\n* %s (%s), %s, default: %s",
128	name, purple_account_option_get_text( o ),
129	"string", def );
130
131	break;
132
133	case PURPLE_PREF_INT:
134	def = g_strdup_printf( "%d", purple_account_option_get_default_int( o ) );
135	eval = set_eval_int;
136
137	g_string_append_printf( help, "\n* %s (%s), %s, default: %s",
138	name, purple_account_option_get_text( o ),
139	"integer", def );
140
141	break;
142
143	case PURPLE_PREF_BOOLEAN:
144	if( purple_account_option_get_default_bool( o ) )
145	def = g_strdup( "true" );
146	else
147	def = g_strdup( "false" );
148	eval = set_eval_bool;
149
150	g_string_append_printf( help, "\n* %s (%s), %s, default: %s",
151	name, purple_account_option_get_text( o ),
152	"boolean", def );
153
154	break;
155
156	case PURPLE_PREF_STRING_LIST:
157	def = g_strdup( purple_account_option_get_default_list_value( o ) );
158
159	g_string_append_printf( help, "\n* %s (%s), %s, default: %s",
160	name, purple_account_option_get_text( o ),
161	"list", def );
162	g_string_append( help, "\n Possible values: " );
163
164	for( io = purple_account_option_get_list( o ); io; io = io->next )
165	{
166	PurpleKeyValuePair *kv = io->data;
167	opts = g_slist_append( opts, kv->value );
168	/* TODO: kv->value is not a char, WTF? /
169	if( strcmp( kv->value, kv->key ) != 0 )
170	g_string_append_printf( help, "%s (%s), ", (char*) kv->value, kv->key );
171	else
172	g_string_append_printf( help, "%s, ", (char*) kv->value );
173	}
174	g_string_truncate( help, help->len - 2 );
175	eval = set_eval_list;
176	eval_data = opts;
177
178	break;
179
180	default:
181	/** No way to talk to the user right now, invent one when
182	this becomes important.
183	irc_usermsg( acc->irc, "Setting with unknown type: %s (%d) Expect stuff to break..\n",
184	name, purple_account_option_get_type( o ) );
185	*/
186	name = NULL;
187	}
188
189	if( name != NULL )
190	{
191	s = set_add( &acc->set, name, def, eval, acc );
192	s->flags \|= ACC_SET_OFFLINE_ONLY;
193	s->eval_data = eval_data;
194	g_free( def );
195	}
196	}
197
198	g_snprintf( help_title, sizeof( help_title ), "purple %s", (char*) acc->prpl->name );
199	help_add_mem( &global.help, help_title, help->str );
200	g_string_free( help, TRUE );
201
202	s = set_add( &acc->set, "display_name", NULL, set_eval_display_name, acc );
203	s->flags \|= ACC_SET_ONLINE_ONLY;
204
205	if( pi->options & OPT_PROTO_MAIL_CHECK )
206	{
207	s = set_add( &acc->set, "mail_notifications", "false", set_eval_bool, acc );
208	s->flags \|= ACC_SET_OFFLINE_ONLY;
209	}
210
211	if( strcmp( prpl->info->name, "Gadu-Gadu" ) == 0 )
212	s = set_add( &acc->set, "gg_sync_contacts", "true", set_eval_bool, acc );
213
214	/* Go through all away states to figure out if away/status messages
215	are possible. */
216	pa = purple_account_new( acc->user, (char*) acc->prpl->data );
217	for( st = purple_account_get_status_types( pa ); st; st = st->next )
218	{
219	PurpleStatusPrimitive prim = purple_status_type_get_primitive( st->data );
220
221	if( prim == PURPLE_STATUS_AVAILABLE )
222	{
223	if( purple_status_type_get_attr( st->data, "message" ) )
224	acc->flags \|= ACC_FLAG_STATUS_MESSAGE;
225	}
226	else if( prim != PURPLE_STATUS_OFFLINE )
227	{
228	if( purple_status_type_get_attr( st->data, "message" ) )
229	acc->flags \|= ACC_FLAG_AWAY_MESSAGE;
230	}
231	}
232	purple_accounts_remove( pa );
233	}
234
235	static void purple_sync_settings( account_t acc, PurpleAccount pa )
236	{
237	PurplePlugin *prpl = purple_plugins_find_with_id( pa->protocol_id );
238	PurplePluginProtocolInfo *pi = prpl->info->extra_info;
239	GList *i;
240
241	for( i = pi->protocol_options; i; i = i->next )
242	{
243	PurpleAccountOption *o = i->data;
244	const char *name;
245	set_t *s;
246
247	name = purple_account_option_get_setting( o );
248	s = set_find( &acc->set, name );
249	if( s->value == NULL )
250	continue;
251
252	switch( purple_account_option_get_type( o ) )
253	{
254	case PURPLE_PREF_STRING:
255	case PURPLE_PREF_STRING_LIST:
256	purple_account_set_string( pa, name, set_getstr( &acc->set, name ) );
257	break;
258
259	case PURPLE_PREF_INT:
260	purple_account_set_int( pa, name, set_getint( &acc->set, name ) );
261	break;
262
263	case PURPLE_PREF_BOOLEAN:
264	purple_account_set_bool( pa, name, set_getbool( &acc->set, name ) );
265	break;
266
267	default:
268	break;
269	}
270	}
271
272	if( pi->options & OPT_PROTO_MAIL_CHECK )
273	purple_account_set_check_mail( pa, set_getbool( &acc->set, "mail_notifications" ) );
274	}
275
276	static void purple_login( account_t *acc )
277	{
278	struct im_connection *ic = imcb_new( acc );
279	PurpleAccount *pa;
280
281	if( ( local_bee != NULL && local_bee != acc->bee ) \|\|
282	( global.conf->runmode == RUNMODE_DAEMON && !getenv( "BITLBEE_DEBUG" ) ) )
283	{
284	imcb_error( ic, "Daemon mode detected. Do not try to use libpurple in daemon mode! "
285	"Please use inetd or ForkDaemon mode instead." );
286	imc_logout( ic, FALSE );
287	return;
288	}
289	local_bee = acc->bee;
290
291	/* For now this is needed in the _connected() handlers if using
292	GLib event handling, to make sure we're not handling events
293	on dead connections. */
294	purple_connections = g_slist_prepend( purple_connections, ic );
295
296	ic->proto_data = pa = purple_account_new( acc->user, (char*) acc->prpl->data );
297	purple_account_set_password( pa, acc->pass );
298	purple_sync_settings( acc, pa );
299
300	purple_account_set_enabled( pa, "BitlBee", TRUE );
301	}
302
303	static void purple_logout( struct im_connection *ic )
304	{
305	PurpleAccount *pa = ic->proto_data;
306
307	purple_account_set_enabled( pa, "BitlBee", FALSE );
308	purple_connections = g_slist_remove( purple_connections, ic );
309	purple_accounts_remove( pa );
310	}
311
312	static int purple_buddy_msg( struct im_connection ic, char who, char *message, int flags )
313	{
314	PurpleConversation *conv;
315
316	if( ( conv = purple_find_conversation_with_account( PURPLE_CONV_TYPE_IM,
317	who, ic->proto_data ) ) == NULL )
318	{
319	conv = purple_conversation_new( PURPLE_CONV_TYPE_IM,
320	ic->proto_data, who );
321	}
322
323	purple_conv_im_send( purple_conversation_get_im_data( conv ), message );
324
325	return 1;
326	}
327
328	static GList purple_away_states( struct im_connection ic )
329	{
330	PurpleAccount *pa = ic->proto_data;
331	GList st, ret = NULL;
332
333	for( st = purple_account_get_status_types( pa ); st; st = st->next )
334	{
335	PurpleStatusPrimitive prim = purple_status_type_get_primitive( st->data );
336	if( prim != PURPLE_STATUS_AVAILABLE && prim != PURPLE_STATUS_OFFLINE )
337	ret = g_list_append( ret, (void*) purple_status_type_get_name( st->data ) );
338	}
339
340	return ret;
341	}
342
343	static void purple_set_away( struct im_connection ic, char state_txt, char *message )
344	{
345	PurpleAccount *pa = ic->proto_data;
346	GList status_types = purple_account_get_status_types( pa ), st;
347	PurpleStatusType *pst = NULL;
348	GList *args = NULL;
349
350	for( st = status_types; st; st = st->next )
351	{
352	pst = st->data;
353
354	if( state_txt == NULL &&
355	purple_status_type_get_primitive( pst ) == PURPLE_STATUS_AVAILABLE )
356	break;
357
358	if( state_txt != NULL &&
359	g_strcasecmp( state_txt, purple_status_type_get_name( pst ) ) == 0 )
360	break;
361	}
362
363	if( message && purple_status_type_get_attr( pst, "message" ) )
364	{
365	args = g_list_append( args, "message" );
366	args = g_list_append( args, message );
367	}
368
369	purple_account_set_status_list( pa, st ? purple_status_type_get_id( pst ) : "away",
370	TRUE, args );
371
372	g_list_free( args );
373	}
374
375	static char set_eval_display_name( set_t set, char *value )
376	{
377	account_t *acc = set->data;
378	struct im_connection *ic = acc->ic;
379
380	if( ic )
381	imcb_log( ic, "Changing display_name not currently supported with libpurple!" );
382
383	return NULL;
384	}
385
386	/* Bad bad gadu-gadu, not saving buddy list by itself */
387	static void purple_gg_buddylist_export( PurpleConnection *gc )
388	{
389	struct im_connection *ic = purple_ic_by_gc( gc );
390
391	if( set_getstr( &ic->acc->set, "gg_sync_contacts" ) )
392	{
393	GList *actions = gc->prpl->info->actions( gc->prpl, gc );
394	GList *p;
395	for( p = g_list_first(actions); p; p = p->next )
396	{
397	if( ((PurplePluginAction*)p->data) &&
398	purple_menu_cmp( ((PurplePluginAction*)p->data)->label, "Upload buddylist to Server" ) == 0)
399	{
400	PurplePluginAction action;
401	action.plugin = gc->prpl;
402	action.context = gc;
403	action.user_data = NULL;
404	((PurplePluginAction*)p->data)->callback(&action);
405	break;
406	}
407	}
408	g_list_free( actions );
409	}
410	}
411
412	static void purple_gg_buddylist_import( PurpleConnection *gc )
413	{
414	struct im_connection *ic = purple_ic_by_gc( gc );
415
416	if( set_getstr( &ic->acc->set, "gg_sync_contacts" ) )
417	{
418	GList *actions = gc->prpl->info->actions( gc->prpl, gc );
419	GList *p;
420	for( p = g_list_first(actions); p; p = p->next )
421	{
422	if( ((PurplePluginAction*)p->data) &&
423	purple_menu_cmp( ((PurplePluginAction*)p->data)->label, "Download buddylist from Server" ) == 0 )
424	{
425	PurplePluginAction action;
426	action.plugin = gc->prpl;
427	action.context = gc;
428	action.user_data = NULL;
429	((PurplePluginAction*)p->data)->callback(&action);
430	break;
431	}
432	}
433	g_list_free( actions );
434	}
435	}
436
437	static void purple_add_buddy( struct im_connection ic, char who, char *group )
438	{
439	PurpleBuddy *pb;
440	PurpleGroup *pg = NULL;
441
442	if( group && !( pg = purple_find_group( group ) ) )
443	{
444	pg = purple_group_new( group );
445	purple_blist_add_group( pg, NULL );
446	}
447
448	pb = purple_buddy_new( (PurpleAccount*) ic->proto_data, who, NULL );
449	purple_blist_add_buddy( pb, NULL, pg, NULL );
450	purple_account_add_buddy( (PurpleAccount*) ic->proto_data, pb );
451
452	purple_gg_buddylist_export( ((PurpleAccount*)ic->proto_data)->gc );
453	}
454
455	static void purple_remove_buddy( struct im_connection ic, char who, char *group )
456	{
457	PurpleBuddy *pb;
458
459	pb = purple_find_buddy( (PurpleAccount*) ic->proto_data, who );
460	if( pb != NULL )
461	{
462	PurpleGroup *group;
463
464	group = purple_buddy_get_group( pb );
465	purple_account_remove_buddy( (PurpleAccount*) ic->proto_data, pb, group );
466
467	purple_blist_remove_buddy( pb );
468	}
469
470	purple_gg_buddylist_export( ((PurpleAccount*)ic->proto_data)->gc );
471	}
472
473	static void purple_add_permit( struct im_connection ic, char who )
474	{
475	PurpleAccount *pa = ic->proto_data;
476
477	purple_privacy_permit_add( pa, who, FALSE );
478	}
479
480	static void purple_add_deny( struct im_connection ic, char who )
481	{
482	PurpleAccount *pa = ic->proto_data;
483
484	purple_privacy_deny_add( pa, who, FALSE );
485	}
486
487	static void purple_rem_permit( struct im_connection ic, char who )
488	{
489	PurpleAccount *pa = ic->proto_data;
490
491	purple_privacy_permit_remove( pa, who, FALSE );
492	}
493
494	static void purple_rem_deny( struct im_connection ic, char who )
495	{
496	PurpleAccount *pa = ic->proto_data;
497
498	purple_privacy_deny_remove( pa, who, FALSE );
499	}
500
501	static void purple_get_info( struct im_connection ic, char who )
502	{
503	serv_get_info( purple_account_get_connection( ic->proto_data ), who );
504	}
505
506	static void purple_keepalive( struct im_connection *ic )
507	{
508	}
509
510	static int purple_send_typing( struct im_connection ic, char who, int flags )
511	{
512	PurpleTypingState state = PURPLE_NOT_TYPING;
513	PurpleAccount *pa = ic->proto_data;
514
515	if( flags & OPT_TYPING )
516	state = PURPLE_TYPING;
517	else if( flags & OPT_THINKING )
518	state = PURPLE_TYPED;
519
520	serv_send_typing( purple_account_get_connection( pa ), who, state );
521
522	return 1;
523	}
524
525	static void purple_chat_msg( struct groupchat gc, char message, int flags )
526	{
527	PurpleConversation *pc = gc->data;
528
529	purple_conv_chat_send( purple_conversation_get_chat_data( pc ), message );
530	}
531
532	struct groupchat purple_chat_with( struct im_connection ic, char *who )
533	{
534	/* No, "of course" this won't work this way. Or in fact, it almost
535	does, but it only lets you send msgs to it, you won't receive
536	any. Instead, we have to click the virtual menu item.
537	PurpleAccount *pa = ic->proto_data;
538	PurpleConversation *pc;
539	PurpleConvChat *pcc;
540	struct groupchat *gc;
541
542	gc = imcb_chat_new( ic, "BitlBee-libpurple groupchat" );
543	gc->data = pc = purple_conversation_new( PURPLE_CONV_TYPE_CHAT, pa, "BitlBee-libpurple groupchat" );
544	pc->ui_data = gc;
545
546	pcc = PURPLE_CONV_CHAT( pc );
547	purple_conv_chat_add_user( pcc, ic->acc->user, "", 0, TRUE );
548	purple_conv_chat_invite_user( pcc, who, "Please join my chat", FALSE );
549	//purple_conv_chat_add_user( pcc, who, "", 0, TRUE );
550	*/
551
552	/* There went my nice afternoon. :-( */
553
554	PurpleAccount *pa = ic->proto_data;
555	PurplePlugin *prpl = purple_plugins_find_with_id( pa->protocol_id );
556	PurplePluginProtocolInfo *pi = prpl->info->extra_info;
557	PurpleBuddy pb = purple_find_buddy( (PurpleAccount) ic->proto_data, who );
558	PurpleMenuAction *mi;
559	GList *menu;
560	void (callback)(PurpleBlistNode , gpointer); /* FFFFFFFFFFFFFUUUUUUUUUUUUUU */
561
562	if( !pb \|\| !pi \|\| !pi->blist_node_menu )
563	return NULL;
564
565	menu = pi->blist_node_menu( &pb->node );
566	while( menu )
567	{
568	mi = menu->data;
569	if( purple_menu_cmp( mi->label, "initiate chat" ) \|\|
570	purple_menu_cmp( mi->label, "initiate conference" ) )
571	break;
572	menu = menu->next;
573	}
574
575	if( menu == NULL )
576	return NULL;
577
578	/* Call the fucker. */
579	callback = (void*) mi->callback;
580	callback( &pb->node, menu->data );
581
582	return NULL;
583	}
584
585	void purple_chat_invite( struct groupchat gc, char who, char *message )
586	{
587	PurpleConversation *pc = gc->data;
588	PurpleConvChat *pcc = PURPLE_CONV_CHAT( pc );
589
590	serv_chat_invite( purple_account_get_connection( gc->ic->proto_data ),
591	purple_conv_chat_get_id( pcc ),
592	message && *message ? message : "Please join my chat",
593	who );
594	}
595
596	void purple_chat_leave( struct groupchat *gc )
597	{
598	PurpleConversation *pc = gc->data;
599
600	purple_conversation_destroy( pc );
601	}
602
603	struct groupchat purple_chat_join( struct im_connection ic, const char room, const char nick, const char password, set_t *sets )
604	{
605	PurpleAccount *pa = ic->proto_data;
606	PurplePlugin *prpl = purple_plugins_find_with_id( pa->protocol_id );
607	PurplePluginProtocolInfo *pi = prpl->info->extra_info;
608	GHashTable *chat_hash;
609	PurpleConversation *conv;
610	GList info, l;
611
612	if( !pi->chat_info \|\| !pi->chat_info_defaults \|\|
613	!( info = pi->chat_info( purple_account_get_connection( pa ) ) ) )
614	{
615	imcb_error( ic, "Joining chatrooms not supported by this protocol" );
616	return NULL;
617	}
618
619	if( ( conv = purple_find_conversation_with_account( PURPLE_CONV_TYPE_CHAT, room, pa ) ) )
620	purple_conversation_destroy( conv );
621
622	chat_hash = pi->chat_info_defaults( purple_account_get_connection( pa ), room );
623
624	for( l = info; l; l = l->next )
625	{
626	struct proto_chat_entry *pce = l->data;
627
628	if( strcmp( pce->identifier, "handle" ) == 0 )
629	g_hash_table_replace( chat_hash, "handle", g_strdup( nick ) );
630	else if( strcmp( pce->identifier, "password" ) == 0 )
631	g_hash_table_replace( chat_hash, "password", g_strdup( password ) );
632	else if( strcmp( pce->identifier, "passwd" ) == 0 )
633	g_hash_table_replace( chat_hash, "passwd", g_strdup( password ) );
634	}
635
636	serv_join_chat( purple_account_get_connection( pa ), chat_hash );
637
638	return NULL;
639	}
640
641	void purple_transfer_request( struct im_connection ic, file_transfer_t ft, char *handle );
642
643	static void purple_ui_init();
644
645	GHashTable *prplcb_ui_info()
646	{
647	static GHashTable *ret;
648
649	if( ret == NULL )
650	{
651	ret = g_hash_table_new(g_str_hash, g_str_equal);
652	g_hash_table_insert( ret, "name", "BitlBee" );
653	g_hash_table_insert( ret, "version", BITLBEE_VERSION );
654	}
655
656	return ret;
657	}
658
659	static PurpleCoreUiOps bee_core_uiops =
660	{
661	NULL,
662	NULL,
663	purple_ui_init,
664	NULL,
665	prplcb_ui_info,
666	};
667
668	static void prplcb_conn_progress( PurpleConnection gc, const char text, size_t step, size_t step_count )
669	{
670	struct im_connection *ic = purple_ic_by_gc( gc );
671
672	imcb_log( ic, "%s", text );
673	}
674
675	static void prplcb_conn_connected( PurpleConnection *gc )
676	{
677	struct im_connection *ic = purple_ic_by_gc( gc );
678	const char *dn;
679	set_t *s;
680
681	imcb_connected( ic );
682
683	if( ( dn = purple_connection_get_display_name( gc ) ) &&
684	( s = set_find( &ic->acc->set, "display_name" ) ) )
685	{
686	g_free( s->value );
687	s->value = g_strdup( dn );
688	}
689
690	// user list needs to be requested for Gadu-Gadu
691	purple_gg_buddylist_import( gc );
692
693	if( gc->flags & PURPLE_CONNECTION_HTML )
694	ic->flags \|= OPT_DOES_HTML;
695	}
696
697	static void prplcb_conn_disconnected( PurpleConnection *gc )
698	{
699	struct im_connection *ic = purple_ic_by_gc( gc );
700
701	if( ic != NULL )
702	{
703	imc_logout( ic, !gc->wants_to_die );
704	}
705	}
706
707	static void prplcb_conn_notice( PurpleConnection gc, const char text )
708	{
709	struct im_connection *ic = purple_ic_by_gc( gc );
710
711	if( ic != NULL )
712	imcb_log( ic, "%s", text );
713	}
714
715	static void prplcb_conn_report_disconnect_reason( PurpleConnection gc, PurpleConnectionError reason, const char text )
716	{
717	struct im_connection *ic = purple_ic_by_gc( gc );
718
719	/* PURPLE_CONNECTION_ERROR_NAME_IN_USE means concurrent login,
720	should probably handle that. */
721	if( ic != NULL )
722	imcb_error( ic, "%s", text );
723	}
724
725	static PurpleConnectionUiOps bee_conn_uiops =
726	{
727	prplcb_conn_progress,
728	prplcb_conn_connected,
729	prplcb_conn_disconnected,
730	prplcb_conn_notice,
731	NULL,
732	NULL,
733	NULL,
734	prplcb_conn_report_disconnect_reason,
735	};
736
737	static void prplcb_blist_update( PurpleBuddyList list, PurpleBlistNode node )
738	{
739	if( node->type == PURPLE_BLIST_BUDDY_NODE )
740	{
741	PurpleBuddy bud = (PurpleBuddy) node;
742	PurpleGroup *group = purple_buddy_get_group( bud );
743	struct im_connection *ic = purple_ic_by_pa( bud->account );
744	PurpleStatus *as;
745	int flags = 0;
746
747	if( ic == NULL )
748	return;
749
750	if( bud->server_alias )
751	imcb_rename_buddy( ic, bud->name, bud->server_alias );
752
753	if( group )
754	imcb_add_buddy( ic, bud->name, purple_group_get_name( group ) );
755
756	flags \|= purple_presence_is_online( bud->presence ) ? OPT_LOGGED_IN : 0;
757	flags \|= purple_presence_is_available( bud->presence ) ? 0 : OPT_AWAY;
758
759	as = purple_presence_get_active_status( bud->presence );
760
761	imcb_buddy_status( ic, bud->name, flags, purple_status_get_name( as ),
762	purple_status_get_attr_string( as, "message" ) );
763
764	imcb_buddy_times( ic, bud->name,
765	purple_presence_get_login_time( bud->presence ),
766	purple_presence_get_idle_time( bud->presence ) );
767	}
768	}
769
770	static void prplcb_blist_new( PurpleBlistNode *node )
771	{
772	if( node->type == PURPLE_BLIST_BUDDY_NODE )
773	{
774	PurpleBuddy bud = (PurpleBuddy) node;
775	struct im_connection *ic = purple_ic_by_pa( bud->account );
776
777	if( ic == NULL )
778	return;
779
780	imcb_add_buddy( ic, bud->name, NULL );
781
782	prplcb_blist_update( NULL, node );
783	}
784	}
785
786	static void prplcb_blist_remove( PurpleBuddyList list, PurpleBlistNode node )
787	{
788	/*
789	PurpleBuddy bud = (PurpleBuddy) node;
790
791	if( node->type == PURPLE_BLIST_BUDDY_NODE )
792	{
793	struct im_connection *ic = purple_ic_by_pa( bud->account );
794
795	if( ic == NULL )
796	return;
797
798	imcb_remove_buddy( ic, bud->name, NULL );
799	}
800	*/
801	}
802
803	static PurpleBlistUiOps bee_blist_uiops =
804	{
805	NULL,
806	prplcb_blist_new,
807	NULL,
808	prplcb_blist_update,
809	prplcb_blist_remove,
810	};
811
812	void prplcb_conv_new( PurpleConversation *conv )
813	{
814	if( conv->type == PURPLE_CONV_TYPE_CHAT )
815	{
816	struct im_connection *ic = purple_ic_by_pa( conv->account );
817	struct groupchat *gc;
818
819	gc = imcb_chat_new( ic, conv->name );
820	conv->ui_data = gc;
821	gc->data = conv;
822
823	/* libpurple brokenness: Whatever. Show that we join right away,
824	there's no clear "This is you!" signaling in _add_users so
825	don't even try. */
826	imcb_chat_add_buddy( gc, gc->ic->acc->user );
827	}
828	}
829
830	void prplcb_conv_free( PurpleConversation *conv )
831	{
832	struct groupchat *gc = conv->ui_data;
833
834	imcb_chat_free( gc );
835	}
836
837	void prplcb_conv_add_users( PurpleConversation conv, GList cbuddies, gboolean new_arrivals )
838	{
839	struct groupchat *gc = conv->ui_data;
840	GList *b;
841
842	for( b = cbuddies; b; b = b->next )
843	{
844	PurpleConvChatBuddy *pcb = b->data;
845
846	imcb_chat_add_buddy( gc, pcb->name );
847	}
848	}
849
850	void prplcb_conv_del_users( PurpleConversation conv, GList cbuddies )
851	{
852	struct groupchat *gc = conv->ui_data;
853	GList *b;
854
855	for( b = cbuddies; b; b = b->next )
856	imcb_chat_remove_buddy( gc, b->data, "" );
857	}
858
859	void prplcb_conv_chat_msg( PurpleConversation conv, const char who, const char *message, PurpleMessageFlags flags, time_t mtime )
860	{
861	struct groupchat *gc = conv->ui_data;
862	PurpleBuddy *buddy;
863
864	/* ..._SEND means it's an outgoing message, no need to echo those. */
865	if( flags & PURPLE_MESSAGE_SEND )
866	return;
867
868	buddy = purple_find_buddy( conv->account, who );
869	if( buddy != NULL )
870	who = purple_buddy_get_name( buddy );
871
872	imcb_chat_msg( gc, who, (char*) message, 0, mtime );
873	}
874
875	static void prplcb_conv_im( PurpleConversation conv, const char who, const char *message, PurpleMessageFlags flags, time_t mtime )
876	{
877	struct im_connection *ic = purple_ic_by_pa( conv->account );
878	PurpleBuddy *buddy;
879
880	/* ..._SEND means it's an outgoing message, no need to echo those. */
881	if( flags & PURPLE_MESSAGE_SEND )
882	return;
883
884	buddy = purple_find_buddy( conv->account, who );
885	if( buddy != NULL )
886	who = purple_buddy_get_name( buddy );
887
888	imcb_buddy_msg( ic, (char) who, (char) message, 0, mtime );
889	}
890
891	/* No, this is not a ui_op but a signal. */
892	static void prplcb_buddy_typing( PurpleAccount account, const char who, gpointer null )
893	{
894	PurpleConversation *conv;
895	PurpleConvIm *im;
896	int state;
897
898	if( ( conv = purple_find_conversation_with_account( PURPLE_CONV_TYPE_IM, who, account ) ) == NULL )
899	return;
900
901	im = PURPLE_CONV_IM(conv);
902	switch( purple_conv_im_get_typing_state( im ) )
903	{
904	case PURPLE_TYPING:
905	state = OPT_TYPING;
906	break;
907	case PURPLE_TYPED:
908	state = OPT_THINKING;
909	break;
910	default:
911	state = 0;
912	}
913
914	imcb_buddy_typing( purple_ic_by_pa( account ), who, state );
915	}
916
917	static PurpleConversationUiOps bee_conv_uiops =
918	{
919	prplcb_conv_new, /* create_conversation */
920	prplcb_conv_free, /* destroy_conversation */
921	prplcb_conv_chat_msg, /* write_chat */
922	prplcb_conv_im, /* write_im */
923	NULL, /* write_conv */
924	prplcb_conv_add_users, /* chat_add_users */
925	NULL, /* chat_rename_user */
926	prplcb_conv_del_users, /* chat_remove_users */
927	NULL, /* chat_update_user */
928	NULL, /* present */
929	NULL, /* has_focus */
930	NULL, /* custom_smiley_add */
931	NULL, /* custom_smiley_write */
932	NULL, /* custom_smiley_close */
933	NULL, /* send_confirm */
934	};
935
936	struct prplcb_request_action_data
937	{
938	void user_data, bee_data;
939	PurpleRequestActionCb yes, no;
940	int yes_i, no_i;
941	};
942
943	static void prplcb_request_action_yes( void *data )
944	{
945	struct prplcb_request_action_data *pqad = data;
946
947	if( pqad->yes )
948	pqad->yes( pqad->user_data, pqad->yes_i );
949	g_free( pqad );
950	}
951
952	static void prplcb_request_action_no( void *data )
953	{
954	struct prplcb_request_action_data *pqad = data;
955
956	if( pqad->no )
957	pqad->no( pqad->user_data, pqad->no_i );
958	g_free( pqad );
959	}
960
961	static void prplcb_request_action( const char title, const char primary, const char secondary,
962	int default_action, PurpleAccount account, const char who,
963	PurpleConversation conv, void user_data, size_t action_count,
964	va_list actions )
965	{
966	struct prplcb_request_action_data *pqad;
967	int i;
968	char *q;
969
970	pqad = g_new0( struct prplcb_request_action_data, 1 );
971
972	for( i = 0; i < action_count; i ++ )
973	{
974	char *caption;
975	void *fn;
976
977	caption = va_arg( actions, char* );
978	fn = va_arg( actions, void* );
979
980	if( strstr( caption, "Accept" ) \|\| strstr( caption, "OK" ) )
981	{
982	pqad->yes = fn;
983	pqad->yes_i = i;
984	}
985	else if( strstr( caption, "Reject" ) \|\| strstr( caption, "Cancel" ) )
986	{
987	pqad->no = fn;
988	pqad->no_i = i;
989	}
990	}
991
992	pqad->user_data = user_data;
993
994	/* TODO: IRC stuff here :-( */
995	q = g_strdup_printf( "Request: %s\n\n%s\n\n%s", title, primary, secondary );
996	pqad->bee_data = query_add( local_bee->ui_data, purple_ic_by_pa( account ), q,
997	prplcb_request_action_yes, prplcb_request_action_no, g_free, pqad );
998
999	g_free( q );
1000
1001	return pqad;
1002	}
1003
1004	/*
1005	static void prplcb_request_test()
1006	{
1007	fprintf( stderr, "bla\n" );
1008	}
1009	*/
1010
1011	static PurpleRequestUiOps bee_request_uiops =
1012	{
1013	NULL,
1014	NULL,
1015	prplcb_request_action,
1016	NULL,
1017	NULL,
1018	NULL,
1019	NULL,
1020	};
1021
1022	static void prplcb_privacy_permit_added( PurpleAccount account, const char name )
1023	{
1024	struct im_connection *ic = purple_ic_by_pa( account );
1025
1026	if( !g_slist_find_custom( ic->permit, name, (GCompareFunc) ic->acc->prpl->handle_cmp ) )
1027	ic->permit = g_slist_prepend( ic->permit, g_strdup( name ) );
1028	}
1029
1030	static void prplcb_privacy_permit_removed( PurpleAccount account, const char name )
1031	{
1032	struct im_connection *ic = purple_ic_by_pa( account );
1033	void *n;
1034
1035	n = g_slist_find_custom( ic->permit, name, (GCompareFunc) ic->acc->prpl->handle_cmp );
1036	ic->permit = g_slist_remove( ic->permit, n );
1037	}
1038
1039	static void prplcb_privacy_deny_added( PurpleAccount account, const char name )
1040	{
1041	struct im_connection *ic = purple_ic_by_pa( account );
1042
1043	if( !g_slist_find_custom( ic->deny, name, (GCompareFunc) ic->acc->prpl->handle_cmp ) )
1044	ic->deny = g_slist_prepend( ic->deny, g_strdup( name ) );
1045	}
1046
1047	static void prplcb_privacy_deny_removed( PurpleAccount account, const char name )
1048	{
1049	struct im_connection *ic = purple_ic_by_pa( account );
1050	void *n;
1051
1052	n = g_slist_find_custom( ic->deny, name, (GCompareFunc) ic->acc->prpl->handle_cmp );
1053	ic->deny = g_slist_remove( ic->deny, n );
1054	}
1055
1056	static PurplePrivacyUiOps bee_privacy_uiops =
1057	{
1058	prplcb_privacy_permit_added,
1059	prplcb_privacy_permit_removed,
1060	prplcb_privacy_deny_added,
1061	prplcb_privacy_deny_removed,
1062	};
1063
1064	static void prplcb_debug_print( PurpleDebugLevel level, const char category, const char arg_s )
1065	{
1066	fprintf( stderr, "DEBUG %s: %s", category, arg_s );
1067	}
1068
1069	static PurpleDebugUiOps bee_debug_uiops =
1070	{
1071	prplcb_debug_print,
1072	};
1073
1074	static guint prplcb_ev_timeout_add( guint interval, GSourceFunc func, gpointer udata )
1075	{
1076	return b_timeout_add( interval, (b_event_handler) func, udata );
1077	}
1078
1079	static guint prplcb_ev_input_add( int fd, PurpleInputCondition cond, PurpleInputFunction func, gpointer udata )
1080	{
1081	return b_input_add( fd, cond \| B_EV_FLAG_FORCE_REPEAT, (b_event_handler) func, udata );
1082	}
1083
1084	static gboolean prplcb_ev_remove( guint id )
1085	{
1086	b_event_remove( (gint) id );
1087	return TRUE;
1088	}
1089
1090	static PurpleEventLoopUiOps glib_eventloops =
1091	{
1092	prplcb_ev_timeout_add,
1093	prplcb_ev_remove,
1094	prplcb_ev_input_add,
1095	prplcb_ev_remove,
1096	};
1097
1098	static void prplcb_notify_email( PurpleConnection gc, const char subject, const char from,
1099	const char to, const char url )
1100	{
1101	struct im_connection *ic = purple_ic_by_gc( gc );
1102
1103	imcb_log( ic, "Received e-mail from %s for %s: %s <%s>", from, to, subject, url );
1104
1105	return NULL;
1106	}
1107
1108	static void prplcb_notify_userinfo( PurpleConnection gc, const char who, PurpleNotifyUserInfo user_info )
1109	{
1110	struct im_connection *ic = purple_ic_by_gc( gc );
1111	GString *info = g_string_new( "" );
1112	GList *l = purple_notify_user_info_get_entries( user_info );
1113	char *key;
1114	const char *value;
1115	int n;
1116
1117	while( l )
1118	{
1119	PurpleNotifyUserInfoEntry *e = l->data;
1120
1121	switch( purple_notify_user_info_entry_get_type( e ) )
1122	{
1123	case PURPLE_NOTIFY_USER_INFO_ENTRY_PAIR:
1124	case PURPLE_NOTIFY_USER_INFO_ENTRY_SECTION_HEADER:
1125	key = g_strdup( purple_notify_user_info_entry_get_label( e ) );
1126	value = purple_notify_user_info_entry_get_value( e );
1127
1128	if( key )
1129	{
1130	strip_html( key );
1131	g_string_append_printf( info, "%s: ", key );
1132
1133	if( value )
1134	{
1135	n = strlen( value ) - 1;
1136	while( isspace( value[n] ) )
1137	n --;
1138	g_string_append_len( info, value, n + 1 );
1139	}
1140	g_string_append_c( info, '\n' );
1141	g_free( key );
1142	}
1143
1144	break;
1145	case PURPLE_NOTIFY_USER_INFO_ENTRY_SECTION_BREAK:
1146	g_string_append( info, "------------------------\n" );
1147	break;
1148	}
1149
1150	l = l->next;
1151	}
1152
1153	imcb_log( ic, "User %s info:\n%s", who, info->str );
1154	g_string_free( info, TRUE );
1155
1156	return NULL;
1157	}
1158
1159	static PurpleNotifyUiOps bee_notify_uiops =
1160	{
1161	NULL,
1162	prplcb_notify_email,
1163	NULL,
1164	NULL,
1165	NULL,
1166	NULL,
1167	prplcb_notify_userinfo,
1168	};
1169
1170	static void prplcb_account_request_authorize( PurpleAccount account, const char *remote_user,
1171	const char id, const char alias, const char *message, gboolean on_list,
1172	PurpleAccountRequestAuthorizationCb authorize_cb, PurpleAccountRequestAuthorizationCb deny_cb, void *user_data )
1173	{
1174	struct im_connection *ic = purple_ic_by_pa( account );
1175	char *q;
1176
1177	if( alias )
1178	q = g_strdup_printf( "%s (%s) wants to add you to his/her contact "
1179	"list. (%s)", alias, remote_user, message );
1180	else
1181	q = g_strdup_printf( "%s wants to add you to his/her contact "
1182	"list. (%s)", remote_user, message );
1183
1184	imcb_ask_with_free( ic, q, user_data, authorize_cb, deny_cb, NULL );
1185	g_free( q );
1186
1187	return NULL;
1188	}
1189
1190	static PurpleAccountUiOps bee_account_uiops =
1191	{
1192	NULL,
1193	NULL,
1194	NULL,
1195	prplcb_account_request_authorize,
1196	NULL,
1197	};
1198
1199	extern PurpleXferUiOps bee_xfer_uiops;
1200
1201	static void purple_ui_init()
1202	{
1203	purple_connections_set_ui_ops( &bee_conn_uiops );
1204	purple_blist_set_ui_ops( &bee_blist_uiops );
1205	purple_conversations_set_ui_ops( &bee_conv_uiops );
1206	purple_request_set_ui_ops( &bee_request_uiops );
1207	purple_privacy_set_ui_ops( &bee_privacy_uiops );
1208	purple_notify_set_ui_ops( &bee_notify_uiops );
1209	purple_accounts_set_ui_ops( &bee_account_uiops );
1210	purple_xfers_set_ui_ops( &bee_xfer_uiops );
1211
1212	if( getenv( "BITLBEE_DEBUG" ) )
1213	purple_debug_set_ui_ops( &bee_debug_uiops );
1214	}
1215
1216	void purple_initmodule()
1217	{
1218	struct prpl funcs;
1219	GList *prots;
1220	GString *help;
1221	char *dir;
1222
1223	if( B_EV_IO_READ != PURPLE_INPUT_READ \|\|
1224	B_EV_IO_WRITE != PURPLE_INPUT_WRITE )
1225	{
1226	/* FIXME FIXME FIXME FIXME FIXME :-) */
1227	exit( 1 );
1228	}
1229
1230	dir = g_strdup_printf( "%s/purple", global.conf->configdir );
1231	purple_util_set_user_dir( dir );
1232	g_free( dir );
1233
1234	purple_debug_set_enabled( FALSE );
1235	purple_core_set_ui_ops( &bee_core_uiops );
1236	purple_eventloop_set_ui_ops( &glib_eventloops );
1237	if( !purple_core_init( "BitlBee") )
1238	{
1239	/* Initializing the core failed. Terminate. */
1240	fprintf( stderr, "libpurple initialization failed.\n" );
1241	abort();
1242	}
1243
1244	if( proxytype != PROXY_NONE )
1245	{
1246	PurpleProxyInfo *pi = purple_global_proxy_get_info();
1247	switch( proxytype )
1248	{
1249	case PROXY_SOCKS4:
1250	purple_proxy_info_set_type( pi, PURPLE_PROXY_SOCKS4 );
1251	break;
1252	case PROXY_SOCKS5:
1253	purple_proxy_info_set_type( pi, PURPLE_PROXY_SOCKS5 );
1254	break;
1255	case PROXY_HTTP:
1256	purple_proxy_info_set_type( pi, PURPLE_PROXY_HTTP );
1257	break;
1258	}
1259	purple_proxy_info_set_host( pi, proxyhost );
1260	purple_proxy_info_set_port( pi, proxyport );
1261	purple_proxy_info_set_username( pi, proxyuser );
1262	purple_proxy_info_set_password( pi, proxypass );
1263	}
1264
1265	purple_set_blist( purple_blist_new() );
1266
1267	/* No, really. So far there were ui_ops for everything, but now suddenly
1268	one needs to use signals for typing notification stuff. :-( */
1269	purple_signal_connect( purple_conversations_get_handle(), "buddy-typing",
1270	&funcs, PURPLE_CALLBACK(prplcb_buddy_typing), NULL );
1271	purple_signal_connect( purple_conversations_get_handle(), "buddy-typed",
1272	&funcs, PURPLE_CALLBACK(prplcb_buddy_typing), NULL );
1273	purple_signal_connect( purple_conversations_get_handle(), "buddy-typing-stopped",
1274	&funcs, PURPLE_CALLBACK(prplcb_buddy_typing), NULL );
1275
1276	memset( &funcs, 0, sizeof( funcs ) );
1277	funcs.login = purple_login;
1278	funcs.init = purple_init;
1279	funcs.logout = purple_logout;
1280	funcs.buddy_msg = purple_buddy_msg;
1281	funcs.away_states = purple_away_states;
1282	funcs.set_away = purple_set_away;
1283	funcs.add_buddy = purple_add_buddy;
1284	funcs.remove_buddy = purple_remove_buddy;
1285	funcs.add_permit = purple_add_permit;
1286	funcs.add_deny = purple_add_deny;
1287	funcs.rem_permit = purple_rem_permit;
1288	funcs.rem_deny = purple_rem_deny;
1289	funcs.get_info = purple_get_info;
1290	funcs.keepalive = purple_keepalive;
1291	funcs.send_typing = purple_send_typing;
1292	funcs.handle_cmp = g_strcasecmp;
1293	/* TODO(wilmer): Set these only for protocols that support them? */
1294	funcs.chat_msg = purple_chat_msg;
1295	funcs.chat_with = purple_chat_with;
1296	funcs.chat_invite = purple_chat_invite;
1297	funcs.chat_leave = purple_chat_leave;
1298	funcs.chat_join = purple_chat_join;
1299	funcs.transfer_request = purple_transfer_request;
1300
1301	help = g_string_new( "BitlBee libpurple module supports the following IM protocols:\n" );
1302
1303	/* Add a protocol entry to BitlBee's structures for every protocol
1304	supported by this libpurple instance. */
1305	for( prots = purple_plugins_get_protocols(); prots; prots = prots->next )
1306	{
1307	PurplePlugin *prot = prots->data;
1308	struct prpl *ret;
1309
1310	/* If we already have this one (as a native module), don't
1311	add a libpurple duplicate. */
1312	if( find_protocol( prot->info->id ) )
1313	continue;
1314
1315	ret = g_memdup( &funcs, sizeof( funcs ) );
1316	ret->name = ret->data = prot->info->id;
1317	if( strncmp( ret->name, "prpl-", 5 ) == 0 )
1318	ret->name += 5;
1319	register_protocol( ret );
1320
1321	g_string_append_printf( help, "\n* %s (%s)", ret->name, prot->info->name );
1322
1323	/* libpurple doesn't define a protocol called OSCAR, but we
1324	need it to be compatible with normal BitlBee. */
1325	if( g_strcasecmp( prot->info->id, "prpl-aim" ) == 0 )
1326	{
1327	ret = g_memdup( &funcs, sizeof( funcs ) );
1328	ret->name = "oscar";
1329	ret->data = prot->info->id;
1330	register_protocol( ret );
1331	}
1332	}
1333
1334	g_string_append( help, "\n\nFor used protocols, more information about available "
1335	"settings can be found using \x02help purple <protocol name>\x02 "
1336	"(create an account using that protocol first!)" );
1337
1338	/* Add a simple dynamically-generated help item listing all
1339	the supported protocols. */
1340	help_add_mem( &global.help, "purple", help->str );
1341	g_string_free( help, TRUE );
1342	}

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

Download in other formats: