source: protocols/twitter/twitter.c @ cc20520

Last change on this file since cc20520 was 748bcdd, checked in by Wilmer van der Gaast <wilmer@…>, at 2010-11-21T15:23:54Z

Time out if logging in takes too long (2m for now). Except for Twitter
OAuth login, which requires user action. This mostly solves problems with
OSCAR login silently failing, but may also be useful in other places.
  • Property mode set to 100644
File size: 15.0 KB
Line 
1/***************************************************************************\
2*                                                                           *
3*  BitlBee - An IRC to IM gateway                                           *
4*  Simple module to facilitate twitter functionality.                       *
5*                                                                           *
6*  Copyright 2009 Geert Mulders <g.c.w.m.mulders@gmail.com>                 *
7*                                                                           *
8*  This library is free software; you can redistribute it and/or            *
9*  modify it under the terms of the GNU Lesser General Public               *
10*  License as published by the Free Software Foundation, version            *
11*  2.1.                                                                     *
12*                                                                           *
13*  This library 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 GNU        *
16*  Lesser General Public License for more details.                          *
17*                                                                           *
18*  You should have received a copy of the GNU Lesser General Public License *
19*  along with this library; if not, write to the Free Software Foundation,  *
20*  Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA           *
21*                                                                           *
22****************************************************************************/
23
24#include "nogaim.h"
25#include "oauth.h"
26#include "twitter.h"
27#include "twitter_http.h"
28#include "twitter_lib.h"
29#include "url.h"
30
31#define twitter_msg( ic, fmt... ) \
32        do {                                                        \
33                struct twitter_data *td = ic->proto_data;           \
34                if( td->home_timeline_gc )                          \
35                        imcb_chat_log( td->home_timeline_gc, fmt ); \
36                else                                                \
37                        imcb_log( ic, fmt );                        \
38        } while( 0 );
39               
40GSList *twitter_connections = NULL;
41
42/**
43 * Main loop function
44 */
45gboolean twitter_main_loop(gpointer data, gint fd, b_input_condition cond)
46{
47        struct im_connection *ic = data;
48       
49        // Check if we are still logged in...
50        if (!g_slist_find( twitter_connections, ic ))
51                return 0;
52
53        // Do stuff..
54        twitter_get_home_timeline(ic, -1);
55
56        // If we are still logged in run this function again after timeout.
57        return (ic->flags & OPT_LOGGED_IN) == OPT_LOGGED_IN;
58}
59
60static void twitter_main_loop_start( struct im_connection *ic )
61{
62        struct twitter_data *td = ic->proto_data;
63       
64        imcb_log( ic, "Getting initial statuses" );
65
66        // Run this once. After this queue the main loop function.
67        twitter_main_loop(ic, -1, 0);
68
69        // Queue the main_loop
70        // Save the return value, so we can remove the timeout on logout.
71        td->main_loop_id = b_timeout_add(60000, twitter_main_loop, ic);
72}
73
74static void twitter_oauth_start( struct im_connection *ic );
75
76void twitter_login_finish( struct im_connection *ic )
77{
78        struct twitter_data *td = ic->proto_data;
79       
80        if( set_getbool( &ic->acc->set, "oauth" ) && !td->oauth_info )
81                twitter_oauth_start( ic );
82        else if( g_strcasecmp( set_getstr( &ic->acc->set, "mode" ), "one" ) != 0 &&
83                 !( td->flags & TWITTER_HAVE_FRIENDS ) )
84        {
85                imcb_log( ic, "Getting contact list" );
86                twitter_get_statuses_friends( ic, -1 );
87        }
88        else
89                twitter_main_loop_start( ic );
90}
91
92static const struct oauth_service twitter_oauth =
93{
94        "http://api.twitter.com/oauth/request_token",
95        "http://api.twitter.com/oauth/access_token",
96        "https://api.twitter.com/oauth/authorize",
97        .consumer_key = "xsDNKJuNZYkZyMcu914uEA",
98        .consumer_secret = "FCxqcr0pXKzsF9ajmP57S3VQ8V6Drk4o2QYtqMcOszo",
99};
100
101static gboolean twitter_oauth_callback( struct oauth_info *info );
102
103static void twitter_oauth_start( struct im_connection *ic )
104{
105        struct twitter_data *td = ic->proto_data;
106       
107        imcb_log( ic, "Requesting OAuth request token" );
108
109        td->oauth_info = oauth_request_token( &twitter_oauth, twitter_oauth_callback, ic );
110       
111        /* We need help from the user to complete OAuth login, so don't time
112           out on this login. */
113        ic->flags |= OPT_SLOW_LOGIN;
114}
115
116static gboolean twitter_oauth_callback( struct oauth_info *info )
117{
118        struct im_connection *ic = info->data;
119        struct twitter_data *td;
120       
121        if( !g_slist_find( twitter_connections, ic ) )
122                return FALSE;
123       
124        td = ic->proto_data;
125        if( info->stage == OAUTH_REQUEST_TOKEN )
126        {
127                char name[strlen(ic->acc->user)+9], *msg;
128               
129                if( info->request_token == NULL )
130                {
131                        imcb_error( ic, "OAuth error: %s", info->http->status_string );
132                        imc_logout( ic, TRUE );
133                        return FALSE;
134                }
135               
136                sprintf( name, "%s_%s", td->prefix, ic->acc->user );
137                msg = g_strdup_printf( "To finish OAuth authentication, please visit "
138                                       "%s and respond with the resulting PIN code.",
139                                       info->auth_url );
140                imcb_buddy_msg( ic, name, msg, 0, 0 );
141                g_free( msg );
142        }
143        else if( info->stage == OAUTH_ACCESS_TOKEN )
144        {
145                if( info->token == NULL || info->token_secret == NULL )
146                {
147                        imcb_error( ic, "OAuth error: %s", info->http->status_string );
148                        imc_logout( ic, TRUE );
149                        return FALSE;
150                }
151               
152                /* IM mods didn't do this so far and it's ugly but I should
153                   be able to get away with it... */
154                g_free( ic->acc->pass );
155                ic->acc->pass = oauth_to_string( info );
156               
157                twitter_login_finish( ic );
158        }
159       
160        return TRUE;
161}
162
163
164static char *set_eval_mode( set_t *set, char *value )
165{
166        if( g_strcasecmp( value, "one" ) == 0 ||
167            g_strcasecmp( value, "many" ) == 0 ||
168            g_strcasecmp( value, "chat" ) == 0 )
169                return value;
170        else
171                return NULL;
172}
173
174static gboolean twitter_length_check( struct im_connection *ic, gchar *msg )
175{
176        int max = set_getint( &ic->acc->set, "message_length" ), len;
177       
178        if( max == 0 || ( len = g_utf8_strlen( msg, -1 ) ) <= max )
179                return TRUE;
180       
181        imcb_error( ic, "Maximum message length exceeded: %d > %d", len, max );
182       
183        return FALSE;
184}
185
186static void twitter_init( account_t *acc )
187{
188        set_t *s;
189        char *def_url;
190        char *def_oauth;
191       
192        if( strcmp( acc->prpl->name, "twitter" ) == 0 )
193        {
194                def_url = TWITTER_API_URL;
195                def_oauth = "true";
196        }
197        else /* if( strcmp( acc->prpl->name, "identica" ) == 0 ) */
198        {
199                def_url = IDENTICA_API_URL;
200                def_oauth = "false";
201        }
202       
203        s = set_add( &acc->set, "auto_reply_timeout", "10800", set_eval_int, acc );
204       
205        s = set_add( &acc->set, "base_url", def_url, NULL, acc );
206        s->flags |= ACC_SET_OFFLINE_ONLY;
207       
208        s = set_add( &acc->set, "commands", "true", set_eval_bool, acc );
209       
210        s = set_add( &acc->set, "message_length", "140", set_eval_int, acc );
211       
212        s = set_add( &acc->set, "mode", "chat", set_eval_mode, acc );
213        s->flags |= ACC_SET_OFFLINE_ONLY;
214       
215        s = set_add( &acc->set, "oauth", def_oauth, set_eval_bool, acc );
216}
217
218/**
219 * Login method. Since the twitter API works with seperate HTTP request we
220 * only save the user and pass to the twitter_data object.
221 */
222static void twitter_login( account_t *acc )
223{
224        struct im_connection *ic = imcb_new( acc );
225        struct twitter_data *td;
226        char name[strlen(acc->user)+9];
227        url_t url;
228
229        if( !url_set( &url, set_getstr( &ic->acc->set, "base_url" ) ) ||
230            ( url.proto != PROTO_HTTP && url.proto != PROTO_HTTPS ) )
231        {
232                imcb_error( ic, "Incorrect API base URL: %s", set_getstr( &ic->acc->set, "base_url" ) );
233                imc_logout( ic, FALSE );
234                return;
235        }
236       
237        twitter_connections = g_slist_append( twitter_connections, ic );
238        td = g_new0( struct twitter_data, 1 );
239        ic->proto_data = td;
240       
241        td->url_ssl = url.proto == PROTO_HTTPS;
242        td->url_port = url.port;
243        td->url_host = g_strdup( url.host );
244        if( strcmp( url.file, "/" ) != 0 )
245                td->url_path = g_strdup( url.file );
246        else
247                td->url_path = g_strdup( "" );
248        if( g_str_has_suffix( url.host, ".com" ) )
249                td->prefix = g_strndup( url.host, strlen( url.host ) - 4 );
250        else
251                td->prefix = g_strdup( url.host );
252       
253        td->user = acc->user;
254        if( strstr( acc->pass, "oauth_token=" ) )
255                td->oauth_info = oauth_from_string( acc->pass, &twitter_oauth );
256       
257        sprintf( name, "%s_%s", td->prefix, acc->user );
258        imcb_add_buddy( ic, name, NULL );
259        imcb_buddy_status( ic, name, OPT_LOGGED_IN, NULL, NULL );
260       
261        imcb_log( ic, "Connecting" );
262       
263        twitter_login_finish( ic );
264}
265
266/**
267 * Logout method. Just free the twitter_data.
268 */
269static void twitter_logout( struct im_connection *ic )
270{
271        struct twitter_data *td = ic->proto_data;
272       
273        // Set the status to logged out.
274        ic->flags &= ~ OPT_LOGGED_IN;
275
276        // Remove the main_loop function from the function queue.
277        b_event_remove(td->main_loop_id);
278
279        if(td->home_timeline_gc)
280                imcb_chat_free(td->home_timeline_gc);
281
282        if( td )
283        {
284                oauth_info_free( td->oauth_info );
285                g_free( td->prefix );
286                g_free( td->url_host );
287                g_free( td->url_path );
288                g_free( td->pass );
289                g_free( td );
290        }
291
292        twitter_connections = g_slist_remove( twitter_connections, ic );
293}
294
295static void twitter_handle_command( struct im_connection *ic, char *message );
296
297/**
298 *
299 */
300static int twitter_buddy_msg( struct im_connection *ic, char *who, char *message, int away )
301{
302        struct twitter_data *td = ic->proto_data;
303        int plen = strlen( td->prefix );
304       
305        if (g_strncasecmp(who, td->prefix, plen) == 0 && who[plen] == '_' &&
306            g_strcasecmp(who + plen + 1, ic->acc->user) == 0)
307        {
308                if( set_getbool( &ic->acc->set, "oauth" ) &&
309                    td->oauth_info && td->oauth_info->token == NULL )
310                {
311                        char pin[strlen(message)+1], *s;
312                       
313                        strcpy( pin, message );
314                        for( s = pin + sizeof( pin ) - 2; s > pin && isspace( *s ); s -- )
315                                *s = '\0';
316                        for( s = pin; *s && isspace( *s ); s ++ ) {}
317                       
318                        if( !oauth_access_token( s, td->oauth_info ) )
319                        {
320                                imcb_error( ic, "OAuth error: %s", "Failed to send access token request" );
321                                imc_logout( ic, TRUE );
322                                return FALSE;
323                        }
324                }
325                else
326                        twitter_handle_command(ic, message);
327        }
328        else
329        {
330                twitter_direct_messages_new(ic, who, message);
331        }
332        return( 0 );
333}
334
335/**
336 *
337 */
338static void twitter_set_my_name( struct im_connection *ic, char *info )
339{
340}
341
342static void twitter_get_info(struct im_connection *ic, char *who) 
343{
344}
345
346static void twitter_add_buddy( struct im_connection *ic, char *who, char *group )
347{
348        twitter_friendships_create_destroy(ic, who, 1);
349}
350
351static void twitter_remove_buddy( struct im_connection *ic, char *who, char *group )
352{
353        twitter_friendships_create_destroy(ic, who, 0);
354}
355
356static void twitter_chat_msg( struct groupchat *c, char *message, int flags )
357{
358        if( c && message )
359                twitter_handle_command( c->ic, message );
360}
361
362static void twitter_chat_invite( struct groupchat *c, char *who, char *message )
363{
364}
365
366static void twitter_chat_leave( struct groupchat *c )
367{
368        struct twitter_data *td = c->ic->proto_data;
369       
370        if( c != td->home_timeline_gc )
371                return; /* WTF? */
372       
373        /* If the user leaves the channel: Fine. Rejoin him/her once new
374           tweets come in. */
375        imcb_chat_free(td->home_timeline_gc);
376        td->home_timeline_gc = NULL;
377}
378
379static struct groupchat *twitter_chat_with( struct im_connection *ic, char *who )
380{
381        return NULL;
382}
383
384static void twitter_keepalive( struct im_connection *ic )
385{
386}
387
388static void twitter_add_permit( struct im_connection *ic, char *who )
389{
390}
391
392static void twitter_rem_permit( struct im_connection *ic, char *who )
393{
394}
395
396static void twitter_add_deny( struct im_connection *ic, char *who )
397{
398}
399
400static void twitter_rem_deny( struct im_connection *ic, char *who )
401{
402}
403
404static int twitter_send_typing( struct im_connection *ic, char *who, int typing )
405{
406        return( 1 );
407}
408
409//static char *twitter_set_display_name( set_t *set, char *value )
410//{
411//      return value;
412//}
413
414static void twitter_buddy_data_add( struct bee_user *bu )
415{
416        bu->data = g_new0( struct twitter_user_data, 1 );
417}
418
419static void twitter_buddy_data_free( struct bee_user *bu )
420{
421        g_free( bu->data );
422}
423
424static void twitter_handle_command( struct im_connection *ic, char *message )
425{
426        struct twitter_data *td = ic->proto_data;
427        char *cmds, **cmd;
428       
429        cmds = g_strdup( message );
430        cmd = split_command_parts( cmds );
431       
432        if( cmd[0] == NULL )
433        {
434                g_free( cmds );
435                return;
436        }
437        else if( !set_getbool( &ic->acc->set, "commands" ) )
438        {
439                /* Not supporting commands. */
440        }
441        else if( g_strcasecmp( cmd[0], "undo" ) == 0 )
442        {
443                guint64 id;
444               
445                if( cmd[1] )
446                        id = g_ascii_strtoull( cmd[1], NULL, 10 );
447                else
448                        id = td->last_status_id;
449               
450                /* TODO: User feedback. */
451                if( id )
452                        twitter_status_destroy( ic, id );
453                else
454                        twitter_msg( ic, "Could not undo last action" );
455               
456                g_free( cmds );
457                return;
458        }
459        else if( g_strcasecmp( cmd[0], "follow" ) == 0 && cmd[1] )
460        {
461                twitter_add_buddy( ic, cmd[1], NULL );
462                g_free( cmds );
463                return;
464        }
465        else if( g_strcasecmp( cmd[0], "unfollow" ) == 0 && cmd[1] )
466        {
467                twitter_remove_buddy( ic, cmd[1], NULL );
468                g_free( cmds );
469                return;
470        }
471        else if( g_strcasecmp( cmd[0], "rt" ) == 0 && cmd[1] )
472        {
473                struct twitter_user_data *tud;
474                bee_user_t *bu;
475                guint64 id;
476               
477                if( ( bu = bee_user_by_handle( ic->bee, ic, cmd[1] ) ) &&
478                    ( tud = bu->data ) && tud->last_id )
479                        id = tud->last_id;
480                else
481                        id = g_ascii_strtoull( cmd[1], NULL, 10 );
482               
483                td->last_status_id = 0;
484                if( id )
485                        twitter_status_retweet( ic, id );
486                else
487                        twitter_msg( ic, "User `%s' does not exist or didn't "
488                                         "post any statuses recently", cmd[1] );
489               
490                g_free( cmds );
491                return;
492        }
493        else if( g_strcasecmp( cmd[0], "post" ) == 0 )
494        {
495                message += 5;
496        }
497       
498        {
499                guint64 in_reply_to = 0;
500                char *s, *new = NULL;
501                bee_user_t *bu;
502               
503                if( !twitter_length_check( ic, message ) )
504                {
505                        g_free( cmds );
506                        return;
507                }
508               
509                s = cmd[0] + strlen( cmd[0] ) - 1;
510                if( s > cmd[0] && ( *s == ':' || *s == ',' ) )
511                {
512                        *s = '\0';
513                       
514                        if( ( bu = bee_user_by_handle( ic->bee, ic, cmd[0] ) ) )
515                        {
516                                struct twitter_user_data *tud = bu->data;
517                               
518                                new = g_strdup_printf( "@%s %s", bu->handle,
519                                                       message + ( s - cmd[0] ) + 2 );
520                                message = new;
521                               
522                                if( time( NULL ) < tud->last_time +
523                                    set_getint( &ic->acc->set, "auto_reply_timeout" ) )
524                                        in_reply_to = tud->last_id;
525                        }
526                }
527               
528                /* If the user runs undo between this request and its response
529                   this would delete the second-last Tweet. Prevent that. */
530                td->last_status_id = 0;
531                twitter_post_status( ic, message, in_reply_to );
532                g_free( new );
533        }
534        g_free( cmds );
535}
536
537void twitter_initmodule()
538{
539        struct prpl *ret = g_new0(struct prpl, 1);
540       
541        ret->options = OPT_NOOTR;
542        ret->name = "twitter";
543        ret->login = twitter_login;
544        ret->init = twitter_init;
545        ret->logout = twitter_logout;
546        ret->buddy_msg = twitter_buddy_msg;
547        ret->get_info = twitter_get_info;
548        ret->set_my_name = twitter_set_my_name;
549        ret->add_buddy = twitter_add_buddy;
550        ret->remove_buddy = twitter_remove_buddy;
551        ret->chat_msg = twitter_chat_msg;
552        ret->chat_invite = twitter_chat_invite;
553        ret->chat_leave = twitter_chat_leave;
554        ret->chat_with = twitter_chat_with;
555        ret->keepalive = twitter_keepalive;
556        ret->add_permit = twitter_add_permit;
557        ret->rem_permit = twitter_rem_permit;
558        ret->add_deny = twitter_add_deny;
559        ret->rem_deny = twitter_rem_deny;
560        ret->send_typing = twitter_send_typing;
561        ret->buddy_data_add = twitter_buddy_data_add;
562        ret->buddy_data_free = twitter_buddy_data_free;
563        ret->handle_cmp = g_strcasecmp;
564       
565        register_protocol(ret);
566
567        /* And an identi.ca variant: */
568        ret = g_memdup(ret, sizeof(struct prpl));
569        ret->name = "identica";
570        register_protocol(ret);
571}
Note: See TracBrowser for help on using the repository browser.