LDAP_CONTROL_PAGED and SunOne

[Carl Stefan Grøtter]

Hello!

I am actually trying to make a script that should browse through about  
150.000 objects and compare the data with another (Oracle based) system.  
If I limit the search to e.g 5000 it works fine (takes about 20-30  
seconds), but without the limit it is using huge amounts of memory and  
takes many, many hours. Therefore, I would like to rewrite it to use paged  
results. I can't get it to work, though...

I've been trying to modify several examples I found by googling, but I  
allways seem to get all results on the first page. In the below example (I  
am trying a more limited search here than I will do in the real script,  
just to prove the concept to myself) I'm getting all 207 users in the  
first page.

Am I missing something obvious here? Could it be that SunOne directory  
doesn't support paged controls?



---------------------------

#!/usr/bin/perl

use Data::Dumper;
use Net::LDAP;
use Net::LDAP::Control::Paged;
use Net::LDAP::Constant qw( LDAP_CONTROL_PAGED );

$ldap = Net::LDAP->new( "ldaphost", port=>10999 );
$search = $ldap->bind('username', password => 'password');

$page = Net::LDAP::Control::Paged->new( size => 30 );

@args = ( base     => "ou=users,o=Broadband,o=no",
           scope    => "subtree",
           filter   => "(objectClass=top)",
           callback => \&process_entry, # Call this sub for each entry
           control  => [ $page ],
);

 my $cookie;
 while(1) {
   # Perform search
   my $mesg = $ldap->search( @args );
   print Dumper($mesg);

   # Only continue on LDAP_SUCCESS
   $mesg->code and last;

   # Get cookie from paged control
   my($resp)  = $mesg->control( LDAP_CONTROL_PAGED ) or last;
   $cookie    = $resp->cookie or last;

   # Set cookie in paged control
   $page->cookie($cookie);
 }

 if ($cookie) {
   # We had an abnormal exit, so let the server know we do not want any  
more
   $page->cookie($cookie);
   $page->size(0);
   $ldap->search( @args );
 }
$ldap->unbind;

sub process_entry { $jeje++ and print $jeje . "\n" }


---------------------------



Here's some environment info:
OS: Solaris 10 (64 bit, Sparc)
Perl version: 5.8.4
Net::LDAP version: 0.34
Net::LDAP::Control version: 0.06
Net::LDAP::Control::Paged version: 0.02



I would be very grateful for any help, as I have allready spent quite a  
few hours on this.