updated facebook auth to work with new facebook change/brokeness

This commit is contained in:
JT Smith 2010-09-01 12:16:05 -05:00
parent 1753ce64b3
commit 5723af9b73
2 changed files with 53 additions and 0 deletions

View file

@ -1003,6 +1003,7 @@
"WebGUI::Content::Wizard",
"WebGUI::Content::Operation",
"WebGUI::Content::Setup",
"WebGUI::Content::FacebookAuth",
"WebGUI::Content::Shop",
"WebGUI::Content::SiteIndex",
"WebGUI::Content::Asset",

View file

@ -0,0 +1,52 @@
package WebGUI::Content::FacebookAuth;
=head1 LEGAL
-------------------------------------------------------------------
WebGUI is Copyright 2001-2010 Plain Black Corporation.
-------------------------------------------------------------------
Please read the legal notices (docs/legal.txt) and the license
(docs/license.txt) that came with this distribution before using
this software.
-------------------------------------------------------------------
http://www.plainblack.com info@plainblack.com
-------------------------------------------------------------------
=cut
use strict;
use WebGUI::Auth::Facebook;
=head1 NAME
Package WebGUI::Content::FacebookAuth;
=head1 DESCRIPTION
Because is Facebook is dumb, and changed their API to no longer use query parameters, this module exists to handle the auth postback.
=head1 SUBROUTINES
These subroutines are available from this package:
=cut
#-------------------------------------------------------------------
=head2 handler ( session )
The content handler for this package.
=cut
sub handler {
my ($session) = @_;
if ($session->scratch->get('waiting_for_facebook_auth_postback')) {
$session->scratch->delete('waiting_for_facebook_auth_postback');
WebGUI::Auth::Facebook->new($session)->www_callback;
}
return undef;
}
1;
#vim:ft=perl