Net::LDAP::FAQ - Frequently Asked Questions about Net::LDAP
perldoc Net::LDAP::FAQ
This document serves to answer the most frequently asked questions on both the perl-ldap Mailing List and personally to me.
perl-ldap is the distribution name. The perl-ldap distribution contains the Net::LDAP modules.
perl-ldap's goal is to be as portable as possible. It does this by being implemented completely in perl. So basically anywhere that perl runs perl-ldap will run. This is not true for other implementations which require a C compiler.
perl-ldap is available from CPAN. You will find it in the authors/id/GBARR directory. Alternatively you can download the latest version from http://www.cpan.org/search?dist=perl-ldap
Yes there is at perl-ldap@mail.med.cornell.edu
You can subscribe to this list by sending the word subscribe in the body of a message to perl-ldap-request@mail.med.cornell.edu
If you want to unsubscribe, send a message with the word unsubscribe in the body to the same address
There is an archive of the perl-ldap mailing list at http://www.xray.mpe.mpg.de/mailing-lists/perl-ldap/
Yes. perl-ldap has a web page at http://www.pobox.com/~gbarr/perl-ldap which will have the latest documentation available.
No, not right now. But there may be in the future.
To install the modules that are in the perl-ldap distribution follow the same steps that you would for most other distributions found on CPAN, that is
# replace 0.13 with the version you have gunzip perl-ldap-0.13.tar.gz tar xvf perl-ldap-0.13.tar cd perl-ldap-0.13 perl Makefile.PL make make test make install
Well as luck would have it the modules in perl-ldap do not do anything complex, so a simple copy is enough to install. First run
perl -V
This will output information about the version of perl you have installed. Near the bottom you will find something like
@INC: /usr/local/perl/perl5.005/lib/5.00502/sun4-solaris /usr/local/perl/perl5.005/lib/5.00502 /usr/local/perl/perl5.005/lib/site_perl/5.005/sun4-solaris /usr/local/perl/perl5.005/lib/site_perl/5.005 .
This is a list of directories that perl searches when it is looking for a module. The directory you need is the site_perl directory, but without the syatem architecture name, in this case it is /usr/local/perl/perl5.005/lib/site_perl/5.005. The files required can then be installed with
/usr/local/perl/perl5.005/lib/site_perl/5.005
# replace 0.13 with the version you have gunzip perl-ldap-0.13.tar.gz tar xvf perl-ldap-0.13.tar cd perl-ldap-0.13/lib cp * /usr/local/perl/perl5.005/lib/site_perl/5.005
perl-ldap does use other modules. Some are required, but some are optional (ie required to use certain features)
This module is required for perl-ldap to work.
You can obtain the latest release from http://search.cpan.org/search?module=Convert::BER
This module is optional. It also requires a C compiler when installing. You only need to install Digest::MD5 if you want to use the SASL authentication method.
You can obtain the latest release from http://search.cpan.org/search?module=Digest::MD5
This module is optional. You only need to install URI::ldap if you are going to need to parse ldap referrals. Net::LDAP does not do this automatically yet, so this module is not used by perl-ldap.
You can obtain the latest release from http://search.cpan.org/search?module=URI::ldap
The connection to the server is created when you create a new Net::LDAP object, e.g.
$ldap = Net::LDAP->new($server);
The constructor will return undef if there was a problem connecting to the specified server. Any error message will be available in $@
Most methods in Net::LDAP return a Net::LDAP::Message object, or a sub-class of that. This object will hold the results from the server, including and result code.
So, for example, to determine the result of the bind operation.
$mesg = $ldap->bind( $dn, password => $passwd); if ( $mesg->code ) { # Handle error codes here }
Your search results are stored in a 'search object' container. Consider the following:
use Net::LDAP; $ldap = Net::LDAP->new('ldap.acme.com') or die "$@"; $mesg = $ldap->search( base => "o=acme.com", filter => "uid=jsmith", );
$mesg is a search object container. It is a reference blessed into the Net::LDAP::Search package. By calling methods on this object you can obtain information about the result and also the individual entries.
The first thing to check is if the search was successful. This is done with with the method $mesg-code>. This method will return the status code that the server returned. A success will yield a zero value, but there are other values, some of which could also be considered a success. See Net::LDAP::Constant
$mesg-
use Net::LDAP::Util qw(ldap_error_text); die ldap_error_text($mesg->code) if $mesg->code;
There are two ways in which you can access the entries. You can access then with an index or you can treat the container like a stack and shift each entry in turn. For example
# as an array my $max = $mesg->count; # How many entries were returned from the search for( my $index = 0 ; $index < $max ; $index++) { my $entry = $mesg->entry($index); # ... } # or as a stack while( my $entry = $mesg->shift_entry) { # ... }
In each case $entry is an entry object container. It is a reference blessed into the Net::LDAP::Entry package. By calling methods on this object you can obtain information about the entry.
For example, to obtain the DN for the entry
$dn = $entry->dn;
To obtain the attributes that a given entry has
@attrs = $entry->attributes;
And to get the list of values for a given attribute
$values = $entry->get( 'sn' );
Notice that the assignment is to a scalar. This is because get will return a reference to a list, even if there is only one value for that attribute, and undef if the attribute does not exist. One thing to remember is that attribute names are case insensitive, so 'sn', 'Sn', 'sN' and 'SN' are all the same.
get
undef
So, if you want to print all the values for the attribute 'ou' then this is as simple as
'ou'
if( my $values = $entry->get( 'ou' )) { foreach (@$values) { print $_,"\n"; } }
Now if you just want to print all the values for all the attributes you can do
foreach my $attr ($entry->attributes) { foreach my $value ($entry->get($attr)) { print $attr, ": ", $value, "\n"; } }
Graham Barr <gbarr@pobox.com>
Please report any bugs, or post any suggestions, to the perl-ldap mailing list <perl-ldap@mail.med.cornell.edu>.
Copyright (c) 1999-2000 Graham Barr. All rights reserved. This document is distributed, and may be redistributed, under the same terms as Perl itself.
To install Net::LDAP, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::LDAP
CPAN shell
perl -MCPAN -e shell install Net::LDAP
For more information on module installation, please visit the detailed CPAN module installation guide.