鐃緒申鐃緒申Web鐃緒申鐃竣ワ申任鐃緒申蠅随申鐃緒申福鐃緒申箸鐃緒申鐃緒申鐃緒申鐃�Catalyst鐃叔わ申鐃獣つわ申認鐃准緒申鐃緒申鐃緒申鐃緒申里肋鐃緒申鐃緒申鐃緒申檗鐃�
鐃緒申鐃緒申鐃叔￥申Catalyst鐃叔削申流鐃峻わ申(?)鐃緒申鐃熟てわ申認鐃緒申鐃緒申箸鐃緒申鐃緒申鐃塾プラグ鐃緒申鐃緒申鐃書いてみまわ申鐃緒申鐃緒申鐃緒申箸鐃�Hatena::API::Auth鐃緒申単鐃祝使ってみわ申鐃緒申鐃緒申鐃緒申
鐃緒申Catalyst::Plugin::Authentication::Credential::HatenaAuth
鐃緒申鐃緒申鐃夙わ申鐃夙わ申鐃緒申粉鐃緒申鐃緒申暴颪韻鐃処う鐃祝なわ申泙鐃緒申鐃�
use Catalyst qw/Authentication::Credential::HatenaAuth/;
MyApp->config->{authentication}{hatenaauth} = {
secret => 'xxxxxxxxx',
api_key => 'xxxxxxxxxxxxxxxxxxxx',
};
__PACKAGE__->setup;
sub default : Private {
my ( $self, $c ) = @_;
$c->authenticate_hatena;
$c->res->redirect('/') if $c->req->param('cert');
if( $c->req->cookies->{hatenaauth} ){
my %data = $c->req->cookies->{hatenaauth}->value;
$c->stash->{username} = $data{name};
$c->stash->{image_url} = $data{image_url};
$c->stash->{thumbnail_url} = $data{thumbnail_url};
}
}
sub login : Local {
my ( $self, $c ) = @_;
$c->res->redirect( $c->config->{hatena_api}->uri_to_login );
}鐃淑駕申鐃緒申鐃緒申鐃緒申箸鐃緒申鐃緒申鐃�
鐃熟てわ申認鐃准わ申必鐃竣なのわ申鐃緒申密鐃緒申鐃緒申API鐃緒申鐃緒申鐃淑ので￥申config鐃緒申YAML鐃春ワ申鐃緒申鐃緒申里匹鐃緒申蕕�鐃祝誌申鐃所し鐃銃わ申鐃緒申鐃殉わ申鐃緒申
# config鐃祝書く常申鐃�
MyApp->config->{authentication}{hatenaauth} = {
secret => 'xxxxxxxxx',
api_key => 'xxxxxxxxxxxxxxxxxxxx',
};# myapp.yml鐃祝書く常申鐃�
authentication:
hatenaauth:
secret: xxxxxxxxx
api_key: xxxxxxxxxxxxxxxxxxxxCookie鐃祝鰹申納鐃緒申鐃曙た鐃叔￥申鐃緒申鐃塾種申鐃緒申鐃緒申鐃夙￥申鐃熟てわ申認鐃緒申API鐃緒申鐃緒申鐃叔э申攘鐃縮種申鐃緒申鐃緒申鐃�(鐃緒申鐃緒申鐃緒申丱奪鐃�URL)鐃緒申鐃緒申鐃緒申鐃緒申任魯肇奪廛據鐃緒申鐃緒申鐃塾常申鐃緒申鐃獣てわ申鐃殉わ申鐃緒申
cert鐃春わ申鐃緒申URL鐃叔「刻申鐃緒申鐃竣ボワ申鐃緒申魏，鐃緒申鐃緒申肇鐃緒申蕁種申砲覆鐃塾で￥申鐃熟てなわ申認鐃准件申未鐃緒申鐃緒申鐃�(cert鐃緒申鐃緒申鐃緒申箸鐃�)鐃熟ワ申鐃緒申鐃緒申譽�鐃夙わ申鐃銃わ申鐃殉わ申鐃緒申
sub default : Private {
my ( $self, $c ) = @_;
$c->authenticate_hatena; # 鐃緒申鐃緒申鐃�callback URL鐃祝書く￥申
$c->res->redirect('/') if $c->req->param('cert'); #
if( $c->req->cookies->{hatenaauth} ){
my %data = $c->req->cookies->{hatenaauth}->value;
$c->stash->{username} = $data{name};
$c->stash->{image_url} = $data{image_url};
$c->stash->{thumbnail_url} = $data{thumbnail_url};
}
}http://example.com/login鐃緒申鐃緒申鐃緒申鐃緒申鐃�URL鐃夙わ申鐃暑。
sub login : Local {
my ( $self, $c ) = @_;
$c->res->redirect( $c->config->{hatena_api}->uri_to_login );
}鐃緒申鐃�TT鐃緒申適鐃緒申鐃緒申分鐃緒申鐃緒申鐃銃わ申鐃緒申鐃緒申弌鐃緒申鐃緒申鐃緒申鐃緒申鐃術みの常申鐃熟ユー鐃緒申鐃緒申鐃緒申鐃宿緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申任覆鐃緒申鐃緒申砲魯鐃緒申鐃緒申鐃緒申鐃�URL鐃緒申表鐃緒申鐃緒申鐃緒申箸鐃緒申鐃緒申鐃緒申箸鐃緒申任鐃緒申泙鐃緒申鐃�
鐃夙￥申鐃緒申鐃緒申鐃叔書いてみまわ申鐃緒申鐃緒申鐃縮わ申鐃緒申鐃銃わ申鐃緒申覆里飽鐃縮ｏ申鐃緒申鐃緒申鐃塾わ申鐃宿わ申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾モジ鐃遵ー鐃緒申鐃書くのは緒申鐃銃なので醐申鐃緒申鐃純い鐃塾わ申鐃夙をしてわ申鐃緒申里任呂覆鐃緒申鐃緒申隼廚鐃緒申道鐃緒申鐃緒申鐃緒申鐃緒申鐃殉わ申鐃藷。なんかわ申鐃緒申鐃緒申鐃緒申鐃緒申鐃処う鐃淑居申鐃緒申(鐃緒申)鐃緒申鐃緒申鐃緒申鐃淑わ申Cookie鐃祝ぶわ申鐃緒申鐃緒申箸鐃緒申鐃緒申里鐃宿わ申鐃淑のわ申蕁ｏ申鐃所あ鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申足鐃叔わ申鐃緒申鐃循わ申TypeKey鐃塾わ申鐃�鐃塾パワ申鐃緒申任鐃緒申鐃緒申鐃�
鐃緒申鐃緒申鐃術なトワ申鐃淑どわ申鐃緒申个鐃緒申鐃重�鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申亶鐃緒申鐃緒申任鐃緒申鐃緒申箸鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申圓鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申虜鐃獣てわ申鐃緒申覆鐃緒申鐃緒申覆鐃緒申鐃�
鐃緒申鐃緒申
http://www.tcool.org/catalyst/WritingPlugins.html
http://qootas.org/blog/archives/2005/06/catalyst_authen.html
http://blog.nomadscafe.jp/archives/000540.html
http://blog.nomadscafe.jp/archives/000501.html
http://d.hatena.ne.jp/hyuki/20060424
