Changeset 4200d87 for perl/modules


Ignore:
Timestamp:
Sep 19, 2011, 1:31:35 PM (13 years ago)
Author:
Edward Z. Yang <ezyang@mit.edu>
Children:
cb5d448
Parents:
e5b119a
git-author:
Edward Z. Yang <ezyang@mit.edu> (06/24/11 07:34:15)
git-committer:
Edward Z. Yang <ezyang@mit.edu> (09/19/11 13:31:35)
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

    re5b119a r4200d87  
    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.