| Server IP : 103.119.228.120 / Your IP : 3.12.161.151 Web Server : Apache System : Linux v8.techscape8.com 3.10.0-1160.119.1.el7.tuxcare.els2.x86_64 #1 SMP Mon Jul 15 12:09:18 UTC 2024 x86_64 User : nobody ( 99) PHP Version : 5.6.40 Disable Function : shell_exec,symlink,system,exec,proc_get_status,proc_nice,proc_terminate,define_syslog_variables,syslog,openlog,closelog,escapeshellcmd,passthru,ocinum cols,ini_alter,leak,listen,chgrp,apache_note,apache_setenv,debugger_on,debugger_off,ftp_exec,dl,dll,myshellexec,proc_open,socket_bind,proc_close,escapeshellarg,parse_ini_filepopen,fpassthru,exec,passthru,escapeshellarg,escapeshellcmd,proc_close,proc_open,ini_alter,popen,show_source,proc_nice,proc_terminate,proc_get_status,proc_close,pfsockopen,leak,apache_child_terminate,posix_kill,posix_mkfifo,posix_setpgid,posix_setsid,posix_setuid,dl,symlink,shell_exec,system,dl,passthru,escapeshellarg,escapeshellcmd,myshellexec,c99_buff_prepare,c99_sess_put,fpassthru,getdisfunc,fx29exec,fx29exec2,is_windows,disp_freespace,fx29sh_getupdate,fx29_buff_prepare,fx29_sess_put,fx29shexit,fx29fsearch,fx29ftpbrutecheck,fx29sh_tools,fx29sh_about,milw0rm,imagez,sh_name,myshellexec,checkproxyhost,dosyayicek,c99_buff_prepare,c99_sess_put,c99getsource,c99sh_getupdate,c99fsearch,c99shexit,view_perms,posix_getpwuid,posix_getgrgid,posix_kill,parse_perms,parsesort,view_perms_color,set_encoder_input,ls_setcheckboxall,ls_reverse_all,rsg_read,rsg_glob,selfURL,dispsecinfo,unix2DosTime,addFile,system,get_users,view_size,DirFiles,DirFilesWide,DirPrintHTMLHeaders,GetFilesTotal,GetTitles,GetTimeTotal,GetMatchesCount,GetFileMatchesCount,GetResultFiles,fs_copy_dir,fs_copy_obj,fs_move_dir,fs_move_obj,fs_rmdir,SearchText,getmicrotime MySQL : ON | cURL : ON | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : ON Directory : /usr/local/share/perl5/Net/LDAP/Control/ |
Upload File : |
# Copyright (c) 2014 Peter Marschall <peter@adpm.de>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
package Net::LDAP::Control::DontUseCopy;
use Net::LDAP::Control;
our @ISA = qw(Net::LDAP::Control);
our $VERSION = '0.01';
use strict;
sub init {
my($self) = @_;
delete $self->{asn};
delete $self->{value};
$self->{critical} = 1;
$self;
}
# make sure value does not get set
sub value {
undef;
}
# make sure criticality remains TRUE
sub critical {
1;
}
1;
__END__
=head1 NAME
Net::LDAP::Control::DontUseCopy - LDAPv3 Don't Use Copy control object
=head1 SYNOPSIS
use Net::LDAP;
use Net::LDAP::Control::DontUseCopy;
$ldap = Net::LDAP->new( "ldap.mydomain.eg" );
$nocopy = Net::LDAP::Control::DontUseCopy->new( critical => 1 );
$msg = $ldap->search( base => 'o=University of Michigan,c=US',
filter => '(cn=Barbara Jensen)'
control => [ $nocopy ] );
die "error: ",$msg->code(),": ",$msg->error() if ($msg->code());
=head1 DESCRIPTION
C<Net::LDAP::Control::DontUseCopy> provides an interface for the creation
and manipulation of objects that represent the C<DontUseCopy> control as
described by RFC 6171.
It allows the the client to specify that copied information should not be used
in providing the service.
The control is appropriate for LDAP search and compare operations [RFC4511]
and inappropriate for all other oeprations.
Its criticality must be TRUE; it has no value.
There is no corresponding response control.
=head1 CONSTRUCTOR ARGUMENTS
Since the C<DontUseCopy> control does not have any values only the
constructor arguments described in L<Net::LDAP::Control> are
supported
=head1 METHODS
As there are no additional values in the control only the
methods in L<Net::LDAP::Control> are available for
C<Net::LDAP::Control::DontUseCopy> objects.
=head1 SEE ALSO
L<Net::LDAP>,
L<Net::LDAP::Control>,
=head1 AUTHOR
Peter Marschall E<lt>peter@adpm.deE<gt>.
Please report any bugs, or post any suggestions, to the perl-ldap
mailing list E<lt>perl-ldap@perl.orgE<gt>
=head1 COPYRIGHT
Copyright (c) 2014 Peter Marschall. All rights reserved. This program is
free software; you can redistribute it and/or modify it under the same
terms as Perl itself.
=cut