Mailinglist Archive: opensuse-commit (1116 mails)
| < Previous | Next > |
commit perl-ldap for openSUSE:Factory
- From: root@xxxxxxxxxxxxxxx (h_root)
- Date: Mon, 23 Feb 2009 23:50:58 +0100
- Message-id: <20090223225058.5D275678157@xxxxxxxxxxxxxxx>
Hello community,
here is the log from the commit of package perl-ldap for openSUSE:Factory
checked in at Mon Feb 23 23:50:58 CET 2009.
--------
--- perl-ldap/perl-ldap.changes 2008-09-10 18:04:55.000000000 +0200
+++ perl-ldap/perl-ldap.changes 2009-02-23 16:11:58.000000000 +0100
@@ -1,0 +2,13 @@
+Mon Feb 23 16:11:13 CET 2009 - anicka@xxxxxxx
+
+- update to 0.39
+ * Several fixes to the handling of IntermediateMessage and LDAP
+ Content synchronisation
+ * Fix dsmt test to not fail on win32
+ * Fix Net::LDAP::Util to not cause Undefined subroutine
+ &Net::LDAP::Util::ldap_error_desc
+ * Fix bug in Net::LDAP::Extension using wrong field for resultCode
+ * Fix Net::LDAP::Control::PasswordPolicy decoding bug.
+ * Net::LDAP::Extension::SetPassword now supports controls
+
+-------------------------------------------------------------------
calling whatdependson for head-i586
Old:
----
perl-ldap-0.37.tar.bz2
New:
----
perl-ldap-0.39.tar.bz2
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Other differences:
------------------
++++++ perl-ldap.spec ++++++
--- /var/tmp/diff_new_pack.S14114/_old 2009-02-23 23:48:52.000000000 +0100
+++ /var/tmp/diff_new_pack.S14114/_new 2009-02-23 23:48:52.000000000 +0100
@@ -1,7 +1,7 @@
#
-# spec file for package perl-ldap (Version 0.37)
+# spec file for package perl-ldap (Version 0.39)
#
-# Copyright (c) 2008 SUSE LINUX Products GmbH, Nuernberg, Germany.
+# Copyright (c) 2009 SUSE LINUX Products GmbH, Nuernberg, Germany.
#
# All modifications and additions to the file contributed by third parties
# remain the property of their copyright owners, unless otherwise agreed
@@ -20,7 +20,7 @@
Name: perl-ldap
BuildRequires: perl-Authen-SASL perl-Convert-ASN1 perl-IO-Socket-SSL
perl-XML-Parser
-Version: 0.37
+Version: 0.39
Release: 1
Provides: perl_ldp perl-Net-LDAP = %{version}
Obsoletes: perl_ldp perl-Net-LDAP < %{version}
@@ -103,6 +103,16 @@
%{perl_vendorlib}/Net/LDAPS.pm
%changelog
+* Mon Feb 23 2009 anicka@xxxxxxx
+- update to 0.39
+ * Several fixes to the handling of IntermediateMessage and LDAP
+ Content synchronisation
+ * Fix dsmt test to not fail on win32
+ * Fix Net::LDAP::Util to not cause Undefined subroutine
+ &Net::LDAP::Util::ldap_error_desc
+ * Fix bug in Net::LDAP::Extension using wrong field for resultCode
+ * Fix Net::LDAP::Control::PasswordPolicy decoding bug.
+ * Net::LDAP::Extension::SetPassword now supports controls
* Wed Sep 10 2008 anicka@xxxxxxx
- update to 0.37
* Add Modify Increment (RFC 4525) support
@@ -114,7 +124,7 @@
as array ref
* Added Net::LDAP::Control::PasswordPolicy to support draft RFC
* bugfixes
-* Wed Jul 16 2008 jw@xxxxxxx
+* Tue Jul 15 2008 jw@xxxxxxx
- perl-ldap does not conform to our naming conventions for perl packages.
Added a Provides: perl-Net-LDAP to make user's life easier.
(Using version numbers, to allow future package rename)
++++++ perl-ldap-0.37.tar.bz2 -> perl-ldap-0.39.tar.bz2 ++++++
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/Changes new/perl-ldap-0.39/Changes
--- old/perl-ldap-0.37/Changes 2008-08-28 14:52:15.000000000 +0200
+++ new/perl-ldap-0.39/Changes 2008-10-27 21:05:58.000000000 +0100
@@ -1,3 +1,21 @@
+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
+ * Fix Net::LDAP::Util to not cause Undefined subroutine
&Net::LDAP::Util::ldap_error_desc
+
+perl-ldap 0.38 -- Sun Sep 21 09:17:25 CDT 2008
+==============================================
+
+Bug Fixes
+ * Fix bug in Net::LDAP::Extension using wrong field for resultCode
+ * Fix Net::LDAP::Control::PasswordPolicy decoding bug.
+
+Enhancements
+ * Net::LDAP::Extension::SetPassword now supports controls
+
perl-ldap 0.37 -- Thu Aug 28 07:48:13 CDT 2008
==============================================
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/lib/Net/LDAP/ASN.pm
new/perl-ldap-0.39/lib/Net/LDAP/ASN.pm
--- old/perl-ldap-0.37/lib/Net/LDAP/ASN.pm 2008-08-28 14:52:15.000000000
+0200
+++ new/perl-ldap-0.39/lib/Net/LDAP/ASN.pm 2008-10-27 21:05:58.000000000
+0100
@@ -1,7 +1,7 @@
package Net::LDAP::ASN;
-$VERSION = "0.07";
+$VERSION = "0.08";
use Convert::ASN1;
@@ -455,7 +455,7 @@
refreshAndPersist (3)
}
cookie syncCookie OPTIONAL,
- reloadHint BOOLEAN -- DEFAULT FALSE
+ reloadHint BOOLEAN OPTIONAL -- DEFAULT FALSE
}
syncStateValue ::= SEQUENCE {
@@ -471,22 +471,22 @@
syncDoneValue ::= SEQUENCE {
cookie syncCookie OPTIONAL,
- refreshDeletes BOOLEAN -- DEFAULT FALSE
+ refreshDeletes BOOLEAN OPTIONAL -- DEFAULT FALSE
}
syncInfoValue ::= CHOICE {
newcookie [0] syncCookie,
refreshDelete [1] SEQUENCE {
- refreshDeleteCookie syncCookie OPTIONAL,
- refreshDeleteDone BOOLEAN -- DEFAULT TRUE
+ cookie syncCookie OPTIONAL,
+ refreshDone BOOLEAN OPTIONAL -- DEFAULT TRUE
}
refreshPresent [2] SEQUENCE {
- refreshDeletecookie syncCookie OPTIONAL,
- refreshDeleteDone BOOLEAN -- DEFAULT TRUE
+ cookie syncCookie OPTIONAL,
+ refreshDone BOOLEAN OPTIONAL -- DEFAULT TRUE
}
syncIdSet [3] SEQUENCE {
cookie syncCookie OPTIONAL,
- refreshDeletes BOOLEAN, -- DEFAULT FALSE
+ refreshDeletes BOOLEAN OPTIONAL, -- DEFAULT FALSE
syncUUIDs SET OF syncUUID
}
}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/lib/Net/LDAP/Control/PasswordPolicy.pm
new/perl-ldap-0.39/lib/Net/LDAP/Control/PasswordPolicy.pm
--- old/perl-ldap-0.37/lib/Net/LDAP/Control/PasswordPolicy.pm 2008-08-28
14:52:15.000000000 +0200
+++ new/perl-ldap-0.39/lib/Net/LDAP/Control/PasswordPolicy.pm 2008-10-27
21:05:58.000000000 +0100
@@ -8,7 +8,7 @@
use Net::LDAP::Control;
@ISA = qw(Net::LDAP::Control);
-$VERSION = "0.01";
+$VERSION = "0.02";
use Net::LDAP::ASN qw(ppControlResponse);
use strict;
@@ -19,15 +19,16 @@
delete $self->{asn};
unless (exists $self->{value}) {
- $self->{asn} = {
- timeBeforeExpiration =>
- defined($self->{time_before_expiration}) ?
- $self->{time_before_expiration} : '',
- graceAuthNsRemaining =>
- defined($self->{grace_authentications_remaining}) ?
- $self->{grace_authentications_remaining} : '',
- error => defined($self->{error}) ? $self->{error} : '',
- };
+ $self->{asn} = \my %asn;
+ if (defined($self->{time_before_expiration})) {
+ $asn{warning}{timeBeforeExpiration} =
defined($self->{time_before_expiration});
+ }
+ elsif (defined($self->{grace_authentications_remaining})) {
+ $asn{warning}{graceAuthNsRemaining} = $self->{time_before_expiration};
+ }
+ if (defined($self->{pp_error})) {
+ $asn{error} = $self->{pp_error};
+ }
}
$self;
@@ -38,9 +39,19 @@
$self->{asn} ||= $ppControlResponse->decode($self->{value});
if (@_) {
delete $self->{value};
- return $self->{asn}{timeBeforeExpiration} = shift || 0;
+ my $time = shift;
+ if (defined $time) {
+ $self->{asn}{warning} = { timeBeforeExpiration => $time };
+ }
+ elsif (my $warning = $self->{asn}{warning}) {
+ if (exists $warning->{timeBeforeExpiration}) {
+ delete $self->{asn}{warning};
+ }
+ }
+ return $time;
}
- $self->{asn}{timeBeforeExpiration};
+ my $warning = $self->{asn}{warning};
+ $warning && $warning->{timeBeforeExpiration};
}
sub grace_authentications_remaining {
@@ -48,21 +59,40 @@
$self->{asn} ||= $ppControlResponse->decode($self->{value});
if (@_) {
delete $self->{value};
- return $self->{asn}{graceAuthNsRemaining} = shift || 0;
+ my $remaining = shift;
+ if (defined $remaining) {
+ $self->{asn}{warning} = { graceAuthNsRemaining => $remaining };
+ }
+ elsif (my $warning = $self->{asn}{warning}) {
+ if (exists $warning->{graceAuthNsRemaining}) {
+ delete $self->{asn}{warning};
+ }
+ }
+ return $remaining;
}
- $self->{asn}{graceAuthNsRemaining};
+ my $warning = $self->{asn}{warning};
+ $warning && $warning->{graceAuthNsRemaining};
}
-sub error {
+sub pp_error {
my $self = shift;
$self->{asn} ||= $ppControlResponse->decode($self->{value});
if (@_) {
delete $self->{value};
- return $self->{asn}{error} = shift || 0;
+ return $self->{asn}{error} = shift;
}
$self->{asn}{error};
}
+sub value {
+ my $self = shift;
+ return $self->{value} if exists $self->{value};
+ my $asn = $self->{asn};
+ # Return undef if all optional values are missing
+ return undef unless $asn and (defined $asn->{error} or $asn->{warning});
+ $self->{value} = $ppControlResponse->encode($self->{asn});
+}
+
1;
__END__
@@ -89,7 +119,7 @@
my($resp) = $mesg->control( LDAP_CONTROL_PASSWORDPOLICY );
if (defined($resp)) {
- my $v = $resp->error;
+ my $v = $resp->pp_error;
print "Password policy error $v\n" if defined $v;
$v = $resp->time_before_expiration;
print "Password expires in $v second(s)\n" if defined $v;
@@ -123,7 +153,7 @@
If defined, this is an integer value holding the number of
authentication requests allowed before the account is locked.
-=item error
+=item pp_error
If defined, this contains a more detailed error code for the account.
See L<Net::LDAP::Constant> for definitions of each.
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/lib/Net/LDAP/Control/SyncDone.pm
new/perl-ldap-0.39/lib/Net/LDAP/Control/SyncDone.pm
--- old/perl-ldap-0.37/lib/Net/LDAP/Control/SyncDone.pm 2008-08-28
14:52:15.000000000 +0200
+++ new/perl-ldap-0.39/lib/Net/LDAP/Control/SyncDone.pm 2008-10-27
21:05:58.000000000 +0100
@@ -8,22 +8,19 @@
use Net::LDAP::Control;
@ISA = qw(Net::LDAP::Control);
-$VERSION = "0.01";
+$VERSION = "0.02";
use Net::LDAP::ASN qw(syncDoneValue);
use strict;
-# use some kind of hack here:
-# - calling the control without args means: response,
-# - giving an argument: means: request
sub init {
my($self) = @_;
- delete $self->{asn};
-
- unless (exists $self->{value}) {
+ if (exists $self->{value}) {
+ $self->{asn} = $syncDoneValue->decode(delete $self->{value});
+ } else {
$self->{asn} = {
- cookie => $self->{cookie} || '',
+ cookie => defined($self->{cookie}) ? $self->{cookie} : '',
refreshDeletes => $self->{refreshDeletes} || '0',
};
}
@@ -36,7 +33,7 @@
$self->{asn} ||= $syncDoneValue->decode($self->{value});
if (@_) {
delete $self->{value};
- return $self->{asn}{cookie} = shift || 0;
+ return $self->{asn}{cookie} = defined($_[0]) ? $_[0] : '';
}
$self->{asn}{cookie};
}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/lib/Net/LDAP/Control/SyncRequest.pm
new/perl-ldap-0.39/lib/Net/LDAP/Control/SyncRequest.pm
--- old/perl-ldap-0.37/lib/Net/LDAP/Control/SyncRequest.pm 2008-08-28
14:52:15.000000000 +0200
+++ new/perl-ldap-0.39/lib/Net/LDAP/Control/SyncRequest.pm 2008-10-27
21:05:58.000000000 +0100
@@ -8,14 +8,11 @@
use Net::LDAP::Control;
@ISA = qw(Net::LDAP::Control);
-$VERSION = "0.01";
+$VERSION = "0.02";
use Net::LDAP::ASN qw(syncRequestValue);
use strict;
-# use some kind of hack here:
-# - calling the control without args means: response,
-# - giving an argument: means: request
sub init {
my($self) = @_;
@@ -64,10 +61,8 @@
sub value {
my $self = shift;
-
- exists $self->{value}
- ? $self->{value}
- : $self->{value} = $syncRequestValue->encode($self->{asn});
+ return $self->{value} if exists $self->{value};
+ $self->{value} = $syncRequestValue->encode($self->{asn});
}
1;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/lib/Net/LDAP/Control/SyncState.pm
new/perl-ldap-0.39/lib/Net/LDAP/Control/SyncState.pm
--- old/perl-ldap-0.37/lib/Net/LDAP/Control/SyncState.pm 2008-08-28
14:52:15.000000000 +0200
+++ new/perl-ldap-0.39/lib/Net/LDAP/Control/SyncState.pm 2008-10-27
21:05:58.000000000 +0100
@@ -8,24 +8,21 @@
use Net::LDAP::Control;
@ISA = qw(Net::LDAP::Control);
-$VERSION = "0.01";
+$VERSION = "0.02";
use Net::LDAP::ASN qw(syncStateValue);
use strict;
-# use some kind of hack here:
-# - calling the control without args means: response,
-# - giving an argument: means: request
sub init {
my($self) = @_;
- delete $self->{asn};
-
- unless (exists $self->{value}) {
+ if (exists $self->{value}) {
+ $self->{asn} = $syncStateValue->decode(delete $self->{value});
+ } else {
$self->{asn} = {
state => $self->{state} || '',
entryUUID => $self->{entryUUID} || '',
- cookie => $self->{cookie} || '',
+ cookie => defined($self->{cookie}) ? $self->{cookie} : '',
};
}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/lib/Net/LDAP/Extension/SetPassword.pm
new/perl-ldap-0.39/lib/Net/LDAP/Extension/SetPassword.pm
--- old/perl-ldap-0.37/lib/Net/LDAP/Extension/SetPassword.pm 2008-08-28
14:52:15.000000000 +0200
+++ new/perl-ldap-0.39/lib/Net/LDAP/Extension/SetPassword.pm 2008-10-27
21:05:58.000000000 +0100
@@ -3,7 +3,7 @@
require Net::LDAP::Extension;
-$VERSION = "0.02";
+$VERSION = "0.03";
@ISA = qw(Net::LDAP::Extension);
use Convert::ASN1;
@@ -25,7 +25,8 @@
my $res = $ldap->extension(
name => '1.3.6.1.4.1.4203.1.11.1',
- value => $passwdModReq->encode(\%opt)
+ value => $passwdModReq->encode(\%opt),
+ ($opt{control} ? (control => $opt{control}) : ())
);
bless $res; # Naughty :-)
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/lib/Net/LDAP/Extension.pm
new/perl-ldap-0.39/lib/Net/LDAP/Extension.pm
--- old/perl-ldap-0.37/lib/Net/LDAP/Extension.pm 2008-08-28
14:52:15.000000000 +0200
+++ new/perl-ldap-0.39/lib/Net/LDAP/Extension.pm 2008-10-27
21:05:58.000000000 +0100
@@ -7,13 +7,13 @@
use vars qw(@ISA $VERSION);
@ISA = qw(Net::LDAP::Message);
-$VERSION = "1.01";
+$VERSION = "1.02";
#fetch the response name
sub response_name {
my $self = shift;
- $self->sync unless exists $self->{Code};
+ $self->sync unless exists $self->{resultCode};
exists $self->{responseName}
? $self->{responseName}
@@ -24,7 +24,7 @@
sub response {
my $self = shift;
- $self->sync unless exists $self->{Code};
+ $self->sync unless exists $self->{resultCode};
exists $self->{response}
? $self->{response}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/lib/Net/LDAP/Intermediate/SyncInfo.pm
new/perl-ldap-0.39/lib/Net/LDAP/Intermediate/SyncInfo.pm
--- old/perl-ldap-0.37/lib/Net/LDAP/Intermediate/SyncInfo.pm 2008-08-28
14:52:15.000000000 +0200
+++ new/perl-ldap-0.39/lib/Net/LDAP/Intermediate/SyncInfo.pm 2008-10-27
21:05:58.000000000 +0100
@@ -8,23 +8,47 @@
use Net::LDAP::Intermediate;
@ISA = qw(Net::LDAP::Intermediate);
-$VERSION = "0.01";
+$VERSION = "0.02";
use Net::LDAP::ASN qw(syncInfoValue);
use strict;
-# use some kind of hack here:
-# - calling the control without args means: response,
-# - giving an argument: means: request
sub init {
my($self) = @_;
- delete $self->{asn};
-
- unless (exists $self->{responseValue}) {
- $self->{asn} = {
- newcookie => $self->{newcookie} || '',
- };
+ if (exists $self->{responseValue}) {
+ $self->{asn} = $syncInfoValue->decode(delete $self->{responseValue});
+ } else {
+ $self->{asn} = {};
+ $self->{asn}{newcookie} =
+ delete $self->{newcookie} if exists $self->{newcookie};
+ $self->{asn}{refreshDelete} =
+ delete $self->{refreshDelete} if exists $self->{refreshDelete};
+ $self->{asn}{refreshPresent} =
+ delete $self->{refreshPresent} if exists $self->{refreshPresent};
+ $self->{asn}{syncIdSet} =
+ delete $self->{syncIdSet} if exists $self->{syncIdSet};
+ }
+ #$self->{asn}{refreshDelete}{refreshDone} defaults to TRUE
+ if(defined($self->{asn}{refreshDelete})) {
+ $self->{asn}{refreshDelete}{refreshDone} =
+ defined($self->{asn}{refreshDelete}{refreshDone})
+ ? $self->{asn}{refreshDelete}{refreshDone}
+ : 1;
+ }
+ #$self->{asn}{refreshPresent}{refreshDone} defaults to TRUE
+ if(defined($self->{asn}{refreshPresent})) {
+ $self->{asn}{refreshPresent}{refreshDone} =
+ defined($self->{asn}{refreshPresent}{refreshDone})
+ ? $self->{asn}{refreshPresent}{refreshDone}
+ : 1;
+ }
+ #$self->{asn}{syncIdSet}{refreshDeletes} defaults to FALSE
+ if(defined($self->{asn}{syncIdSet})) {
+ $self->{asn}{syncIdSet}{refreshDeletes} =
+ defined($self->{asn}{syncIdSet}{refreshDeletes})
+ ? $self->{asn}{syncIdSet}{refreshDeletes}
+ : 0;
}
$self;
@@ -32,11 +56,8 @@
sub newcookie {
my $self = shift;
- $self->{asn} ||= $syncInfoValue->decode($self->{responseValue});
- if (@_) {
- delete $self->{responseValue};
- return $self->{asn}{newcookie} = shift || 0;
- }
+ @_ ? ($self->{asn}{newcookie}=shift)
+ : $self->{asn}{newcookie};
$self->{asn}{cookie};
}
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/lib/Net/LDAP/Intermediate.pm
new/perl-ldap-0.39/lib/Net/LDAP/Intermediate.pm
--- old/perl-ldap-0.37/lib/Net/LDAP/Intermediate.pm 2008-08-28
14:52:15.000000000 +0200
+++ new/perl-ldap-0.39/lib/Net/LDAP/Intermediate.pm 2008-10-27
21:05:58.000000000 +0100
@@ -11,11 +11,11 @@
LDAP_SYNC_INFO
);
-$VERSION = "0.01";
+$VERSION = "0.02";
my %Class2ResponseName = (
- #'Net::LDAP::Intermediate::SyncInfo' => LDAP_SYNC_INFO, #disabled as
decoding doesn't work
+ 'Net::LDAP::Intermediate::SyncInfo' => LDAP_SYNC_INFO,
);
my %ResponseName2Class = reverse %Class2ResponseName;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/lib/Net/LDAP/Message.pm
new/perl-ldap-0.39/lib/Net/LDAP/Message.pm
--- old/perl-ldap-0.37/lib/Net/LDAP/Message.pm 2008-08-28 14:52:15.000000000
+0200
+++ new/perl-ldap-0.39/lib/Net/LDAP/Message.pm 2008-10-27 21:05:58.000000000
+0100
@@ -9,7 +9,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = "1.10";
+$VERSION = "1.11";
my $MsgID = 0;
@@ -102,10 +102,12 @@
}
sub error_name {
+ require Net::LDAP::Util;
Net::LDAP::Util::ldap_error_name(shift->code);
}
sub error_text {
+ require Net::LDAP::Util;
Net::LDAP::Util::ldap_error_text(shift->code);
}
@@ -142,9 +144,21 @@
# free up memory as we have a result so we will not need to re-send it
delete $self->{pdu};
- # tell our LDAP client to forget us as this message has now completed
- # all communications with the server
- $self->parent->_forgetmesg($self);
+ if ($data = delete $result->{protocolOp}{intermediateResponse}) {
+
+ my $intermediate = Net::LDAP::Intermediate->from_asn($data);
+
+ push(@{$self->{'intermediate'} ||= []}, $intermediate);
+
+ $self->{callback}->($self, $intermediate)
+ if (defined $self->{callback});
+
+ return $self;
+ } else {
+ # tell our LDAP client to forget us as this message has now completed
+ # all communications with the server
+ $self->parent->_forgetmesg($self);
+ }
$self->{callback}->($self)
if (defined $self->{callback});
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/lib/Net/LDAP/RootDSE.pm
new/perl-ldap-0.39/lib/Net/LDAP/RootDSE.pm
--- old/perl-ldap-0.37/lib/Net/LDAP/RootDSE.pm 2008-08-28 14:52:15.000000000
+0200
+++ new/perl-ldap-0.39/lib/Net/LDAP/RootDSE.pm 2008-10-27 21:05:58.000000000
+0100
@@ -40,7 +40,7 @@
my $dse = $ldap->root_dse();
# get naming Contexts
- my @contexts = $dse->get_value('namingContext');
+ my @contexts = $dse->get_value('namingContexts');
# get supported LDAP versions as an array reference
my $versions = $dse->get_value('supportedLDAPVersion', asref => 1);
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/lib/Net/LDAP/Search.pm
new/perl-ldap-0.39/lib/Net/LDAP/Search.pm
--- old/perl-ldap-0.37/lib/Net/LDAP/Search.pm 2008-08-28 14:52:15.000000000
+0200
+++ new/perl-ldap-0.39/lib/Net/LDAP/Search.pm 2008-10-27 21:05:58.000000000
+0100
@@ -13,7 +13,7 @@
use Net::LDAP::Constant qw(LDAP_SUCCESS LDAP_DECODING_ERROR);
@ISA = qw(Net::LDAP::Message);
-$VERSION = "0.12";
+$VERSION = "0.13";
sub first_entry { # compat
@@ -36,6 +36,8 @@
return $self->SUPER::decode($result)
if exists $result->{protocolOp}{searchResDone};
+ return $self->SUPER::decode($result)
+ if exists $result->{protocolOp}{intermediateResponse};
my $data;
@{$self}{qw(controls ctrl_hash)} = ($result->{controls}, undef);
@@ -64,17 +66,6 @@
return $self;
}
- elsif ($data = delete $result->{protocolOp}{intermediateResponse}) {
-
- my $intermediate = Net::LDAP::Intermediate->from_asn($data);
-
- push(@{$self->{'intermediate'} ||= []}, [$intermediate]);
-
- $self->{callback}->($self, $intermediate)
- if (defined $self->{callback});
-
- return $self;
- }
$self->set_error(LDAP_DECODING_ERROR, "LDAP decode error");
return;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/lib/Net/LDAP.pm
new/perl-ldap-0.39/lib/Net/LDAP.pm
--- old/perl-ldap-0.37/lib/Net/LDAP.pm 2008-08-28 14:52:15.000000000 +0200
+++ new/perl-ldap-0.39/lib/Net/LDAP.pm 2008-10-27 21:05:58.000000000 +0100
@@ -28,7 +28,7 @@
LDAP_UNAVAILABLE
);
-$VERSION = "0.37";
+$VERSION = "0.39";
@ISA = qw(Tie::StdHash Net::LDAP::Extra);
$LDAP_VERSION = 3; # default LDAP protocol version
@@ -1026,7 +1026,7 @@
return $mesg
if IO::Socket::SSL::socketToSSL($sock, {_SSL_context_init_args($arg)});
- my $err = $@;
+ my $err = $@ || $IO::Socket::SSL::SSL_ERROR || $IO::Socket::SSL::SSL_ERROR
|| ''; # avoid use on once warning
if ($sock_class ne ref($sock)) {
$err = $sock->errstr;
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/lib/Net/LDAP.pod
new/perl-ldap-0.39/lib/Net/LDAP.pod
--- old/perl-ldap-0.37/lib/Net/LDAP.pod 2008-08-28 14:52:15.000000000 +0200
+++ new/perl-ldap-0.39/lib/Net/LDAP.pod 2008-10-27 21:05:58.000000000 +0100
@@ -417,10 +417,24 @@
string if only a single value is wanted in the attribute, or a
reference to an array of strings if multiple values are wanted.
+ $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',
+ ]
+ }
+ );
+
=item delete =E<gt> [ ATTR, ... ]
Delete complete attributes from the entry.
+ $mesg = $ldap->modify( $dn,
+ delete => ['member','description'] # Delete attributes
+ );
+
=item delete =E<gt> { ATTR =E<gt> VALUE, ... }
Delete individual values from an attribute. C<VALUE> should be a
@@ -428,13 +442,40 @@
a reference to an array of strings if multiple values are being
deleted.
+If C<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
+ }
+ );
+
=item replace =E<gt> { ATTR =E<gt> VALUE, ... }
Replace any existing values in each given attribute with
C<VALUE>. C<VALUE> should be a string if only a single value is wanted
in the attribute, or a reference to an array of strings if multiple
values are wanted. A reference to an empty array will remove the
-entire attribute.
+entire attribute. If the attribute does not already exist in the
+entry, it will be created.
+
+ $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
+ }
+ );
=item increment =E<gt> { ATTR =E<gt> VALUE, ... }
@@ -444,6 +485,12 @@
advertizes support for LDAP_FEATURE_MODIFY_INCREMENT. Use
L<Net::LDAP::RootDSE/supported_feature> to check this.
+ $mesg = $ldap->modify( $dn,
+ increment => {
+ uidNumber => 1 # increment uidNumber by 1
+ }
+ );
+
=item changes =E<gt> [ OP =E<gt> [ ATTR =E<gt> VALUE ], ... ]
This is an alternative to B<add>, B<delete>, B<replace> and B<increment>
@@ -454,6 +501,21 @@
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,
+ ],
+ ]
+ );
+
=item control =E<gt> CONTROL
=item control =E<gt> [ CONTROL, ... ]
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/Makefile.PL
new/perl-ldap-0.39/Makefile.PL
--- old/perl-ldap-0.37/Makefile.PL 2008-08-28 14:52:15.000000000 +0200
+++ new/perl-ldap-0.39/Makefile.PL 2008-10-27 21:05:58.000000000 +0100
@@ -11,6 +11,11 @@
license ('perl');
abstract ('LDAP client library');
+resources homepage => 'http://ldap.perl.org/';
+resources repository => 'http://git.goingon.net/?p=perl-lda.git;a=summary';
+resources MailingList => 'http://lists.cpan.org/showlist.cgi?name=perl-ldap';
+resources ListArchive => 'http://perl.markmail.org/search/list:perl-ldap';
+
sign(1);
check_nmake(); # check and download nmake.exe for Win32
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/META.yml new/perl-ldap-0.39/META.yml
--- old/perl-ldap-0.37/META.yml 2008-08-28 14:52:15.000000000 +0200
+++ new/perl-ldap-0.39/META.yml 2008-10-27 21:05:58.000000000 +0100
@@ -17,4 +17,9 @@
requires:
Convert::ASN1: 0.07
perl: 5.004
-version: 0.37
+resources:
+ ListArchive: http://perl.markmail.org/search/list:perl-ldap
+ MailingList: http://lists.cpan.org/showlist.cgi?name=perl-ldap
+ homepage: http://ldap.perl.org/
+ repository: http://git.goingon.net/?p=perl-lda.git;a=summary
+version: 0.39
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/SIGNATURE new/perl-ldap-0.39/SIGNATURE
--- old/perl-ldap-0.37/SIGNATURE 2008-08-28 14:52:15.000000000 +0200
+++ new/perl-ldap-0.39/SIGNATURE 2008-10-27 21:05:58.000000000 +0100
@@ -16,12 +16,12 @@
SHA1 24a5cce207ec42358c1cff40639e6dff8d7e8d6b .gitignore
SHA1 d0b391ea67d4af1e877c4476490c95cf3f8783e6 CREDITS
-SHA1 24b111e2babe43d89238159d69519c39c373a31c Changes
+SHA1 9ef4f162ea6a8a1807778503c3119ad70a8bc6b3 Changes
SHA1 18422f27b2f17b10e9d18b4e482d7bfc95c8df86 INSTALL
SHA1 c2bec936399190520629d3a2e25b313c471c241e MANIFEST
SHA1 88cb906904179e0adf52007f0679a294294ea021 MANIFEST.SKIP
-SHA1 9d4376f9d94e41f1ddd484f92ac4c9170d7ab388 META.yml
-SHA1 a73ad16739e5ebb9df0242295510cd3dcd4785ba Makefile.PL
+SHA1 b8ced17ca37131e36ae5fbdf57a58bbd21656afb META.yml
+SHA1 7767423201733f281c8b344b2b9079b2f545af2e Makefile.PL
SHA1 f3b66414a0872801f3c4c38a93499d0fe48509ef README
SHA1 6c5729e4c6bb46c66fcc33dbb8231292d1c14dee TODO
SHA1 8e15e7abefa826736358685aa1115810baaa9b4a bin/ldapdelete
@@ -82,51 +82,51 @@
SHA1 4dde3f6e30c239c15c234309b7c32dd5a7d409a9 install-nomake
SHA1 da956a83d04192b551118b6ddffc32977cff5427 lib/Bundle/Net/LDAP.pm
SHA1 3637699c1d2e0427a74aa5e44ef0f61a725a83f4 lib/LWP/Protocol/ldap.pm
-SHA1 f028f8fee44babefc7122fefcfd008f9af402e23 lib/Net/LDAP.pm
-SHA1 c20c8cb8fdf5f930a00ffa24706be4a67e9fc4f1 lib/Net/LDAP.pod
-SHA1 9161a577599bc648dfb2ce46fcb10a96a62dfb6a lib/Net/LDAP/ASN.pm
+SHA1 635cdcfa7a5a631ba6a2b25a9d125b6cfd7f781c lib/Net/LDAP.pm
+SHA1 a4f08a76aa0da5c2c5af06207b230aff3a429c41 lib/Net/LDAP.pod
+SHA1 1fb74f66d0ed5ba26e468d6a2b99e5eb769c2411 lib/Net/LDAP/ASN.pm
SHA1 4b1f29fd2ca60e4bf1bcf6ae8d97f56c2442eb56 lib/Net/LDAP/Bind.pm
SHA1 8b37856e342f814ff7ad3f7906ccf9025ca54bdd lib/Net/LDAP/Constant.pm
SHA1 75265c14cc727900c1cb21aeac3dc8d09bceda8a lib/Net/LDAP/Control.pm
SHA1 ab3a966de9724b2ce4197757fec087a766bb4a09
lib/Net/LDAP/Control/EntryChange.pm
SHA1 f2db11b80336a47c8bc5a1ebeb2ad0228838275c
lib/Net/LDAP/Control/ManageDsaIT.pm
SHA1 409330c198b6459bffdb78761ce22a300417337e lib/Net/LDAP/Control/Paged.pm
-SHA1 d9119f1138226c7823905afd8946d8be66e849e3
lib/Net/LDAP/Control/PasswordPolicy.pm
+SHA1 fe30617a053e2edbdcfae924390fb940dff1884e
lib/Net/LDAP/Control/PasswordPolicy.pm
SHA1 28e53a53f254fbee4f8b71ab311f9ca833007f59
lib/Net/LDAP/Control/PersistentSearch.pm
SHA1 4aefe0e20e65cef8c42d631de86b4fcaabc4ad93 lib/Net/LDAP/Control/PostRead.pm
SHA1 e9f76fc3b7b3cb0ef6d81fba0650373959a8abde lib/Net/LDAP/Control/PreRead.pm
SHA1 7171701e5043314e5ce026847fb42111065af2ec lib/Net/LDAP/Control/ProxyAuth.pm
SHA1 ffd5e5f5035b4aa5b3c64f018791e338a4c98372 lib/Net/LDAP/Control/Sort.pm
SHA1 9e0e84ea6eb7cefd13caa9788a3ffa24c8017d4d
lib/Net/LDAP/Control/SortResult.pm
-SHA1 503b79341eb1a9818a557ffe0d2f1a728d5ad0b7 lib/Net/LDAP/Control/SyncDone.pm
-SHA1 2c033db6b95eb43b2d4395ac3103513e4b9f2af5
lib/Net/LDAP/Control/SyncRequest.pm
-SHA1 8222e4e8c461bbc593a2c1c2943b90c6e477285d lib/Net/LDAP/Control/SyncState.pm
+SHA1 3ae73fb52dbeb7c2992c578c2d73181fef8fd26f lib/Net/LDAP/Control/SyncDone.pm
+SHA1 3d7933131dee9892f0aadf18becb16fa50d3a9c1
lib/Net/LDAP/Control/SyncRequest.pm
+SHA1 a140a8ec88d15a89b8d2fcda76d05e01ce8b2255 lib/Net/LDAP/Control/SyncState.pm
SHA1 bccc55cb200ec061790cef7420dff28e0c15eb54 lib/Net/LDAP/Control/VLV.pm
SHA1 bb9ff3dde55d0f40d69a51db611c113abe994247
lib/Net/LDAP/Control/VLVResponse.pm
SHA1 3aa62f4c9ce94ead75f633a7fa1ced2a2bf9f4dc lib/Net/LDAP/DSML.pm
SHA1 9bbe4edd5987aacc832b09a2d4ed043752f7ebdd lib/Net/LDAP/Entry.pm
SHA1 19e9a756153d83d4f31cc821826f84125933a2e0 lib/Net/LDAP/Entry.pod
SHA1 f9a7c3e2ad3e9398c7c142ce6e015af2a7060f17 lib/Net/LDAP/Examples.pod
-SHA1 e52b67753bb12fd61d10cab20905fdb390361283 lib/Net/LDAP/Extension.pm
-SHA1 61301677c081a6c2afa4bd39250d3d50fd2047bf
lib/Net/LDAP/Extension/SetPassword.pm
+SHA1 b3ad85252ac3fa97bd63149cbe1fc94302b2acea lib/Net/LDAP/Extension.pm
+SHA1 acc63277837285411078a27ed73c575316fa6717
lib/Net/LDAP/Extension/SetPassword.pm
SHA1 e701488dfea2250b60bf1a5e58d556ab173f57a8 lib/Net/LDAP/Extension/WhoAmI.pm
SHA1 1d0e9a195cec05800c9ad9d4fcb2d567bf4dc116 lib/Net/LDAP/Extra.pm
SHA1 ff4ff38435edd72be15178a7afceb486a560a804 lib/Net/LDAP/FAQ.pod
SHA1 9509f50030b3609b993117ce8f9dc00231343002 lib/Net/LDAP/Filter.pm
SHA1 56ff107733bf97c57b339f78e4525719689dccac lib/Net/LDAP/Filter.pod
SHA1 7e541bc6e29f1148f75d8f47f888c2716b57d294 lib/Net/LDAP/FilterMatch.pm
-SHA1 373fac8c6393802f1f4e305c821fbd14f70069a6 lib/Net/LDAP/Intermediate.pm
-SHA1 765b008e1ac52529370036cce7e4a9be46fc1338
lib/Net/LDAP/Intermediate/SyncInfo.pm
+SHA1 5cabe2f34c7aa04c301002f1af9bfc0a9c036ac8 lib/Net/LDAP/Intermediate.pm
+SHA1 ed17717ec4df7bcb432adfe203c5c4a31e25ecdb
lib/Net/LDAP/Intermediate/SyncInfo.pm
SHA1 f6208ff00d3d611c171be7d2c022fd5dd5bca4cc lib/Net/LDAP/LDIF.pm
SHA1 f7f354fb4e0f3bf13a215579b8aa0842a4768dfa lib/Net/LDAP/LDIF.pod
-SHA1 bc918716f7c14d3dfba582898c9c7487d08cea86 lib/Net/LDAP/Message.pm
+SHA1 51c60e66777834451da018b7310d193a27d77278 lib/Net/LDAP/Message.pm
SHA1 6a8b2d30a43d6295de37771c2576cb66c7f10bfd lib/Net/LDAP/Message.pod
SHA1 1ae5e4d10afff9f5d6cd8262a294db331fb461d5 lib/Net/LDAP/RFC.pod
SHA1 4921a9eb85f595aaa4c5c2bf7261feae54440763 lib/Net/LDAP/Reference.pod
-SHA1 f06325e3a75f69792014a762919c1fcf90ab7d78 lib/Net/LDAP/RootDSE.pm
+SHA1 cc2a08d0823bd8ceef9b8977bfe9436e5f9e3144 lib/Net/LDAP/RootDSE.pm
SHA1 91b9629d67cc2fe12689e4a9b42cba658fc206fd lib/Net/LDAP/Schema.pm
SHA1 4e23323449b264e98257c4bc257aaa454469386b lib/Net/LDAP/Schema.pod
-SHA1 dc6bb8acf0c4bf514b02aee9f167a67e5920e386 lib/Net/LDAP/Search.pm
+SHA1 205d45feba6b42d72d1013a120c7bd255e5ad663 lib/Net/LDAP/Search.pm
SHA1 15021444c87d36bbb22755766c0554ef7f633165 lib/Net/LDAP/Search.pod
SHA1 118c4b8e7f937fa5e9abe1cb2bfff9e7d8445471 lib/Net/LDAP/Security.pod
SHA1 19892d74ed36da101a9060e0de2915ed2a4da28d lib/Net/LDAP/Util.pm
@@ -137,7 +137,7 @@
SHA1 67604a71b08d134734b07e9f5971bff62ad8bd46 t/02filter.t
SHA1 6afb905b4d8583a2f3dbeef2068cc953dffe7c25 t/03schema.t
SHA1 9b58a5eb0ec7b9ef4cb3c79d63704f986359b2ed t/04refloop.t
-SHA1 c198788b69660b3002a526622bb190afb766b6ff t/05dsml.t
+SHA1 eba304e946aef7bbae1bfda78e9e2ddc6c423648 t/05dsml.t
SHA1 3a7eb17f2c49544f59afe23d3ec89a948a0ddcd0 t/06constant.t
SHA1 77b30ffef2402f438cf57a9af95f0358d50bb27e t/50populate.t
SHA1 60962ef635db1ddf1da912cdd063611fb9181846 t/51search.t
@@ -153,7 +153,7 @@
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.9 (Darwin)
-iEYEARECAAYFAki2ny0ACgkQR0BL4gbYw3QvRACghtDa7UVuxFTHNFAJFSjVZLU0
-eNUAn375ZIZ92Rfgyo0H2mDe8xuWStWM
-=57M5
+iEYEARECAAYFAkkGHugACgkQR0BL4gbYw3SHSgCeIixCAdfWByO+qroI84cdsj4Y
+PYUAnixrLKXplCiv2XJH8LJqdN+VdV8F
+=cNnE
-----END PGP SIGNATURE-----
diff -urN --exclude=CVS --exclude=.cvsignore --exclude=.svn
--exclude=.svnignore old/perl-ldap-0.37/t/05dsml.t new/perl-ldap-0.39/t/05dsml.t
--- old/perl-ldap-0.37/t/05dsml.t 2008-08-28 14:52:15.000000000 +0200
+++ new/perl-ldap-0.39/t/05dsml.t 2008-10-27 21:05:58.000000000 +0100
@@ -28,7 +28,7 @@
@entry = $ldif->read;
open(FH,">$outfile1");
-
+binmode FH;
my $dsml = Net::LDAP::DSML->new(output => \*FH,pretty_print => 1);
$dsml->write_entry($_) for @entry;
@@ -40,6 +40,7 @@
# (don't rely on unpatched XML::SAX::Writer [e.g. Debian])
{
open(FH, "+<$outfile1");
+binmode FH;
local $/; # slurp mode
my $txt = <FH>;
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Remember to have fun...
--
To unsubscribe, e-mail: opensuse-commit+unsubscribe@xxxxxxxxxxxx
For additional commands, e-mail: opensuse-commit+help@xxxxxxxxxxxx
| < Previous | Next > |