Changeset 525dd8d for perl/modules/Facebook
- Timestamp:
- Jun 23, 2011, 10:44:48 PM (13 years ago)
- Children:
- 4839f5a
- Parents:
- 3d304b9
- Location:
- perl/modules/Facebook
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Facebook/README
r2f6c263 r525dd8d 6 6 7 7 SYNOPSIS 8 (1) Create an empty file ~/.owl/facebook (you can use the command9 `touch ~/.owl/facebook`), in order to enable the module.8 (1) Run ":reload-module Facebook" inside BarnOwl, if the module has 9 not been loaded already. 10 10 11 (2) Run ":reload-module Facebook" inside BarnOwl. 12 13 (3) Follow the instructions in the admin message. BarnOwl will 14 ask you to log in via an OAuth URL, and run ':facebook-auth' 15 with the resulting URL. It will then ask you to record the 16 resulting access token in your ~/.owl/facebook file, so you do 17 not have to login on subsequent BarnOwl sesions. 11 (2) Run ':facebook-auth'. Follow the instructions in the admin 12 message. BarnOwl will ask you to log in via an OAuth URL, and run 13 ':facebook-auth $URL' where $URL is the URL you were redirected to. 14 It will then ask you to record the resulting access token in an 15 ~/.owl/facebook file, so you do not have to login on subsequent 16 BarnOwl sesions. 18 17 19 18 This token is valid until you change your … … 21 20 http://www.facebook.com/settings/?tab=applications&app_id=235537266461636 22 21 23 ( 4) Start receiving wall updates in Barnowl!22 (3) Start receiving wall updates in Barnowl! 24 23 You can post updates with the ":facebook" command. 25 24 -
perl/modules/Facebook/lib/BarnOwl/Module/Facebook.pm
r3d304b9 r525dd8d 73 73 BarnOwl::new_command('facebook-auth' => \&cmd_facebook_auth, { 74 74 summary => 'Authenticate as a Facebook user.', 75 usage => 'facebook-auth URL',75 usage => 'facebook-auth [URL]', 76 76 description => 'Authenticate as a Facebook user. URL should be the page' 77 ."\nFacebook redirects you to after OAuth login." 77 ."\nFacebook redirects you to after OAuth login. If no URL" 78 ."\nis specified, output instructions for logging in." 78 79 }); 79 80 -
perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm
r2f6c263 r525dd8d 112 112 113 113 $self->{facebook} = Facebook::Graph->new( app_id => $app_id ); 114 $self->facebook_do_auth; 114 if ( defined $self->{cfg}->{token} ) { 115 $self->facebook_do_auth; 116 } 115 117 116 118 return $self; … … 400 402 my $url = shift; 401 403 404 if (!defined $url) { 405 $self->facebook_do_auth; 406 return; 407 } 408 402 409 # http://www.facebook.com/connect/login_success.html#access_token=TOKEN&expires_in=0 403 410 $url =~ /access_token=([^&]+)/; # XXX Ew regex
Note: See TracChangeset
for help on using the changeset viewer.