---
lib/Net/LDAP/Control/SyncDone.pm | 31 +------------------------------
lib/Net/LDAP/Control/SyncState.pm | 31 +------------------------------
lib/Net/LDAP/Intermediate/SyncInfo.pm | 31 +------------------------------
3 files changed, 3 insertions(+), 90 deletions(-)
diff --git a/lib/Net/LDAP/Control/SyncDone.pm b/lib/Net/LDAP/Control/SyncDone.pm
index e8bc2ae..39e81e7 100644
--- a/lib/Net/LDAP/Control/SyncDone.pm
+++ b/lib/Net/LDAP/Control/SyncDone.pm
@@ -67,36 +67,7 @@ Net::LDAP::Control::SyncDone - LDAPv3 Sync Done control
object
=head1 SYNOPSIS
- use Net::LDAP;
- use Net::LDAP::Control::SyncRequest;
- use Net::LDAP::Constant qw(
- LDAP_SYNC_REFRESH_ONLY
- LDAP_SYNC_REFRESH_AND_PERSIST
- LDAP_SUCCESS );
-
- $ldap = Net::LDAP->new( "ldap.mydomain.eg" );
-
- $req = Net::LDAP::Control::SyncRequest->new( mode => LDAP_SYNC_REFRESH_ONLY );
- my $mesg = $ldap->search(base=> 'dc=mydomain,dc='eg',
- scope => 'sub',
- control => [ $req ],
- callback => \&searchCallback, # call for each entry
- filter => "(objectClass=*)",
- attrs => [ '*']);
- sub searchCallback {
- my $message = shift;
- my $entry = shift;
- my @controls = $message->control;
-
- if($controls[0]->isa('Net::LDAP::Control::SyncState')) {
- print "Received Sync State Control\n";
- print $entry->dn()."\n";
- print 'State: '.$controls[0]->state."\n".', entryUUID:
'.$controls[0]->entryUUID.', cookie: '.$controls[0]->cookie;
- } elsif($controls[0]->isa('Net::LDAP::Control::SyncDone')) {
- print "Received Sync Done Control\n";
- print 'Cookie: '.$controls[0]->cookie.', refreshDeletes:
'.$controls[0]->refreshDeletes;
- }
- }
+See L<Net::LDAP::Control::SyncRequest>
=head1 DESCRIPTION
diff --git a/lib/Net/LDAP/Control/SyncState.pm
b/lib/Net/LDAP/Control/SyncState.pm
index 569553b..7f3094e 100644
--- a/lib/Net/LDAP/Control/SyncState.pm
+++ b/lib/Net/LDAP/Control/SyncState.pm
@@ -78,36 +78,7 @@ Net::LDAP::Control::SyncState - LDAPv3 Sync State control
object
=head1 SYNOPSIS
- use Net::LDAP;
- use Net::LDAP::Control::SyncRequest;
- use Net::LDAP::Constant qw(
- LDAP_SYNC_REFRESH_ONLY
- LDAP_SYNC_REFRESH_AND_PERSIST
- LDAP_SUCCESS );
-
- $ldap = Net::LDAP->new( "ldap.mydomain.eg" );
-
- $req = Net::LDAP::Control::SyncRequest->new( mode => LDAP_SYNC_REFRESH_ONLY );
- my $mesg = $ldap->search(base=> 'dc=mydomain,dc='eg',
- scope => 'sub',
- control => [ $req ],
- callback => \&searchCallback, # call for each entry
- filter => "(objectClass=*)",
- attrs => [ '*']);
- sub searchCallback {
- my $message = shift;
- my $entry = shift;
- my @controls = $message->control;
-
- if($controls[0]->isa('Net::LDAP::Control::SyncState')) {
- print "Received Sync State Control\n";
- print $entry->dn()."\n";
- print 'State: '.$controls[0]->state."\n".', entryUUID:
'.$controls[0]->entryUUID.', cookie: '.$controls[0]->cookie;
- } elsif($controls[0]->isa('Net::LDAP::Control::SyncDone')) {
- print "Received Sync Done Control\n";
- print 'Cookie: '.$controls[0]->cookie.', refreshDeletes:
'.$controls[0]->refreshDeletes;
- }
- }
+See L<Net::LDAP::Control::SyncRequest>
=head1 DESCRIPTION
diff --git a/lib/Net/LDAP/Intermediate/SyncInfo.pm
b/lib/Net/LDAP/Intermediate/SyncInfo.pm
index 38e6109..b086376 100644
--- a/lib/Net/LDAP/Intermediate/SyncInfo.pm
+++ b/lib/Net/LDAP/Intermediate/SyncInfo.pm
@@ -80,36 +80,7 @@ Net::LDAP::Intermediate::SyncInfo - LDAPv3 Sync Info Message
object
=head1 SYNOPSIS
- use Net::LDAP;
- use Net::LDAP::Control::SyncRequest;
- use Net::LDAP::Constant qw(
- LDAP_SYNC_REFRESH_ONLY
- LDAP_SYNC_REFRESH_AND_PERSIST
- LDAP_SUCCESS );
-
- $ldap = Net::LDAP->new( "ldap.mydomain.eg" );
-
- $req = Net::LDAP::Control::SyncRequest->new( mode => LDAP_SYNC_REFRESH_ONLY );
- my $mesg = $ldap->search(base=> 'dc=mydomain,dc='eg',
- scope => 'sub',
- control => [ $req ],
- callback => \&searchCallback, # call for each entry
- filter => "(objectClass=*)",
- attrs => [ '*']);
- sub searchCallback {
- my $message = shift;
- my $entry = shift;
- my @controls = $message->control;
-
- if($controls[0]->isa('Net::LDAP::Control::SyncState')) {
- print "Received Sync State Control\n";
- print $entry->dn()."\n";
- print 'State: '.$controls[0]->state."\n".', entryUUID:
'.$controls[0]->entryUUID.', cookie: '.$controls[0]->cookie;
- } elsif($controls[0]->isa('Net::LDAP::Control::SyncDone')) {
- print "Received Sync Done Control\n";
- print 'Cookie: '.$controls[0]->cookie.', refreshDeletes:
'.$controls[0]->refreshDeletes;
- }
- }
+See L<Net::LDAP::Control::SyncRequest>
=head1 DESCRIPTION
--
1.6.3.3
