Net::LDAP(3) | User Contributed Perl Documentation | Net::LDAP(3) |
Net::LDAP - Lightweight Directory Access Protocol
use Net::LDAP; $ldap = Net::LDAP->new( 'ldap.example.com' ) or die "$@"; $mesg = $ldap->bind; # anonymous bind $mesg->code and die $mesg->error; # check for errors $srch = $ldap->search( base => "c=US", # perform a search filter => "(&(sn=Barr)(o=Texas Instruments))" ); $srch->code and die $srch->error; # check for errors foreach $entry ($srch->entries) { $entry->dump; } $mesg = $ldap->unbind; # take down session $ldap = Net::LDAP->new( 'ldaps://ldap.example.com' ) or die "$@"; # simple bind with DN and password $mesg = $ldap->bind( 'cn=root, o=University of Michigan, c=us', password => 'secret' ); $mesg->code and die $mesg->error; # check for errors $result = $ldap->add( 'cn=Barbara Jensen, o=University of Michigan, c=US', attrs => [ cn => ['Barbara Jensen', 'Barbs Jensen'], sn => 'Jensen', mail => 'b.jensen@umich.edu', objectclass => ['top', 'person', 'organizationalPerson', 'inetOrgPerson' ], ] ); $result->code and warn "failed to add entry: ", $result->error; $mesg = $ldap->unbind; # take down session
Net::LDAP is a collection of modules that implements a LDAP services API for Perl programs. The module may be used to search directories or perform maintenance functions such as adding, deleting or modifying entries.
This document assumes that the reader has some knowledge of the LDAP protocol.
"HOST" may be a host name or an IP address. TCP port may be specified after the host name followed by a colon (such as localhost:10389). The default TCP port for LDAP is 389.
You can also specify a URI, such as 'ldaps://127.0.0.1:666' or 'ldapi://%2fvar%2flib%2fldap_sock'. Note that '%2f's in the LDAPI socket path will be translated into '/'. This is to support LDAP query options like base, search etc. although the query part of the URI will be ignored in this context. If port was not specified in the URI, the default is either 389 or 636 for 'LDAP' and 'LDAPS' schemes respectively.
"HOST" may also be a reference to an array of hosts, host-port pairs or URIs to try. Each will be tried in order until a connection is made. Only when all have failed will the result of "undef" be returned.
Failures in changing the socket's SO_KEEPALIVE option are ignored.
Note this value is the string 'undef', not the "undef" value.
When this option is given, Net::LDAP converts all values of attributes not matching this REGEX into Perl UTF-8 strings so that the regular Perl operators (pattern matching, ...) can operate as one expects even on strings with international characters.
If this option is not given, attribute values are treated as byte strings.
Example: raw => qr/(?i:^jpegPhoto|;binary)/
The default is to use any of the two protocols.
Example
$ldap = Net::LDAP->new( 'remote.host', async => 1 );
LDAPS connections have some extra valid options, see the start_tls method for details. Note the default port for LDAPS is 636, and the default value for 'sslversion' is the value used as default by IO::Socket::SSL.
For LDAPI connections, HOST is actually the location of a UNIX domain socket to connect to. The default location is '/var/run/ldapi'.
Each of the following methods take as arguments some number of fixed parameters followed by options, these options are passed in a named fashion, for example
$mesg = $ldap->bind( "cn=me,o=example", password => "mypasswd");
The return value from these methods is an object derived from the Net::LDAP::Message class. The methods of this class allow you to examine the status of the request.
Example
$res = $ldap->search( @search_args ); $mesg = $ldap->abandon( $res ); # This could be written as $res->abandon
This argument is not used if "DN" is a Net::LDAP::Entry object.
Example
# $entry is an object of class Net::LDAP::Entry $mesg = $ldap->add( $entry ); $mesg = $ldap->add( $dn, attrs => [ name => 'Graham Barr', attr => 'value1', attr => 'value2', multi => [qw(value1 value2)] ] );
If passed an Authen::SASL object then "client_new" will be called to create a client connection object. The hostname passed by "Net::LDAP" to "client_new" can be set using the "sasl_host" option below. If this is not correct for your environment, consider calling "client_new" yourself and passing the client connection object as "SASLOBJ".
If "SASLHOST" evaluates to TRUE, then it is used as the SASL hostname.
If it evaluates to FALSE, then the value is determined by calling "peerhost" on the socket. In older versions of Net::LDAP this was the standard behaviour, but it turned out to cause more trouble than it fixed.
When the option is not given, the SASL host name used defaults to the host name / IP address taken from the "HOST" parameter when connecting.
Example
$mesg = $ldap->bind; # Anonymous bind $mesg = $ldap->bind( $dn, password => $password ); # $sasl is an object of class Authen::SASL $mesg = $ldap->bind( $dn, sasl => $sasl, version => 3 );
Example
$mesg = $ldap->compare( $dn, attr => 'cn', value => 'Graham Barr' );
Example
$mesg = $ldap->delete( $dn );
Example
$mesg = $ldap->moddn( $dn, newrdn => 'cn=Graham Barr' );
$mesg = $ldap->modify( $dn, add => { description => 'List of members', # Add description attribute member => [ 'cn=member1,ou=people,dc=example,dc=com', # Add to attribute 'cn=member2,ou=people,dc=example,dc=com', ] } );
$mesg = $ldap->modify( $dn, delete => ['member','description'] # Delete attributes );
If "VALUE" is a reference to an empty array or all existing values of the attribute are being deleted, then the attribute will be deleted from the entry.
$mesg = $ldap->modify( $dn, delete => { description => 'List of members', member => [ 'cn=member1,ou=people,dc=example,dc=com', # Remove members 'cn=member2,ou=people,dc=example,dc=com', ], seeAlso => [], # Remove attribute } );
$mesg = $ldap->modify( $dn, replace => { description => 'New List of members', # Change the description member => [ # Replace whole list with these 'cn=member1,ou=people,dc=example,dc=com', 'cn=member2,ou=people,dc=example,dc=com', ], seeAlso => [], # Remove attribute } );
$mesg = $ldap->modify( $dn, increment => { uidNumber => 1 # increment uidNumber by 1 } );
Use this form if you want to control the order in which the operations will be performed.
$mesg = $ldap->modify( $dn, changes => [ add => [ description => 'A description', member => $newMember, ], delete => [ seeAlso => [], ], add => [ anotherAttribute => $value, ], ] );
Example
$mesg = $ldap->modify( $dn, add => { sn => 'Barr' } ); $mesg = $ldap->modify( $dn, delete => [qw(faxNumber)] ); $mesg = $ldap->modify( $dn, delete => { 'telephoneNumber' => '911' } ); $mesg = $ldap->modify( $dn, replace => { 'mail' => 'gbarr@pobox.com' } ); $mesg = $ldap->modify( $dn, changes => [ # add sn=Barr add => [ sn => 'Barr' ], # delete all fax numbers delete => [ faxNumber => []], # delete phone number 911 delete => [ telephoneNumber => ['911']], # change email address replace => [ mail => 'gbarr@pobox.com'] ] );
The result is an object of class Net::LDAP::Search.
Note: children scope requires LDAPv3 subordinate feature extension.
If not specified, then the server will return the attributes that are specified as accessible by default given your bind credentials.
Certain additional attributes such as "createTimestamp" and other operational attributes may also be available for the asking:
$mesg = $ldap->search( ... , attrs => ['createTimestamp'] );
To retrieve the default attributes and additional ones, use '*'.
$mesg = $ldap->search( ... , attrs => ['*', 'createTimestamp'] );
To retrieve no attributes (the server only returns the DNs of matching entries), use '1.1':
$mesg = $ldap->search( ... , attrs => ['1.1'] );
When this option is given, Net::LDAP converts all values of attributes not matching this REGEX into Perl UTF-8 strings so that the regular Perl operators (pattern matching, ...) can operate as one expects even on strings with international characters.
If this option is not given, attribute values are treated as byte strings.
The value provided here overwrites the value inherited from the constructor.
Example: raw => qr/(?i:^jpegPhoto|;binary)/
Example
$mesg = $ldap->search( base => $base_dn, scope => 'sub', filter => '(|(objectclass=rfc822mailgroup)(sn=jones))' ); Net::LDAP::LDIF->new( \*STDOUT,"w" )->write( $mesg->entries );
If you set verify to optional or require, you must also set either cafile or capath. The most secure option is require.
See "SSL_version" in IO::Socket::SSL for more details.
See "SSL_verifycn_name" in IO::Socket::SSL for more details.
If the private key is encrypted (highly recommended) then keydecrypt should be a subroutine that returns the decrypting key. For example:
$ldap = Net::LDAP->new( 'myhost.example.com', version => 3 ); $mesg = $ldap->start_tls( verify => 'require', clientcert => 'mycert.pem', clientkey => 'mykey.pem', keydecrypt => sub { 'secret'; }, capath => '/usr/local/cacerts/' );
The directory in 'capath' must contain certificates named using the hash value of the certificates' subject names. To generate these names, use OpenSSL like this in Unix:
ln -s cacert.pem `openssl x509 -hash -noout < cacert.pem`.0
(assuming that the certificate of the CA is in cacert.pem.)
See "SSL_check_crl" in IO::Socket::SSL for further information.
Example
$mesg = $ldap->unbind;
The following methods are for convenience, and do not return "Net::LDAP::Message" objects.
For example, to get the subject name (in a peculiar OpenSSL-specific format, different from RFC 1779 and RFC 4514) from the server's certificate, do this:
print "Subject DN: " . $ldaps->certificate->subject_name . "\n";
1 Show outgoing packets (using asn_hexdump). 2 Show incoming packets (using asn_hexdump). 4 Show outgoing packets (using asn_dump). 8 Show incoming packets (using asn_dump).
The default value is 0.
subschemaSubentry namingContexts altServer supportedExtension supportedFeatures supportedControl supportedSASLMechanisms supportedLDAPVersion
The result is an object of class Net::LDAP::RootDSE.
Example
my $root = $ldap->root_dse; # get naming Context $root->get_value( 'namingContexts', asref => 1 ); # get supported LDAP versions $root->supported_version;
As the root DSE may change in certain circumstances - for instance when you change the connection using start_tls - you should always use the root_dse method to return the most up-to-date copy of the root DSE.
The result is an object of class Net::LDAP::Schema. Read this documentation for further information about methods that can be performed with this object.
Example
my $schema = $ldap->schema; # get objectClasses @ocs = $schema->all_objectclasses; # Get the attributes @atts = $schema->all_attributes;
The exact object type returned depends on whether SASL layers are established. Without SASL layers the result is always an "IO::Socket" object; with SASL layers the outcome depends on the options given:
If it it missing or if is set to a TRUE value, then the SASL layer handle is returned. Depending on the SASL library used, the object returned is not necessarily an "IO::Socket" object.
If it exists, but is set to a value evaluating to FALSE, then the base "IO::Socket" object underneath the SASL layer is returned.
As the value returned is that element of the constructor's HOST argument with which the connection was established this may or may not be a legal URI.
Returns an error code defined in Net::LDAP::Constant.
Returns an error code defined in Net::LDAP::Constant.
Many of the methods described above accept a control option. This allows the user to pass controls to the server as described in LDAPv3.
A control is a reference to a HASH and should contain the three elements below. If any of the controls are blessed then the method "to_asn" will be called which should return a reference to a HASH containing the three elements described below.
For most purposes Net::LDAP::Control objects are the easiest way to generate controls.
Most of the above commands accept a callback option. This option should be a reference to a subroutine. This subroutine will be called for each packet received from the server as a response to the request sent.
When the subroutine is called the first argument will be the Net::LDAP::Message object which was returned from the method.
If the request is a search then multiple packets can be received from the server. Each entry is received as a separate packet. For each of these the subroutine will be called with a Net::LDAP::Entry object as the second argument.
During a search the server may also send a list of references. When such a list is received then the subroutine will be called with a Net::LDAP::Reference object as the second argument.
Net::LDAP also exports constants for the error codes that can be received from the server, see Net::LDAP::Constant.
Net::LDAP::Constant, Net::LDAP::Control, Net::LDAP::Entry, Net::LDAP::Filter, Net::LDAP::Message, Net::LDAP::Reference, Net::LDAP::Search, Net::LDAP::RFC
The homepage for the perl-ldap modules can be found at http://ldap.perl.org/.
This document is based on a document originally written by Russell Fulton <r.fulton@auckland.ac.nz>.
Chris Ridd <chris.ridd@isode.com> for the many hours spent testing and contribution of the ldap* command line utilities.
A discussion mailing list is hosted by the Perl Foundation at <perl-ldap@perl.org> No subscription is necessary!
We hope you do not find any, but if you do please report them to the mailing list.
If you have a patch, please send it as an attachment to the mailing list.
Graham Barr <gbarr@pobox.com>
Copyright (c) 1997-2004 Graham Barr. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
2018-09-06 | perl v5.34.0 |