> Attached is a potential fix for this. Note that is also renames the
> error method for fetching the password policy error to be called
> pp_error. This is because there is already an error method in the
> Control base class which has a different purpose.
>
> A diff can also be seen at
>
> http://git.goingon.net/?p=perl-ldap.git;a=commitdiff;h=1db4bbb61f5f68a3a7ff178e58818db62e94c398
Hi,
I replace my PasswordPolicy.pm by the one you provided, but I get worse ;)
The control is not working, as shown byt the Dump of the LDAP bind object:
$VAR1 = bless( {
'parent' => bless( {
'net_ldap_version' => 3,
'net_ldap_scheme' => 'ldap',
'net_ldap_debug' => 0,
'net_ldap_socket' => bless(
\*Symbol::GEN0, 'IO::Socket::INET'
),
'net_ldap_host' => 'localhost',
'net_ldap_uri' => 'localhost',
'net_ldap_resp' => {},
'net_ldap_mesg' => {},
'net_ldap_async' => 0,
'net_ldap_port' => 389,
'net_ldap_refcnt' => 1
}, 'Net::LDAP' ),
'errorMessage' => 'passwordPolicyRequest control value
not absent',
'ctrl_hash' => undef,
'resultCode' => 2,
'callback' => undef,
'mesgid' => 1,
'matchedDN' => '',
'controls' => undef,
'raw' => undef
}, 'Net::LDAP::Bind' );
I don't know what "passwordPolicyRequest control value not absent" means.
The renaming of error in pp_error will be problematic, because the perl
code has to be adapted to the perl-ldap version module! Is there no any
solution?
Clément.
