Changeset e1ed6f4 for perl/modules/Facebook/lib/BarnOwl/Module
- Timestamp:
- Sep 20, 2011, 11:15:32 PM (13 years ago)
- Branches:
- master, release-1.10, release-1.9
- Children:
- fb06a17
- Parents:
- a4ae221
- git-author:
- Edward Z. Yang <ezyang@mit.edu> (06/23/11 22:44:48)
- git-committer:
- Edward Z. Yang <ezyang@mit.edu> (09/20/11 23:15:32)
- Location:
- perl/modules/Facebook/lib/BarnOwl/Module
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Facebook/lib/BarnOwl/Module/Facebook.pm
ra4ae221 re1ed6f4 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
r01d186f re1ed6f4 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.