sub login : Local {
    my ( $self, $c ) = @_;

    if (    my $user     = $c->req->params->{user}
        and my $password = $c->req->params->{password} )
    {

        if ( $c->authenticate( { login => $user,
                         password    => $password,
                         })) {

            $c->response->redirect($c->uri_for('/'));
        }
        else {
            # login incorrect
            use Data::Dumper;
            $c->response->body("Login Incorrect");
        }
    }
    else {
        # invalid form input
        $c->response->body("Form Input Invalid");
    }
}