[prev in list] [next in list] [prev in thread] [next in thread] 

List:       perl-ldap-dev
Subject:    Persistent search issues.
From:       Lior Goikhburg <lgoikhburg () griddynamics ! com>
Date:       2010-02-02 13:59:47
Message-ID: 820410f31002020559r75496feav2e7ccd26e1a5243d () mail ! gmail ! com
[Download RAW message or body]


Hello,

I can't get the persistent search controls to work, hope someone in this
list could help me.
The LDAP server is OpenLDAP with Sync Overlay enabled.

The program is pasted below (it's 90% based on the example from CPAN)

#!/usr/bin/perl
use strict;

use Net::LDAP;
use Net::LDAP::Control::PersistentSearch;
use Net::LDAP::Constant qw(LDAP_CONTROL_ENTRYCHANGE);

my $ldap = Net::LDAP->new( 'ldap.server.addess' ) or die "$@";

my $result = $ldap->bind ( "cn=ldap.user",
                       password => "ldap.user.pass",
                       version => 3 );

my $persist = Net::LDAP::Control::PersistentSearch->new(
                                                      changeTypes => 15,
                                                      changesOnly => 1,
                                                      returnECs => 1
                                                    );


$result = $ldap->search( base   => "dc=search,dc=base",
                         filter => "(uid=*)",
                         control  => [$persist],
                         callback => \&process_entry
                       );

if ($result->code) {
        die "error: ",$result->code(),": ",$result->error();
}

my $true =1;
while ($true) {
sleep 1;
}

$result = $ldap->unbind;

sub process_entry {
        my $result = shift;
        my $entry = shift;
        my $control = $result->control(LDAP_CONTROL_ENTRYCHANGE);
        if ($entry) {
                print $entry->dn()."\n" if $entry;
        }
}

When I run the program, I get a list of DN's of the objects right away
(despite the changesOnly => 1 specified). Is this normal ?
When I change an object in LDAP I get no output.
What is wrong, is there anything I'm missing ?

Thanks in advance.


[prev in list] [next in list] [prev in thread] [next in thread]