Changeset 7cb2830 for perl


Ignore:
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:
d9c6631
Parents:
a7ac83a
git-author:
Edward Z. Yang <ezyang@mit.edu> (06/24/11 07:34:15)
git-committer:
Edward Z. Yang <ezyang@mit.edu> (09/20/11 23:15:32)
Message:
Show error message why failed to authenticate.

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

    ra7ac83a r7cb2830  
    439439    my $result = eval { $self->{facebook}->query()->find('me')->select_fields('name')->request->as_hashref; };
    440440    if ($@) {
    441         BarnOwl::admin_message('Facebook', "Failed to authenticate! Login to Facebook at ".$self->{login_url}
     441        BarnOwl::admin_message('Facebook', "Failed to authenticate with '$@'!"
     442            . "\nLogin to Facebook at ".$self->{login_url}
    442443            . "\nand run command ':facebook-auth URL' with the URL you are redirected to.");
    443444        return 0;
Note: See TracChangeset for help on using the changeset viewer.