Update of /cvsroot/perl-ldap/ldap/lib/Net
In directory sc8-pr-cvs1:/tmp/cvs-serv31828
Added Files:
LDAPI.pm
Log Message:
New file from Derrik Pates
--- NEW FILE: LDAPI.pm ---
# Copyright (c) 2000-2002 Chris Ridd <chr...@me...> and
# Graham Barr <gb...@po...>. 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::LDAPI;
@Net::LDAPI::ISA = ( 'Net::LDAP' );
$Net::LDAPI::VERSION = "0.01";
use strict;
use Net::LDAP;
use IO::Socket::UNIX;
sub _connect {
my ($ldap, $sockpath) = @_;
$sockpath = "/var/lib/ldapi" unless defined($sockpath);
$ldap->{'net_ldap_socket'} = IO::Socket::UNIX->new(
Type => &SOCK_STREAM,
Peer => $sockpath
);
}
1;
__END__
=head1 NAME
Net::LDAPI - use LDAP over a UNIX domain socket
=head1 SYNOPSIS
use Net::LDAPI;
$ldaps = new Net::LDAPI('/var/lib/ldapi');
=head1 DESCRIPTION
Communicate using the LDAP protocol to a directory server using a
UNIX domain socket.
This class is a subclass of Net::LDAP so all the normal Net::LDAP
methods can be used with a Net::LDAPI object; see the documentation
for Net::LDAP to find out how to query a directory server using the
LDAP protocol.
=head1 CONSTRUCTOR
=over 4
=item new ( [SOCKPATH] )
Create a new connection. SOCKPATH can optionally be specified, to specify
the location of the UNIX domain socket to connect to. By default, the
domain socket path is '/var/lib/ldapi'. This is OpenLDAP-specific.
=back
=head1 SEE ALSO
L<Net::LDAP>,
L<IO::Socket::UNIX>
=head1 BUGS
None yet.
=head1 AUTHOR
Derrik Pates <dp...@ds...>
=head1 COPYRIGHT
Original code Copyright (c) 2000-2002, Chris Ridd and Graham Barr. All
rights reserved. This library is free software; you can redistribute it
and/or modify it under the same terms as Perl itself.
=cut
|
