The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

OpusVL::AppKit::LDAPAuth

VERSION

version 2.18

SYNOPSIS

    my $test = OpusVL::AppKit::LDAPAuth->new({
        ldap_server => 'ldap',
        user_base_dn => 'ou=People,dc=opusvl',
        user_field => 'uid',
    });
    ok $test->check_password($user, $password);

DESCRIPTION

This class implements the OpusVL::AppKit::RolesFor::Auth to provide a mechanism to check a users password via LDAP.

check_password

Check password is correct for user.

NAME

OpusVL::AppKit::LDAPAuth

METHODS

check_password

This method checks the password for the user using the user_base_dn and user_field along with the username to construct the dn. The username will be escaped for you but the configuration parameters you supply to the object are assumed to already be escaped. i.e. a username of "user.name" should just work.

SEE ALSO

To integrate this with Catalyst you need to add the trait OpusVL::AppKit::RolesFor::Model::LDAPAuth to your model and apply the role OpusVL::AppKit::RolesFor::Schema::LDAPAuth to your schema class.

AUTHOR

OpusVL - www.opusvl.com

COPYRIGHT AND LICENSE

This software is copyright (c) 2010 by OpusVL - www.opusvl.com.

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