Ignore:
Timestamp:
Sep 20, 2011, 11:15:32 PM (11 years ago)
Author:
Edward Z. Yang <ezyang@mit.edu>
Branches:
master, 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:
1 edited

Legend:

Unmodified
Added
Removed
  • perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm

    r01d186f re1ed6f4  
    112112
    113113    $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    }
    115117
    116118    return $self;
     
    400402    my $url = shift;
    401403
     404    if (!defined $url) {
     405        $self->facebook_do_auth;
     406        return;
     407    }
     408
    402409    # http://www.facebook.com/connect/login_success.html#access_token=TOKEN&expires_in=0
    403410    $url =~ /access_token=([^&]+)/; # XXX Ew regex
Note: See TracChangeset for help on using the changeset viewer.