Net::LDAP::Control::VLV 0.34

Net::LDAP::Control::VLV is an LDAPv3 Virtual List View control object.

SYNOPSIS

use Net::LDAP;
use Net::LDAP::Control::VLV;
use Net::LDAP::Constant qw( LDAP_CONTROL_VLVRESPONSE );

$ldap = Net::LDAP->new( "ldap.mydomain.eg" );

# Get the first 20 entries
$vlv = Net::LDAP::Control::VLV->new(
before => 0, # No entries from before target entry
after => 19, # 19 entries after target entry
content => 0, # List size unknown
offset => 1, # Target entry is the first
);
$sort = Net::LDAP::Control::Sort->new( order => cn );

@args = ( base => "o=Ace Industry, c=us",
scope => "subtree",
filter => "(objectClass=inetOrgPerson)",
callback => &process_entry, # Call this sub for each entry
control => [ $vlv, $sort ],
);

$mesg = $ldap->search( @args );

# Get VLV response control
($resp) = $mesg->control( LDAP_CONTROL_VLVRESPONSE ) or die;
$vlv->response( $resp );

# Set the control to get the last 20 entries
$vlv->end;

$mesg = $ldap->search( @args );

# Get VLV response control
($resp) = $mesg->control( LDAP_CONTROL_VLVRESPONSE ) or die;
$vlv->response( $resp );

# Now get the previous page
$vlv->scroll_page( -1 );

$mesg = $ldap->search( @args );

# Get VLV response control
($resp) = $mesg->control( LDAP_CONTROL_VLVRESPONSE ) or die;
$vlv->response( $resp );

# Now page with first entry starting with "B" in the middle
$vlv->before(9); # Change page to show 9 before
$vlv->after(10); # Change page to show 10 after
$vlv->assert("B"); # assert "B"

$mesg = $ldap->search( @args );