All pastes #980925 Raw Edit

Someone

public text v1 · immutable
·published 2008-04-11 11:57 UTC
rendered paste body
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;
    }
}