perl-ldap

 view release on metacpan or  search on metacpan

Changes  view on Meta::CPAN

  * use current IO::Socket::SSL's method start_SSL instead of deprecated function socketToSSL; raise required IO::Socket:SSL version appropriately [Peter Marschall]
  * FilterMatch.pm: fix regex treatment in _{cis,exact}_substrings(). [Peter Marschall]
  * FilterMatch.pm: correct # of args in function declarations/definitions [Peter Marschall]
  * Don't duplicate documentation [Mathieu Parent]
  * Added numcmp option to compare attributes numerically. [Kartik Subbarao]
  * Avoid infinite loop when authenticating with EXTERNAL mechanism
  * Add Net::LDAP::Extension::Refresh as described in RFC2589 [Etienne Bagnoud]
  * RT#40068 Fix tests to work with 2.4.11
  * Add ldif method to Net::LDAP::Entry
  * RT#46111 Make LWP::Protocol::ldap return ldif when requested
  * RT#51165 Compact multiple consecutive spaces in Net::LDAP::Util::canonical_dn
  * RT#46125 Add LWP::Protocol::ldaps to support ldaps: urls
  * RT#44110 Fix Net::LDAP::LDIF->current_lines


perl-ldap 0.39 -- Mon Oct 27 15:02:37 CDT 2008
==============================================

Bug Fixes
 * Several fixes to the handling of IntermediateMessage and LDAP Content synchronisation
 * Fix dsmt test to not fail on win32

contrib/ldifdiff.pl  view on Meta::CPAN

=item B<targetfile>

Specifies the target LDIF file.

=back

=cut

use Net::LDAP;
use Net::LDAP::LDIF;
use Net::LDAP::Util qw(canonical_dn);
use Getopt::Long;

use strict;

my @sourceattrs;
my (%ciscmp, %numcmp, %dnattrs, %sharedattrs, %xattrs);
my $keyattr;
GetOptions('a|sourceattrs=s' => sub { @sourceattrs = split(/,/, $_[1]) },
	'c|ciscmp=s' => sub { my @a = split(/,/,lc $_[1]); @ciscmp{@a} = (1) x @a },
	'dnattrs=s' => sub { my @a = split(/,/,lc $_[1]); @dnattrs{@a} = (1) x @a },

lib/Net/LDAP/FilterMatch.pm  view on Meta::CPAN

sub import {
  shift;

  push(@_, @Net::LDAP::Filter::approxMatchers)  unless @_;
  @Net::LDAP::Filter::approxMatchers = grep { eval "require $_" } @_ ;
}

package Net::LDAP::Filter;

use Net::LDAP::Util qw(canonical_dn ldap_explode_dn);

our @approxMatchers = qw(
  String::Approx
  Text::Metaphone
  Text::Soundex
);

sub _filterMatch($@);

# specific matching rules

lib/Net/LDAP/LDIF.pod  view on Meta::CPAN

in some way:

=over 4

=item 'none'

The default.

=item 'canonical'

See L<Net::LDAP::Util/canonical_dn>.

=item 'base64'

Use base64.

=back

=item onerror =E<gt> 'die' | 'warn' | 'undef'

Specify what happens when an error is detected.

lib/Net/LDAP/Search.pm  view on Meta::CPAN

      my $v;
      my $i = 2;
      foreach my $attr (@_) {
	$v = ($a->[$i] ||= join("\000", @{$a->[0]->get_value($attr, asref => 1) || []}))
	      cmp
	     ($b->[$i] ||= join("\000", @{$b->[0]->get_value($attr, asref => 1) || []}))
	  and last;
	$i++;
      }

      $v ||= ($a->[1] ||= Net::LDAP::Util::canonical_dn( $a->[0]->dn, reverse => 1, separator => "\0"))
		cmp
	     ($b->[1] ||= Net::LDAP::Util::canonical_dn( $b->[0]->dn, reverse => 1, separator => "\0"));
    }
    map { [ $_ ] } @{$self->{entries}};
}

sub references {
  my $self = shift;

  $self->sync  unless exists $self->{resultCode};

  return  unless exists $self->{reference} && ref($self->{reference});

lib/Net/LDAP/Util.pm  view on Meta::CPAN

=cut

require Exporter;
require Net::LDAP::Constant;
our @ISA = qw(Exporter);
our @EXPORT_OK = qw(
  ldap_error_name
  ldap_error_text
  ldap_error_desc
  canonical_dn
  ldap_explode_dn
  escape_filter_value
  unescape_filter_value
  escape_dn_value
  unescape_dn_value
  ldap_url_parse
  generalizedTime_to_time
  time_to_generalizedTime
);
our %EXPORT_TAGS = (
	error	=> [ qw(ldap_error_name ldap_error_text ldap_error_desc) ],
	filter	=> [ qw(escape_filter_value unescape_filter_value) ],
	dn    	=> [ qw(canonical_dn ldap_explode_dn
	                escape_dn_value unescape_dn_value) ],
	escape 	=> [ qw(escape_filter_value unescape_filter_value
	                escape_dn_value unescape_dn_value) ],
	url   	=> [ qw(ldap_url_parse) ],
	time	=> [ qw(generalizedTime_to_time time_to_generalizedTime) ],
);

our $VERSION = '0.20';

=item ldap_error_name ( ERR )

 view all matches for this distribution
 view release on metacpan -  search on metacpan