Hi,
Am Donnerstag, 28. Dezember 2017, 13:58:10 CET schrieb Zeus Panchenko:
> Peter Marschall <[email protected]> wrote:
> > Have you tried patching
> > usr/local/lib/perl5/site_perl/Convert/ASN1/_decode.pm?
Digging a bit deeper, I don't think Convert::ASN1 is the issue.
The issue is indeed in Net::LDAP::Extension::Refresh,
and the following patch should fix it:
---------------------------[ snip]---------------------------
--- a/lib/Net/LDAP/Extension/Refresh.pm
+++ b/lib/Net/LDAP/Extension/Refresh.pm
@@ -14,7 +14,7 @@ $refreshReq->prepare(q<SEQUENCE {
my $refreshResp = Convert::ASN1->new;
$refreshResp->prepare(q<SEQUENCE {
- responseTtl [0] INTEGER
+ responseTtl [1] INTEGER
}>);
sub Net::LDAP::refresh {
---------------------------[ snip]---------------------------
This should fix the get_ttl() method, and will be in the next release of perl-
ldap.
As a side note:
> $msg = $self->ldap->refresh ( ... );
> my $ttl = "refresh TTL: " . $msg->get_ttl();
> $ttl .= $msg->error() if $msg->code();
In your code, you assign to $ttl before checking that the extened operation
returned success.
Please check for errors first.
Hope that helped
Best
PEter
--
Peter Marschall
[email protected]
