use Net::LDAP;
use Net::LDAP::Control::Relax;
$ldap = Net::LDAP->new( "ldap.mydomain.eg" );
$relax = Net::LDAP::Control::Relax->new();
$msg = $ldap->modify( 'dc=sub,dc=mydomain,dc=eg",
changes => [
replace => { modifyTimestamp => '19700101000000Z' } ],
control => [ $relax ] );
die "error: ",$msg->code(),": ",$msg->error() if ($msg->code());
The control, which has no corresponding response control, is appropriate for all LDAP update requests, including add, delete, modify, and moddn.
The presence of the Relax control in an LDAP update request indicates the server temporarily relax X.500 model constraints during performance of the directory update.
It does not have a value and its criticality is always set to "TRUE".
Please report any bugs, or post any suggestions, to the perl-ldap mailing list <perl-ldap@perl.org>