/ 
CatalystX-OAuth2-0.001003
River stage zero No dependents
/ Catalyst::ActionRole::OAuth2::GrantAuth

NAME

Catalyst::ActionRole::OAuth2::GrantAuth - Authorization grant endpoint for OAuth2 authentication flows

VERSION

version 0.001003

SYNOPSIS

package AuthServer::Controller::OAuth2::Provider;
use Moose;
BEGIN { extends 'Catalyst::Controller::ActionRole' }

with 'CatalystX::OAuth2::Controller::Role::Provider';

__PACKAGE__->config(
  store => {
    class => 'DBIC',
    client_model => 'DB::Client'
  }
);

sub grant : Chained('/') Args(0) Does('OAuth2::GrantAuth') {
  my ( $self, $c ) = @_;

  my $oauth2 = $c->req->oauth2;

  $c->user_exists and $oauth2->user_is_valid(1)
    or $c->detach('/passthrulogin');
}

DESCRIPTION

This action role implements the authorization confirmation endpoint that asks the user if he wishes to grant resource access to the client. This is generally done by presenting a form to the user. Regardless of the mechanism used for this confirmation, the $c-req->oauth2> object must be informed of the user's decision via the user_is_valid attribute, which must be true by the end of the request, in order for the authorization flow to be continued.

AUTHOR

Eden Cardim <edencardim@gmail.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2015 by Suretec Systems Ltd.

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