2012.08.18
Catalyst で Facebook の OAuth を使う
ライブラリを使わずにやりたかったので、PerlでOAuth 2.0を使ってみた を参考にした。
こちらのページの Plack::Request, Plack::Response を使わずに、Catalyst の $c->res を使った感じ。
http://localhost:3000/auth というページが Facebook Developers の Site URLに登録してあるとする。
/auth というパスに処理を作るため、
$ perl script/hello_create.pl controller Auth
で Controller を作り、lib/Hello/Controller/Auth.pm を編集する。
1: Facebookページにリダイレクトして、Facebookにログインし、このアプリのアクセスを許可する
2: $redirect_uri に codeパラメータ付きで戻ってくる
3: token を取得するため、codeパラメータを使用して再び Facebook API にアクセスする
4: その token を使用すると、Facebookのその人の情報にアクセスできる
sub index : Path :Args(0) { my ( $self, $c ) = @_; my $app_id = '(Facebook Developers の App ID)'; my $app_secret = '(Facebook Developers の App Secret)'; my $authz_endpoint = 'https://www.facebook.com/dialog/oauth'; my $token_endpoint = 'https://graph.facebook.com/oauth/access_token'; # Facebook Developers の Website with Facebook Login の Site URL my $redirect_uri = 'http://localhost:3000/auth'; # 2) get authorization code if ( my $code = $c->req->param('code') ) { # 3) get access token my $uri = URI->new($token_endpoint); $uri->query_form( client_id => $app_id, client_secret => $app_secret, redirect_uri => $redirect_uri, code => $code ); my $ua = LWP::UserAgent->new; my $r = $ua->get($uri); my %params = (); for my $pair ( split( /&/, $r->content ) ) { my ( $key, $value ) = split( /=/, $pair ); $params{$key} = $value; } my $token = $params{access_token}; # 4) get protected resources if ($token) { my $url = 'https://graph.facebook.com/me/friends'; (略) $c->response->body($html); } else { $c->response->body('fail to get token'); } } else { # 1) redirect to authorization endpoint my $uri = URI->new($authz_endpoint); $uri->query_form( client_id => $app_id, redirect_uri => $redirect_uri, ); $c->res->redirect($uri); } }
理解のため全コードを Controller に書いてるけど、実際に使うんだったらうまいことキレイにすべし。
[…] OAuthは前に Facebook のをやったときと、ほとんど同じ。 本家サイトを見てできた。 API Console […]