Andrey Chergik > Catalyst-Authentication-Store-LDAP-AD-Class-0.06 > Catalyst::Authentication::Store::LDAP::AD::Simple

Download:
Catalyst-Authentication-Store-LDAP-AD-Class-0.06.tar.gz

Dependencies

Annotate this POD

View/Report Bugs
Source  

Simple LDAP Interface ^

        - simple class to authenticate through LDAP to Active Directory

SYNOPSIS ^

        sub login : Regex('^login/(\w+)/(\w+)$') {
                my ( $self, $c ) = @_;

                my $lds = Hello::Logic::LDAP::Authorize::Simple->new(
                        ldap_domain => 'ldap.domain.ru',
                        global_user => "cn=BlaBla,ou=LaLaLAA,dc=domain,dc=ru",
                        global_pass => "your_password",
                        timeout     => 3
                );

                $lds->setup();

                my $auth = $lds->authenticate(
                        login         => $c->req->captures->[0],
                        password     => $c->req->captures->[1]
                );

                $c->response->body( $auth ? "Accepted" : "Denied" );

        }

        To access this action thought URL print in browser "domain.ru/login/your_login/your_password"

        global_user -     is the same as "dn" - distinguish name.
                                        It is the root directory in Active Directory
                                        structure which contains users information.
                                        Users information contains at least users dn's (distinguish names).

        global_pass -     is the password for distinguish name.
        ldap_domain -     is a domain that can be accessed through LDAP protocol (ldap://).
        timeout     -   When we try to connect to AD, we send request to it and wait for
                                        response. If AD is in down and doesn't send us any response for a
                                        "timeout"-time we drop the connection and crashes to confess.

FUNCTIONS ^

setup
        - setting up connection to Active Directory
        Arguments:
                none
        Returns: 1
authenticate
        - trying to authenticate at Active Directory
        Arguments:
                login         => '...',
        Returns: 0|1
                ldap_message->entries->[0] (all available user data retrieved from AD though LDAP)

AUTHOR ^

Chergik Andrey Vladimirovich

CONTACTS ^

email: andrey@chergik.ru

LICENSE ^

This library is free software. You can redistribute it and/or modify it under the same terms as Perl itself.

syntax highlighting: