Changeset e1ed6f4 for perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm

Timestamp:

Sep 20, 2011, 11:15:32 PM (13 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

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)

Message:

Refine module setup process.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>

File:

• perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm (modified) (2 diffs)

perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm

@@ -112 +112 @@
 
     $self->{facebook} = Facebook::Graph->new( app_id => $app_id );
-    $self->facebook_do_auth;
+    if ( defined $self->{cfg}->{token} ) {
+        $self->facebook_do_auth;
+    }
 
     return $self;
@@ -400 +402 @@
     my $url = shift;
 
+    if (!defined $url) {
+        $self->facebook_do_auth;
+        return;
+    }
+
     # http://www.facebook.com/connect/login_success.html#access_token=TOKEN&expires_in=0
     $url =~ /access_token=([^&]+)/; # XXX Ew regex