Added ability to avoid DB hits when restoring from session

[catagits/Catalyst-Authentication-Store-DBIx-Class.git] / t / lib / TestApp.pm

package TestApp;\r
\r
use strict;\r
use Catalyst;\r
use Data::Dumper;\r
\r
TestApp->config( $ENV{TESTAPP_CONFIG} );\r
\r
TestApp->setup( @{$ENV{TESTAPP_PLUGINS}} );\r
\r
sub user_login : Global {\r
    my ( $self, $c ) = @_;\r
\r
    ## this allows anyone to login regardless of status.\r
    $c->authenticate({ username => $c->request->params->{'username'},\r
                       password => $c->request->params->{'password'}\r
                     });\r
\r
    if ( $c->user_exists ) {\r
        if ( $c->req->params->{detach} ) {\r
            $c->detach( $c->req->params->{detach} );\r
        }\r
        $c->res->body( $c->user->get('username') . ' logged in' );\r
    }\r
    else {\r
        $c->res->body( 'not logged in' );\r
    }\r
}\r
\r
sub notdisabled_login : Global {\r
    my ( $self, $c ) = @_;\r
\r
    $c->authenticate({ username => $c->request->params->{'username'},\r
                       password => $c->request->params->{'password'},\r
                       status => [ 'active', 'registered' ]\r
                     });\r
\r
    if ( $c->user_exists ) {\r
        if ( $c->req->params->{detach} ) {\r
            $c->detach( $c->req->params->{detach} );\r
        }\r
        $c->res->body( $c->user->get('username') .  ' logged in' );\r
    }\r
    else {\r
        $c->res->body( 'not logged in' );\r
    }\r
}\r
\r
sub searchargs_login : Global {\r
    my ( $self, $c ) = @_;\r
\r
    my $username = $c->request->params->{'username'} || '';\r
    my $email = $c->request->params->{'email'} || '';\r
    \r
    $c->authenticate({ \r
                        password => $c->request->params->{'password'},\r
                        dbix_class => {\r
                            searchargs => [ { "-or" => [ username => $username,\r
                                                        email => $email ]}, \r
                                            { prefetch => qw/ map_user_role /}\r
                                          ]\r
                        }\r
                     });\r
\r
    if ( $c->user_exists ) {\r
        if ( $c->req->params->{detach} ) {\r
            $c->detach( $c->req->params->{detach} );\r
        }\r
        $c->res->body( $c->user->get('username') .  ' logged in' );\r
    }\r
    else {\r
        $c->res->body( 'not logged in' );\r
    }\r
}\r
\r
sub resultset_login : Global {\r
    my ( $self, $c ) = @_;\r
\r
    my $username = $c->request->params->{'username'} || '';\r
    my $email = $c->request->params->{'email'} || '';\r
    \r
    \r
    my $rs = $c->model('TestApp::User')->search({ "-or" => [ username => $username,\r
                                                              email => $email ]});\r
    \r
    $c->authenticate({ \r
                        password => $c->request->params->{'password'},\r
                        dbix_class => { resultset => $rs }\r
                     });\r
                     \r
    if ( $c->user_exists ) {\r
        if ( $c->req->params->{detach} ) {\r
            $c->detach( $c->req->params->{detach} );\r
        }\r
        $c->res->body( $c->user->get('username') .  ' logged in' );\r
    }\r
    else {\r
        $c->res->body( 'not logged in' );\r
    }\r
}\r
\r
## need to add a resultset login test and a search args login test\r
\r
sub user_logout : Global {\r
    my ( $self, $c ) = @_;\r
\r
    $c->logout;\r
\r
    if ( ! $c->user ) {\r
        $c->res->body( 'logged out' );\r
    }\r
    else {\r
        $c->res->body( 'not logged ok' );\r
    }\r
}\r
\r
sub get_session_user : Global {\r
    my ( $self, $c ) = @_;\r
 \r
    if ( $c->user_exists ) {\r
        $c->res->body($c->user->get('username')); # . " " . Dumper($c->user->get_columns()) );\r
    }\r
}\r
\r
sub is_admin : Global {\r
    my ( $self, $c ) = @_;\r
\r
    eval {\r
        if ( $c->assert_user_roles( qw/admin/ ) ) {\r
            $c->res->body( 'ok' );\r
        }\r
    };\r
    if ($@) {\r
        $c->res->body( 'failed' );\r
    }\r
}\r
\r
sub is_admin_user : Global {\r
    my ( $self, $c ) = @_;\r
\r
    eval {\r
        if ( $c->assert_user_roles( qw/admin user/ ) ) {\r
            $c->res->body( 'ok' );\r
        }\r
    };\r
    if ($@) {\r
        $c->res->body( 'failed' );\r
    }\r
}\r
\r
sub set_usersession : Global {\r
    my ( $self, $c, $value ) = @_;\r
    $c->user_session->{foo} = $value;\r
    $c->res->body( 'ok' );\r
}\r
\r
sub get_usersession : Global {\r
    my ( $self, $c ) = @_;\r
    $c->res->body( $c->user_session->{foo} || '' );\r
}\r
\r
\r
1;\r