Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

*** empty log message ***

  • Loading branch information...
commit 3aa50902f773cccc957a5e76dc12f3792246eb2e 1 parent 745009b
@gbarr gbarr authored
Showing with 56 additions and 33 deletions.
  1. +14 −0 ChangeLog
  2. +8 −0 RELEASE_NOTES
  3. +3 −2 lib/Net/LDAP.pm
  4. +31 −31 t/53schema.t
View
14 ChangeLog
@@ -1,3 +1,17 @@
+Change 537 on 2000/06/08 by <gbarr@pobox.com> (Graham Barr)
+
+ Release 0.19
+
+Change 533 on 2000/05/31 by <gbarr@pobox.com> (Graham Barr)
+
+ Net::LDAP
+ - Reset hash iterator for each call
+
+Change 532 on 2000/05/30 by <gbarr@pobox.com> (Graham Barr)
+
+ Net::LDAP
+ - Fix asn1 name from modifyDNRequest to modDNRequest
+
Change 529 on 2000/05/22 by <gbarr@pobox.com> (Graham Barr)
Net::LDAP::Search
View
8 RELEASE_NOTES
@@ -1,3 +1,11 @@
+perl-ldap 0.19 June 8 2000
+============================
+
+* Fixed bug which caused 2nd and subsequent binds to be anonymous.
+* Fixed bug in moddn.
+* Fix bug which caused a call to ->pop_entry or ->shift_entry
+ to hang forever.
+
perl-ldap 0.18 May 22 2000
============================
View
5 lib/Net/LDAP.pm
@@ -21,7 +21,7 @@ use Net::LDAP::Constant qw(LDAP_SUCCESS
LDAP_PARAM_ERROR
);
-$VERSION = "0.18";
+$VERSION = "0.19";
$LDAP_VERSION = 2; # default LDAP protocol version
@@ -168,6 +168,7 @@ sub bind {
my($auth_type,$passwd) = (simple => "");
+ keys %ptype; # Reset iterator
while(my($param,$type) = each %ptype) {
if (exists $arg->{$param}) {
($auth_type,$passwd) = ($type,$arg->{$param});
@@ -410,7 +411,7 @@ sub moddn {
my $dn;
$mesg->encode(
- modifyDNRequest => {
+ modDNRequest => {
entry => ref($dn = $arg->{dn}) ? $dn->dn : $dn,
newrdn => ref($new) ? $new->dn : $new,
deleteoldrdn => $del,
View
62 t/53schema.t
@@ -1,31 +1,31 @@
-#!perl -w
-use Net::LDAP::Schema;
-
-print "1..5\n";
-
-my $schema = Net::LDAP::Schema->new( "data/schema.in" ) or die "Cannot open schema";
-print "ok 1\n";
-
-my @atts = sort $schema->attributes();
-print "not " unless @atts == 55;
-print "ok 2\n";
-
-print "The schema contains ", scalar @atts, " attributes\n";
-
-my @ocs = $schema->objectclasses();
-print "not " unless @ocs == 22;
-print "ok 3\n";
-print "The schema contains ", scalar @ocs, " object classes\n";
-
-@atts = $schema->must( "person" );
-print "not " unless join(' ',@atts) eq join(' ',qw(cn sn));
-print "ok 4\n";
-print "The 'person' OC must have these attributes [",
- join( ",", @atts ),
- "]\n";
-@atts = $schema->may( "mhsOrganizationalUser" );
-print "not " if @atts;
-print "ok 5\n";
-print "The 'mhsOrganizationalUser' OC must have these attributes [",
- join( ",", @atts ),
- "]\n";
+#!perl -w
+use Net::LDAP::Schema;
+
+print "1..5\n";
+
+my $schema = Net::LDAP::Schema->new( "data/schema.in" ) or die "Cannot open schema";
+print "ok 1\n";
+
+my @atts = sort $schema->attributes();
+print "not " unless @atts == 55;
+print "ok 2\n";
+
+print "The schema contains ", scalar @atts, " attributes\n";
+
+my @ocs = $schema->objectclasses();
+print "not " unless @ocs == 22;
+print "ok 3\n";
+print "The schema contains ", scalar @ocs, " object classes\n";
+
+@atts = $schema->must( "person" );
+print "not " unless join(' ',@atts) eq join(' ',qw(cn sn));
+print "ok 4\n";
+print "The 'person' OC must have these attributes [",
+ join( ",", @atts ),
+ "]\n";
+@atts = $schema->may( "mhsOrganizationalUser" );
+print "not " if @atts;
+print "ok 5\n";
+print "The 'mhsOrganizationalUser' OC must have these attributes [",
+ join( ",", @atts ),
+ "]\n";
Please sign in to comment.
Something went wrong with that request. Please try again.