Miscellany

our $net_ldap_supports_expired = 0;
BEGIN {
    require Net::LDAP;
    Net::LDAP->import(qw(LDAP_SUCCESS LDAP_PARTIAL_RESULTS));
    if( $Net::LDAP::Constant::VERSION >= 0.05 ) {
        Net::LDAP->import(qw(LDAP_PP_PASSWORD_EXPIRED));
        $net_ldap_supports_expired = 1;
    } else {
        *LDAP_PP_PASSWORD_EXPIRED = \&LDAP_SUCCESS;
    }
}
use Net::LDAP::Util qw(ldap_error_name);
use Net::LDAP::Filter;