Peter Marschall <
pe...@adpm.de> wrote:
> Have you tried patching usr/local/lib/perl5/site_perl/Convert/ASN1/_
decode.pm?
> Here's what I'd try as a first idea:
not yet, will check it
> > after setting dds-max-ttl to some big enough value, same code works well
> Do I get it right, that only the error case (i.e. setting the ttl to a higher
> value than allowed) fails, while the correct case (setting the ttl to a value
> within the bounds allowed) works?
yes, you do
> In any case, can you provde a minimal test case that allows reporducing the
> success and failure cases?!
bellow are details
I was trying to refresh from now (2017.12.27 14:44) to 2018.07.07 07:00
as the result, the object was created (indeed) with dds-default-ttl ttl but
get_ttl() issued just after the refresh() didn't recognize that
---[ slapd.conf quotation start ]-------------------------------------------
...
overlay dds
dds-max-ttl 3d
dds-min-ttl 30m
dds-default-ttl 1h
dds-interval 120s
dds-tolerance 5s
...
---[ slapd.conf quotation end ]-------------------------------------------
---[ code quotation start ]-------------------------------------------
...
use Data::Printer;
...
sub refresh {
my ($self, $entryName, $requestTtl) = @_;
p $entryName; p $requestTtl;
my $callername = (caller(1))[3];
$callername = 'main' if ! defined $callername;
my ($return, $msg);
$msg = $self->ldap->refresh ( entryName => $entryName, requestTtl => $requestTtl );
p my $ttl = "refresh TTL: " . $msg->get_ttl();
p $ttl .= $msg->error() if $msg->code();
if ($msg->code) {
$return = $self->err( $msg );
$return->{caller} = 'call to LDAP_CRUD->refresh from ' . $callername . ': ';
} else {
$return->{success} = $msg->get_ttl();
}
return $return;
}
...
---[ code quotation end ]-------------------------------------------
---[ debug quotation start ]-------------------------------------------
Printing in line 895 of /storage/work-stuff/Catalyst/UMI/script/../lib/LDAP_CRUD.pm:
"authorizedService=
w...@borg.startrek.in,uid=naf.nafus3,ou=People,dc=umidb"
Printing in line 895 of /storage/work-stuff/Catalyst/UMI/script/../lib/LDAP_CRUD.pm:
16481774
Use of uninitialized value $end in numeric ge (>=) at /usr/local/lib/perl5/site_perl/Convert/ASN1/_
decode.pm line 626, <DATA> line 1063.
Use of uninitialized value $end in numeric eq (==) at /usr/local/lib/perl5/site_perl/Convert/ASN1/_
decode.pm line 63, <DATA> line 1063.
Use of uninitialized value in concatenation (.) or string at /storage/work-stuff/Catalyst/UMI/script/../lib/LDAP_CRUD.pm line 901, <DATA> line 1063.
Printing in line 901 of /storage/work-stuff/Catalyst/UMI/script/../lib/LDAP_CRUD.pm:
"refresh TTL: "
Printing in line 902 of /storage/work-stuff/Catalyst/UMI/script/../lib/LDAP_CRUD.pm:
"refresh TTL: time-to-live for dynamicObject exceeds limit"
Printing in line 895 of /storage/work-stuff/Catalyst/UMI/script/../lib/LDAP_CRUD.pm:
"uid=
naf.n...@borg.startrek.in,authorizedService=
w...@borg.startrek.in,uid=naf.nafus3,ou=People,dc=umidb"
Printing in line 895 of /storage/work-stuff/Catalyst/UMI/script/../lib/LDAP_CRUD.pm:
16481774
Use of uninitialized value $end in numeric ge (>=) at /usr/local/lib/perl5/site_perl/Convert/ASN1/_
decode.pm line 626, <DATA> line 1133.
Use of uninitialized value $end in numeric eq (==) at /usr/local/lib/perl5/site_perl/Convert/ASN1/_
decode.pm line 63, <DATA> line 1133.
Use of uninitialized value in concatenation (.) or string at /storage/work-stuff/Catalyst/UMI/script/../lib/LDAP_CRUD.pm line 901, <DATA> line 1133.
Printing in line 901 of /storage/work-stuff/Catalyst/UMI/script/../lib/LDAP_CRUD.pm:
"refresh TTL: "
Printing in line 902 of /storage/work-stuff/Catalyst/UMI/script/../lib/LDAP_CRUD.pm:
"refresh TTL: time-to-live for dynamicObject exceeds limit"
---[ debug quotation end ]-------------------------------------------