Changeset 4200d87 for perl/modules

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:

• perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm (modified) (1 diff)

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

@@ -439 +439 @@
     my $result = eval { $self->{facebook}->query()->find('me')->select_fields('name')->request->as_hashref; };
     if ($@) {
-        BarnOwl::admin_message('Facebook', "Failed to authenticate! Login to Facebook at ".$self->{login_url}
+        BarnOwl::admin_message('Facebook', "Failed to authenticate with '$@'!"
+            . "\nLogin to Facebook at ".$self->{login_url}
             . "\nand run command ':facebook-auth URL' with the URL you are redirected to.");
         return 0;