/usr/share/perl5/Net/LDAPS.pm is in libnet-ldap-perl 1:0.6500+dfsg-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 | # Copyright (c) 2000-2004 Chris Ridd <chris.ridd@isode.com> and
# Graham Barr <gbarr@pobox.com>. 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::LDAPS;
use strict;
use Net::LDAP;
our @ISA = qw(Net::LDAP);
our $VERSION = '0.06';
sub new {
shift->SUPER::new(@_, scheme => 'ldaps');
}
1;
__END__
=head1 NAME
Net::LDAPS - use LDAP over an SSL connection
=head1 SYNOPSIS
use Net::LDAPS;
$ldaps = Net::LDAPS->new('myhost.example.com',
port => '10000',
verify => 'require',
capath => '/usr/local/cacerts/');
# alternate way
use Net::LDAP;
$ldaps = Net::LDAP->new('ldaps://myhost.example.com:10000',
verify => 'require',
capath => '/usr/local/cacerts/');
=head1 DESCRIPTION
Communicate using the LDAP protocol to a directory server using an
encrypted (SSL) network connection. This mechanism is non-standard but
widely supported; consider using LDAPv3 with the standard TLS
extension if possible (many servers do not support it yet.) See
L<Net::LDAP/start_tls>.
All the normal C<Net::LDAP> methods can be used with a C<Net::LDAPS>
object; see L<Net::LDAP> for details.
=head1 CONSTRUCTOR
=over 4
=item new ( HOST [, OPTIONS ] )
Create a new connection. HOST is the hostname to contact. OPTIONS is a
number of key/value pairs. See L<Net::LDAP/new> for details.
=back
=head1 SEE ALSO
L<Net::LDAP>,
L<IO::Socket::SSL>
=head1 BUGS
You cannot have more than one LDAPS connection at any one time, due to
restrictions in the underlying Net::SSLeay code.
=head1 AUTHOR
Chris Ridd E<lt>chris.ridd@isode.comE<gt>
=head1 COPYRIGHT
Copyright (c) 2000-2004, 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
|