The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.
 / 
Catalyst-Plugin-Authentication-Credential-JugemKey-0.04
River stage zero No dependents
/ Catalyst::Plugin::Authentication::Credential::JugemKey

NAME

Catalyst::Plugin::Authentication::Credential::JugemKey - JugemKey authentication plugin for Catalyst

VERSION

Version 0.04

SYNOPSIS

# load plugin and setup
use Catalyst qw(
    Authentication
    Authentication::Credential::JugemKey
    Session
    Session::Store::FastMmap
    Session::State::Cookie
);

__PACKAGE__->config->{authentication}->{jugemkey} = {
    api_key => 'your api_key',
    secret  => 'your shared secret',
    perms   => 'permission',
};

# in controller
# redirect login url
sub login : Path('/jugemkey/login') {
    my ( $self, $c ) = @_;
    $c->res->redirect(
        $c->authenticate_jugemkey_url({
            callback_url => 'http://your_callback_url/jugemkey/auth',
            param1       => 'value1',
            param2       => 'value2',
        })
    );
}

# callback url
sub auth : Path('/jugemkey/auth') {
    my ( $self, $c ) = @_;

    if ( my $user = $c->authenticate_jugemkey_get_token ) {
        # login successful
        $c->session->{name}  = $user->name;
        $c->session->{token} = $user->token;
        $c->res->redirect( $c->uri_for('/') );
    }
    else {
        # something wrong
    }
}

METHODS

authenticate_jugemkey_url

Creates login url.

authenticate_jugemkey_get_token

Exchange frob for token and JugemKey user name.

INTERNAL METHODS

setup

SEE ALSO

WebService::JugemKey::Auth, http://jugemkey.jp/api/auth/

AUTHOR

Gosuke Miyashita, <gosukenator at gmail.com>

BUGS

Please report any bugs or feature requests to bug-catalyst-plugin-authentication-credential-jugemkey at rt.cpan.org, or through the web interface at http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Catalyst-Plugin-Authentication-Credential-JugemKey. I will be notified, and then you'll automatically be notified of progress on your bug as I make changes.

SUPPORT

You can find documentation for this module with the perldoc command.

perldoc Catalyst::Plugin::Authentication::Credential::JugemKey

You can also look for information at:

ACKNOWLEDGEMENTS

COPYRIGHT & LICENSE

Copyright 2006 Gosuke Miyashita, all rights reserved.

This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.