Login

gistfile1.txt

package RoosterPirates::Web::Controller::Login;

use Moose;
use namespace::autoclean;

BEGIN { extends 'Catalyst::Controller'; }

sub index : Chained('/') PathPart('login') Args('0') {
    my ( $self, $c ) = @_;
    $c->stash( template => 'login.tt2' );
    if ( lc $c->req->method eq 'post' ) {
        my $email    = $c->req->params->{email};
        my $password = $c->req->params->{password};

        if ( $c->authenticate( { email => $email, password => $password } ) )
        {
            $c->flash(
                status_msg => "Welcome back, " . $c->user->first_name );
            return $c->res->redirect(
                $c->uri_for( $c->controller('Root')->action_for('index') ) );
        }
        else {
            $c->stash( error_msg => "Bad username or password." );
        }
    }
    $c->stash( template => 'login.tt2' );
}

__PACKAGE__->meta->make_immutable;

1;