view release on metacpan or  search on metacpan

AuthTicketLDAP.pm  view on Meta::CPAN

    }

    $entry = $self->ldap_search($user);
    if ($entry) {
        return $self->ldap_cache($user, $entry);
    }

    return undef;
}

sub check_credentials {
    my ($self, $user, $password) = @_;
    my ($entry, $mesg);
    # 1) check_ldap_cache for UID entry. Avoids anonymous search.
    # 2) if not in cache, run a search and cache the result
    # 3) lastly, bind with supplied password.

    $entry = $self->ldap_cache($user) or return 0;

    $mesg = $self->ldap->bind($entry->dn(), password => $password)
        or die "$@";

README  view on Meta::CPAN

 a) Use a SQL SELECT statement result cache

fetch_secret()
 a) Use a SQL SELECT statement result cache
 b) Change DESC LIMIT 1 to SELECT FIRST 1. This is an Informix-ism.
 c) Don't listen to SQL::Abstract's quoting of the version number, which 
 Informix doesn't like.
 d) FIXME: Informixisms should be ifdef'd for Driver eq Informix. Also, SELECT
 FIRST is only supported in Informix 10+

check_credentials()
 a) Use LDAP
 b) Use LDAP Entry cache