class LDAP ldap_server ldap://ldap.server:3268 binddn bind@domain bindpw password user_basedn basedn user_field samaccountname user_filter (sAMAccountName=%s)) user_scope sub dref always class Password password_type self_check password_field password ##

##

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");
    }
}