Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.13
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
perl5 /
Net /
LDAP /
Control /
[ HOME SHELL ]
Name
Size
Permission
Action
Assertion.pm
3.08
KB
-rw-r--r--
DontUseCopy.pm
2.29
KB
-rw-r--r--
EntryChange.pm
4.54
KB
-rw-r--r--
ManageDsaIT.pm
2.27
KB
-rw-r--r--
MatchedValues.pm
6.1
KB
-rw-r--r--
NoOp.pm
2.47
KB
-rw-r--r--
Paged.pm
4.01
KB
-rw-r--r--
PasswordPolicy.pm
4.9
KB
-rw-r--r--
PersistentSearch.pm
4.4
KB
-rw-r--r--
PostRead.pm
3.3
KB
-rw-r--r--
PreRead.pm
4.15
KB
-rw-r--r--
ProxyAuth.pm
5.4
KB
-rw-r--r--
Relax.pm
2.46
KB
-rw-r--r--
Sort.pm
4.67
KB
-rw-r--r--
SortResult.pm
3.69
KB
-rw-r--r--
Subentries.pm
3.02
KB
-rw-r--r--
SyncDone.pm
2.54
KB
-rw-r--r--
SyncRequest.pm
3.83
KB
-rw-r--r--
SyncState.pm
2.75
KB
-rw-r--r--
TreeDelete.pm
2.18
KB
-rw-r--r--
VLV.pm
9.78
KB
-rw-r--r--
VLVResponse.pm
3.99
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : Subentries.pm
# Copyright (c) 2020 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::Subentries; use Net::LDAP::Control; our @ISA = qw(Net::LDAP::Control); our $VERSION = '0.01'; use Net::LDAP::ASN qw(SubentriesValue); use strict; sub init { my($self) = @_; delete $self->{asn}; unless (exists $self->{value}) { $self->{asn} = { visibility => $self->{visibility} || 0, }; } $self; } sub visibility { my $self = shift; $self->{asn} ||= $SubentriesValue->decode($self->{value}); if (@_) { delete $self->{value}; return $self->{asn}{visibility} = shift || 0; } $self->{asn}{visibility}; } sub value { my $self = shift; exists $self->{value} ? $self->{value} : $self->{value} = $SubentriesValue->encode($self->{asn}); } 1; __END__ =head1 NAME Net::LDAP::Control::Subentries - LDAPv3 Subentries control object =head1 SYNOPSIS use Net::LDAP; use Net::LDAP::Control::Subentries; $ldap = Net::LDAP->new( "ldap.mydomain.eg" ); $subentries = Net::LDAP::Control::Subentries->new( visibility => 1 ); $msg = $ldap->search( base => 'dc=sub,dc=mydomain,dc=eg", filter => '(objectclass=*)', attrs => [ qw/1.1/ ], control => [ $subentries ] ); die "error: ",$msg->code(),": ",$msg->error() if ($msg->code()); =head1 DESCRIPTION C<Net::LDAP::Control::Subentries> provides an interface for the creation and manipulation of objects that represent the C<Subentries> control as described by RFC 3672. This control, for which no corresponding response control exists, is appropriate for L<LDAP search|Net::LDAP/search> operations only. In absence of this control, subentries are visible only to L<LDAP search|Net::LDAP/search> requests with C<< scope => 'base' >>, but not to searches with any other C<scope> value. =head1 CONSTRUCTOR ARGUMENTS In addition to the constructor arguments described in L<Net::LDAP::Control> the following are provided: =over 4 =item visibility A Boolean value indicating the visibility of subentries or regular entries. The value C<TRUE> indicates that subentries are visible and normal entries are not; the value C<FALSE> indicates that normal entries are visible and subentries are not. =back =head1 METHODS As with L<Net::LDAP::Control> each constructor argument described above is also available as a method on the object which will return the current value for the attribute if called without an argument, and set a new value for the attribute if called with an argument. =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) 2020 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
Close