Permalink
Browse files

*** empty log message ***

  • Loading branch information...
gbarr committed May 22, 2000
1 parent ceeeafb commit 745009b19f3f8aa6a3f8668850c043ddf3341964
View
@@ -1,3 +1,22 @@
+Change 529 on 2000/05/22 by <gbarr@pobox.com> (Graham Barr)
+
+ Net::LDAP::Search
+ - result code element changed name to resultCode during
+ change-over to Convert::ASN1
+
+Change 527 on 2000/05/22 by <gbarr@pobox.com> (Graham Barr)
+
+ Release 0.18
+
+Change 526 on 2000/05/22 by <gbarr@pobox.com> (Graham Barr)
+
+ Now passes -wc with 5.004, 5.005_03 and 5.6.0
+
+Change 525 on 2000/05/22 by <gbarr@pobox.com> (Graham Barr)
+
+ Bundle::Net::LDAP
+ - Change Convert::ASN to Convert::ASN1
+
Change 522 on 2000/05/19 by <gbarr@pobox.com> (Graham Barr)
Net::LDAP::Filter
View
@@ -1,5 +1,5 @@
# The -*- perl -*- script writes the Makefile for perl-ldap
-# $Id: Makefile.PL,v 1.1 2000/05/03 12:28:25 gbarr Exp $
+# $Id: Makefile.PL,v 1.2 2000/05/22 20:59:50 gbarr Exp $
use 5.004;
use ExtUtils::MakeMaker;
@@ -78,8 +78,8 @@ my @ppd;
if ($] >= 5.00503) {
@ppd = (
- AUTHOR => 'Graham Barr <gbarr@pobox.com>',
- ABSTRACT => 'LDAP Client library'
+ AUTHOR => $AUTHOR,
+ ABSTRACT => $ABSTRACT,
);
}
@@ -88,8 +88,6 @@ WriteMakefile(
NAME => $DISTNAME,
EXE_FILES => $opt_s ? [ values %PL_FILES ] : [],
PL_FILES => \%PL_FILES,
- AUTHOR => $AUTHOR,
- ABSTRACT => $ABSTRACT,
clean => {FILES => 'temp'},
@ppd,
);
View
@@ -1,4 +1,29 @@
-perl-ldap 0.16 April xx 2000
+perl-ldap 0.18 May 22 2000
+============================
+
+* Now passes -wc with 5.004, 5.005_03 and 5.6.0
+* Bundle now correctly references Convert::ASN1 instead of
+ the non-existant Convert::ASN
+* Net::LDAP::Filter will now catch the case of unmatched
+ ()'s and return an error
+* as_struct, which was broken in the changeover to Convert::ASN1,
+ now works again.
+
+ KNOWN PROBLEMS
+ --------------
+
+ Test t/02filter.t fails with perl 5.6.0 compiled with threads enabled
+ This is due to a bug in 5.6.0 when compiled with threads, see
+ http://bugs.perl.org/perlbug.cgi?req=tidmids&tidmids=20000409.003&range=32323&format=h
+
+perl-ldap 0.17 May 12 2000
+============================
+
+* Change to use asn_read instead of asn_resc. This seems to have
+ fixed the known problem with 0.16
+* Various bug fixes, see ChangeLog
+
+perl-ldap 0.16 April 27 2000
============================
* This is the first release which uses Convert::ASN1 instead of
View
13 TODO
@@ -1,10 +1,7 @@
-Net::LDAP::Simulate
- If Net::LDAP dumped a log of all packets in a binary form then
- we could simulate a connection. This means a session can be re-run
- without being connected to the server. Could be useful with debug
-
-Net::LDAP::Schema
- Decide on final implementation
+proxy server
+ Write a proxy server that can dump PDU's from the real server to
+ a file. Then later play these back. This would allow benchmarking
+ to produce more reliable figures.
Net::LDAP::LDIF
Still need to add support for moddn
@@ -18,8 +15,6 @@ command line utilities
ldapdelete
ldapadd
-complete documentation
-
more tests
Net::LDAP::Utils
View
@@ -1,7 +1,7 @@
package Bundle::Net::LDAP;
-$VERSION = '0.01';
+$VERSION = '0.02';
1;
@@ -17,7 +17,7 @@ C<perl -MCPAN -e 'install Bundle::Net::LDAP'>
=head1 CONTENTS
-Convert::ASN
+Convert::ASN1
Digest::MD5
@@ -37,7 +37,7 @@ Graham Barr
=for html <hr>
-I<$Id: LDAP.pm,v 1.1 2000/05/03 12:28:59 gbarr Exp $>
+I<$Id: LDAP.pm,v 1.2 2000/05/22 20:59:50 gbarr Exp $>
=cut
View
@@ -21,7 +21,7 @@ use Net::LDAP::Constant qw(LDAP_SUCCESS
LDAP_PARAM_ERROR
);
-$VERSION = "0.17";
+$VERSION = "0.18";
$LDAP_VERSION = 2; # default LDAP protocol version
@@ -117,15 +117,6 @@ sub socket {
$_[0]->{net_ldap_socket};
}
-# what version are we talking?
-sub version {
- my $ldap = shift;
-
- @_
- ? ($ldap->{net_ldap_version},$ldap->{net_ldap_version} = shift)[0]
- : $ldap->{net_ldap_version};
-}
-
sub unbind {
my $ldap = shift;
@@ -405,15 +396,15 @@ sub delete {
sub moddn {
my $ldap = shift;
my $arg = &_dn_options;
- my $del = $arg->{deleteoldrdn} || $arg->{delete} || 0;
+ my $del = $arg->{deleteoldrdn} || $arg->{'delete'} || 0;
my $newsup = $arg->{newsuperior};
my $mesg = Net::LDAP::ModDN->new($ldap,$arg);
exists $arg->{dn}
or return $mesg->set_error(LDAP_PARAM_ERROR,"No DN specified");
- my $new = $arg->{newrdn} || $arg->{new}
+ my $new = $arg->{newrdn} || $arg->{'new'}
or return $mesg->set_error(LDAP_PARAM_ERROR,"No NewRDN specified");
my $dn;
@@ -660,5 +651,14 @@ sub root_dse {
return $ldap->{net_ldap_rootdse};
}
+# what version are we talking?
+sub version {
+ my $ldap = shift;
+
+ @_
+ ? ($ldap->{net_ldap_version},$ldap->{net_ldap_version} = shift)[0]
+ : $ldap->{net_ldap_version};
+}
+
1;
View
@@ -1,13 +1,14 @@
-# $Id: Control.pm,v 1.2 2000/05/09 16:09:49 gbarr Exp $
+# $Id: Control.pm,v 1.3 2000/05/22 20:59:50 gbarr Exp $
# Copyright (c) 1999-2000 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::LDAP::Control;
use Net::LDAP::Constant qw(/^LDAP_CONTROL/);
+use vars qw($VERSION);
-$VERSION = "0.02";
+$VERSION = "0.03";
my %Pkg2Type = (
@@ -60,9 +61,6 @@ sub new {
bless(\%args, $pkg)->init;
}
-sub valid { ! exists shift->{error} }
-sub error { shift->{error} }
-sub init { shift }
sub from_asn {
my $self = shift;
@@ -77,17 +75,20 @@ sub from_asn {
bless($asn, $class)->init;
}
-sub type { shift->{type} }
-sub critical { shift->{critical} || 0 }
-sub value { shift->{value} || undef }
-
sub to_asn {
my $self = shift;
$self->value; # Ensure value is there
$self->{critical} = 0 unless exists $self->{critical};
$self;
}
+sub type { shift->{type} }
+sub critical { shift->{critical} || 0 }
+sub value { shift->{value} || undef }
+sub valid { ! exists shift->{error} }
+sub error { shift->{error} }
+sub init { shift }
+
1;
__END__
@@ -186,6 +187,6 @@ terms as Perl itself.
=for html <hr>
-I<$Id: Control.pm,v 1.2 2000/05/09 16:09:49 gbarr Exp $>
+I<$Id: Control.pm,v 1.3 2000/05/22 20:59:50 gbarr Exp $>
=cut
@@ -1,11 +1,14 @@
-# $Id: Paged.pm,v 1.1 2000/05/03 12:29:18 gbarr Exp $
+# $Id: Paged.pm,v 1.2 2000/05/22 20:59:50 gbarr Exp $
# Copyright (c) 2000 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::LDAP::Control::Paged;
+use vars qw(@ISA $VERSION);
+
@ISA = qw(Net::LDAP::Control);
+$VERSION = "0.01";
use Net::LDAP::ASN qw(realSearchControlValue);
use strict;
@@ -25,14 +28,6 @@ sub init {
$self;
}
-sub value {
- my $self = shift;
-
- exists $self->{value}
- ? $self->{value}
- : $self->{value} = $realSearchControlValue->encode($self->{asn});
-}
-
sub cookie {
my $self = shift;
$self->{asn} ||= $realSearchControlValue->decode($self->{value});
@@ -53,5 +48,13 @@ sub size {
$self->{asn}{size};
}
+sub value {
+ my $self = shift;
+
+ exists $self->{value}
+ ? $self->{value}
+ : $self->{value} = $realSearchControlValue->encode($self->{asn});
+}
+
1;
@@ -1,11 +1,14 @@
-# $Id: Sort.pm,v 1.2 2000/05/09 16:09:49 gbarr Exp $
+# $Id: Sort.pm,v 1.3 2000/05/22 20:59:50 gbarr Exp $
# Copyright (c) 1999-2000 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::LDAP::Control::Sort;
+use vars qw(@ISA $VERSION);
+
@ISA = qw(Net::LDAP::Control);
+$VERSION = "0.01";
use Net::LDAP::ASN qw(SortRequest);
use strict;
@@ -84,7 +87,7 @@ sub order {
my @order = (@_ == 1) ? split(/\s+/, $_[0]) : @_;
- delete $self->{value};
+ delete $self->{'value'};
delete $self->{order};
delete $self->{error};
@@ -193,6 +196,6 @@ terms as Perl itself.
=for html <hr>
-I<$Id: Sort.pm,v 1.2 2000/05/09 16:09:49 gbarr Exp $>
+I<$Id: Sort.pm,v 1.3 2000/05/22 20:59:50 gbarr Exp $>
=cut
Oops, something went wrong.

0 comments on commit 745009b

Please sign in to comment.