Anonymous

our $net_ldap_supports_expired = 0;
BEGIN {
    require Net::LDAP;
    Net::LDAP->import(qw(LDAP_SUCCESS LDAP_PARTIAL_RESULTS));

    my $success = eval { Net::LDAP->import('LDAP_PP_PASSWORD_EXPIRED'); 1 }
    if($success) {
        $net_ldap_supports_expired = 1;
    } else {
        *LDAP_PP_PASSWORD_EXPIRED = \&LDAP_SUCCESS;
    }
}
use Net::LDAP::Util qw(ldap_error_name);
use Net::LDAP::Filter;