You can subscribe to this list here.
2001 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
(9) |
Nov
(4) |
Dec
(15) |
---|---|---|---|---|---|---|---|---|---|---|---|---|
2002 |
Jan
(23) |
Feb
(18) |
Mar
(11) |
Apr
(3) |
May
(23) |
Jun
(13) |
Jul
(16) |
Aug
(11) |
Sep
(5) |
Oct
(4) |
Nov
(2) |
Dec
(4) |
2003 |
Jan
(18) |
Feb
(13) |
Mar
(56) |
Apr
(3) |
May
(124) |
Jun
(21) |
Jul
(2) |
Aug
(8) |
Sep
(1) |
Oct
(23) |
Nov
(4) |
Dec
(2) |
2004 |
Jan
(18) |
Feb
(5) |
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
From: Graham B. <gb...@us...> - 2002-07-18 20:04:10
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory usw-pr-cvs1:/tmp/cvs-serv21015/lib/Net/LDAP Modified Files: DSML.pm Log Message: Need to end the dsml:attribute-type element Index: DSML.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/DSML.pm,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- DSML.pm 18 Jul 2002 18:19:43 -0000 1.15 +++ DSML.pm 18 Jul 2002 20:04:07 -0000 1.16 @@ -516,6 +516,8 @@ $handler->characters({Data => $syn}); $handler->end_element(\%data); } + @data{qw(Name LocalName)} = qw(dsml:attribute-type attribute-type); + $handler->end_element(\%data); } foreach my $oc ($schema->all_objectclasses) { |
From: Graham B. <gb...@us...> - 2002-07-18 18:19:48
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory usw-pr-cvs1:/tmp/cvs-serv5002/lib/Net/LDAP Modified Files: DSML.pm Log Message: Added no strict 'refs' to AUTOLOAD Index: DSML.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/DSML.pm,v retrieving revision 1.14 retrieving revision 1.15 diff -u -d -r1.14 -r1.15 --- DSML.pm 29 May 2002 02:47:37 -0000 1.14 +++ DSML.pm 18 Jul 2002 18:19:43 -0000 1.15 @@ -5,13 +5,13 @@ # use strict; -use vars qw(@ISA); +use vars qw(@ISA $VERSION); use Carp; use XML::SAX::Base; use Net::LDAP::Entry; @ISA = qw(XML::SAX::Base); - +$VERSION = "0.10"; # OO purists will hate this :) my %schema_typemap = qw( @@ -650,6 +650,7 @@ sub AUTOLOAD { (my $meth = $AUTOLOAD) =~ s/^.*:://; + no strict 'refs'; *{$meth} = sub { shift->{handler}->$meth(@_) }; goto &$meth; } |
From: Graham B. <gb...@us...> - 2002-07-18 13:01:34
|
Update of /cvsroot/perl-ldap/ldap In directory usw-pr-cvs1:/tmp/cvs-serv9715 Modified Files: ChangeLog Log Message: Release 0.26 Index: ChangeLog =================================================================== RCS file: /cvsroot/perl-ldap/ldap/ChangeLog,v retrieving revision 1.25 retrieving revision 1.26 diff -u -d -r1.25 -r1.26 --- ChangeLog 29 Oct 2001 17:29:38 -0000 1.25 +++ ChangeLog 18 Jul 2002 13:01:29 -0000 1.26 @@ -1,3 +1,414 @@ +2002-07-18 14:01 Graham Barr + + * RELEASE_NOTES, lib/Net/LDAP.pm: + + Release 0.26 + +2002-07-18 13:58 Graham Barr + + * MANIFEST, lib/Net/LDAP/Extension/SetPassword.pm: + + Added Net::LDAP::Extension::SetPassword + +2002-07-16 00:07 Graham Barr + + * lib/Net/LDAP.pm: + + Fix arguemnts passed to IO::Socket::SSL by start_tls + +2002-07-15 02:28 Clif Harden + + * lib/Net/LDAP/FAQ.pod: + + + Added new book listing, Managing Enterprise Active Directory Services + +2002-06-30 02:32 Clif Harden + + * lib/Net/LDAP/FAQ.pod: + + + Added information and URL for Rafael Corvalan's LDAP shell. + +2002-06-18 13:39 Graham Barr + + * lib/Net/LDAP/Entry.pod: + + POD clarification for ->delete + +2002-06-15 03:47 Clif Harden + + * contrib/tklkup: + + + Added code to close windows after ldap actions are taken. This is to force + a new search after data has been changed. + +2002-06-12 03:04 Clif Harden + + * lib/Net/LDAP/FAQ.pod: + + + Added a reference to Clayton Donley's new book; LDAP Programming. + Added a reference to Octet String, another directory provider. + Removed reference to Iplanet. + Added a reference to Sun One which now has the Iplanet directory server. + +2002-06-03 16:48 Graham Barr + + * Makefile.PL: + + Dont generate html docs when creating release dist + +2002-06-03 16:42 Graham Barr + + * mkmanf: + + Dont scan htdocs for files + +2002-06-03 16:35 Graham Barr + + * lib/Net/LDAP.pod: + + Add Mailing list section + +2002-06-03 16:26 Graham Barr + + * lib/Net/LDAP/Search.pm, lib/Net/LDAP/Util.pm, t/01canon_dn.t: + + New implementation of canonical_dn and ldap_explode_dn, + thanks to Norbert Klasen + +2002-05-31 16:16 Graham Barr + + * MANIFEST, data/00-cmp.ldif: + + Add missing file data/00-cmp.ldif to CVS and MANIFEST + +2002-05-29 12:02 Graham Barr + + * lib/Net/LDAP/LDIF.pm: + + Handle the case where the version spec is by itself + +2002-05-29 03:47 Clif Harden + + * lib/Net/LDAP/DSML.pm: + + Initial attempt at putting POD documentation in the DSML.pm module. + +2002-05-28 12:15 Chris Ridd + + * lib/Net/: LDAPS.pm, LDAP.pod: + + Added decryptkey parameter + +2002-05-28 10:34 Graham Barr + + * lib/Net/LDAP.pm: + + Remember host connected to, needed for sasl + +2002-05-28 10:03 Graham Barr + + * CREDITS: + + Add Kartik Subbarao and Norbert Klasen + +2002-05-28 09:34 Graham Barr + + * htdocs/index.xml, mkhtml, mkindex: + + No longer including html generated from POD in the distribution + +2002-05-28 09:13 Graham Barr + + * lib/Net/LDAP/Entry.pm: + + Fix return hash for get_value($attr, alloptions => 1); + +2002-05-28 08:57 Graham Barr + + * lib/Net/LDAP/Schema.pm: + + Fix bug when fetching elements with OIDs + +2002-05-28 08:52 Graham Barr + + * lib/Net/LDAP/: DSML/Parser.pm, DSML.pm: + + New DSML module that uses XML::SAX + +2002-05-28 02:54 Clif Harden + + * contrib/tklkup: + + + Made several code corrections to the code that stores xml formatted + schema information in a file. This is due to the new DSML.pm module. + +2002-05-25 06:05 Clif Harden + + * contrib/tklkup: + + + Change schema code to comprehend the new Schema.pm file. + Added code to determine new x and y position when the main window moves. + +2002-05-21 15:53 Chris Ridd + + * lib/Net/LDAP.pm: + + Changed extendedRequest to extendedReq + +2002-05-17 14:50 Chris Ridd + + * Makefile.PL: + + Specified minimum version of IO::Socket::SSL + +2002-05-17 14:49 Chris Ridd + + * lib/Net/LDAP.pm: + + Removed workaround for old IO::Socket::SSL versions + +2002-04-23 17:07 Graham Barr + + * lib/LWP/Protocol/ldap.pm: + + Patch from ma...@ev... + +2002-04-23 11:57 Graham Barr + + * lib/Net/LDAP/: Schema.pm, Schema.pod: + + New Schema API + +2002-04-23 11:52 Graham Barr + + * lib/Net/LDAP/LDIF.pm: + + Support line continuations in LDIF files in comments. + Patch from Norbert Klasen + +2002-02-18 16:51 Graham Barr + + * MANIFEST, Makefile.PL, htdocs/index.xml, lib/Authen/SASL.pm, + lib/Authen/SASL.pod, lib/Authen/SASL/CRAM_MD5.pm, + lib/Authen/SASL/EXTERNAL.pm, lib/Net/LDAP.pm, lib/Net/LDAP/Bind.pm: + + Change over to using Authen::SASL v2.00, which is now distributed + in a separate distribution + +2002-02-18 15:58 Graham Barr + + * lib/Net/LDAP.pm: + + Allow host passed to new to be an array ref of several to try + +2002-02-04 18:58 Graham Barr + + * data/00-in.ldif, data/core.schema, data/slapd2-conf.in, + t/00ldif-entry.t, t/50populate.t, t/51search.t, t/52modify.t, + t/53schema.t, t/54dse.t, t/55ssl.t, t/common.pl: + + Some testcase tweaks + +2002-02-04 14:58 Graham Barr + + * lib/Net/LDAP/LDIF.pm: + + Add support for the version number line + +2002-01-31 15:25 Graham Barr + + * lib/Net/LDAP/Util.pm, t/01canon_dn.t: + + move some logic from canonical_dn into explode_dn and add some more + tests for DNs + +2002-01-31 14:04 Graham Barr + + * lib/Net/LDAP/Filter.pm: + + Fix uninit warning + +2002-01-31 13:32 Graham Barr + + * lib/Net/LDAP/LDIF.pm: + + Fix the \n output when the output is to a terminal or a pipe + +2002-01-23 13:25 Graham Barr + + * lib/Net/LDAP/Schema.pm: + + Tweak the regexp that parses the elements to beter match qdstrings + that contain ' + +2002-01-09 17:19 Graham Barr + + * lib/Net/LDAP/Filter.pm, t/02filter.t: + + Fix filters to be RFC compliant + +2002-01-03 03:01 Clif Harden + + * lib/Net/LDAP/DSML.pm: + + + Corrected _schemaToXML function to comprehend that a multi-valued oid + number could be returned from name2oid method. Now use the is_attribute, + is_objectclass, ..., methods to determine oid number. + +2002-01-03 02:53 Clif Harden + + * contrib/tklkup: + + + Corrected schema parse and display code to comprehend that a multi-valued + oid number could be returned from name2oid method. Now use the + is_attribute, is_objectclass, ..., methods to determine oid number. + +2002-01-01 03:39 Clif Harden + + * lib/Net/LDAP/DSML.pm: + + + Corrected VERSION number. No code changes were made. + +2001-12-29 22:53 Clif Harden + + * contrib/tklkup: + + + Added code to allow the schema information to be stored in a file as + DSML XML data. User can now select to store the data as text or XML. + +2001-12-29 22:51 Clif Harden + + * lib/Net/LDAP/DSML.pm: + + + Added close method. The close method does not do anything, but is called + by the DESTROY method. For some reason the close method was never coded. + Original DSML writter must have had a reason for doing this, just never + implement it. + +2001-12-29 01:50 Clif Harden + + * contrib/tklkup: + + + Added code to allow editing of a entry's attributes. + This makes this software a full featured LDAP directory interface. + Added pod documentation about new windows and features. + +2001-12-25 01:09 Clif Harden + + * lib/Net/LDAP/DSML.pm: + + + Updated the VERSION variable, brings in more inline with the + CVS version number. No code changes were made. + +2001-12-25 01:05 Clif Harden + + * lib/Net/LDAP/DSML.pm: + + + Made changes to _schemaToXML subroutine to speed it up. + +2001-12-20 05:05 Clif Harden + + * lib/Net/LDAP/DSML.pm: + + + Completed coding of schema to DSML xml process. + Changed the way file and array processing was done with schema data. + Added additional pod documentation. + +2001-12-19 22:27 Graham Barr + + * lib/Net/LDAP/Schema.pm: + + - Fix bug in ->item when $item_name is not specified + - Don't generate an element name from the description, use the OID + +2001-12-19 04:37 Clif Harden + + * lib/Net/LDAP/DSML.pm: + + + Added code to put schema data into DSML XML format. Data + can be stored in an array reference or file. + +2001-12-18 12:59 Clif Harden + + * lib/Net/LDAP/DSML.pm: + + + Changed code to allow and comprehend the passing of an array + referrence instead of a file handle. This touched all of the + methods that wrote to a file. The new code does/should not affect + the way the code worked with a file handle. + +2001-12-17 16:50 Clif Harden + + * lib/Net/LDAP/FAQ.pod: + + + Added text about simulated server failover. + +2001-12-17 01:35 Clif Harden + + * contrib/tklkup: + + + Added fail safe code to the DELETE entry operation. This forces the + user to confirm the delete entry request. + Added pod documentation for the DELETE fail safe window. + +2001-12-15 05:06 Clif Harden + + * contrib/tklkup: + + + Corrected pod documentation error. + +2001-12-15 04:57 Clif Harden + + * contrib/tklkup: + + + Added code to allow various entry modifications. + Added code to delete an entry. + Added code to do a mod RDN on an entry. + Changed search code to display in a ROText box. + Started code for entry data modification, this code is not complete + but will not break anything if used. It will just display the data + in the Text box that will be used of modification. + Updated pod documentation to reflect the code changes. + +2001-12-03 16:20 Graham Barr + + * Makefile.PL: + + Add check for MIME::Base64 + +2001-11-10 06:35 Graham Barr + + * lib/Net/LDAP/Entry.pm: + + Fix case-sensitively in get_value with alloptions=>1 + +2001-11-10 06:29 Graham Barr + + * lib/Net/LDAP/Util.pm: + + Added ldap_explode_dn + 2001-10-29 17:29 Graham Barr * RELEASE_NOTES, lib/Net/LDAP.pm: @@ -12,7 +423,7 @@ 2001-10-24 15:37 Graham Barr - * htdocs/: index.html, index.xml: + * MANIFEST, htdocs/index.html, htdocs/index.xml: Add the new Security pod to the index page @@ -22,6 +433,12 @@ LDIF is now an RFC. +2001-10-24 14:51 Chris Ridd + + * MANIFEST: + + Added lib/Net/LDAP/Security.pod + 2001-10-24 14:49 Chris Ridd * lib/Net/LDAP/Security.pod: @@ -36,7 +453,7 @@ 2001-10-23 16:07 Graham Barr - * contrib/ldapmodify.pl: + * MANIFEST, contrib/ldapmodify.pl: Added contrib/ldapmodify.pl from Kartik Subbarao @@ -306,15 +723,15 @@ 2001-07-06 11:56 Graham Barr - * install-nomake: + * MANIFEST, install-nomake: Add install-nomake for those who don't have make 2001-07-06 11:55 Graham Barr - * test.cfg, data/cert.pem, data/key.pem, data/slapd2-conf.in, - lib/Net/LDAP.pm, lib/Net/LDAPS.pm, t/54dse.t, t/55ssl.t, - t/common.pl: + * MANIFEST, test.cfg, data/cert.pem, data/key.pem, + data/slapd2-conf.in, lib/Net/LDAP.pm, lib/Net/LDAPS.pm, t/54dse.t, + t/55ssl.t, t/common.pl: Remove croaks from SSL/TLS methods Add testing for Net::LDAPS and start_tls @@ -367,6 +784,12 @@ Use syswrite() instead of send(), so Net::LDAPS does not need to redefine _sendmesg() Split out the connect from new(), so Net::LDAPS does not need to redefine new() +2001-07-03 20:44 Graham Barr + + * MANIFEST: + + Add 70sortctrl.t and ldifsort.pl + 2001-07-03 20:30 Graham Barr * contrib/: README, ldifsort.pl: @@ -421,12 +844,12 @@ 2001-06-11 18:03 Graham Barr - * test.cfg, data/50-cmp.ldif, data/50-in.ldif, data/51-in.ldif, - data/51a-cmp.ldif, data/51b-cmp.ldif, data/51c-cmp.ldif, - data/51d-cmp.ldif, data/52-cmp.ldif, data/52-in.ldif, - data/52-mod.ldif, data/core.schema, data/cosine.schema, - data/inetorgperson.schema, data/slapd2-conf.in, t/50populate.t, - t/51search.t, t/52modify.t, t/common.pl: + * MANIFEST, test.cfg, data/50-cmp.ldif, data/50-in.ldif, + data/51-in.ldif, data/51a-cmp.ldif, data/51b-cmp.ldif, + data/51c-cmp.ldif, data/51d-cmp.ldif, data/52-cmp.ldif, + data/52-in.ldif, data/52-mod.ldif, data/core.schema, + data/cosine.schema, data/inetorgperson.schema, data/slapd2-conf.in, + t/50populate.t, t/51search.t, t/52modify.t, t/common.pl: Update test suite to work with either OpenLDAP1 or OpenLDAP2 @@ -610,10 +1033,17 @@ Tweaks to dependcies of distdir +2001-04-10 18:02 Graham Barr + + * MANIFEST: + + Add docs for ProxyAuth module + 2001-04-10 17:30 Graham Barr - * htdocs/index.xml, lib/Net/LDAP/ASN.pm, lib/Net/LDAP/Constant.pm, - lib/Net/LDAP/Control.pm, lib/Net/LDAP/Control/ProxyAuth.pm: + * MANIFEST, htdocs/index.xml, lib/Net/LDAP/ASN.pm, + lib/Net/LDAP/Constant.pm, lib/Net/LDAP/Control.pm, + lib/Net/LDAP/Control/ProxyAuth.pm: Add Net::LDAP::Control::ProxyAuth from Olivier Dubois @@ -680,7 +1110,7 @@ 2001-03-12 14:01 Graham Barr - * contrib/: jpegDisplay.pl, jpegLoad.pl: + * MANIFEST, contrib/jpegDisplay.pl, contrib/jpegLoad.pl: New contrib scripts from Clif Harden @@ -783,7 +1213,7 @@ 2001-01-29 22:32 Graham Barr - * OldChanges: + * MANIFEST, OldChanges: Move perforce changelog aside and now generate with cvs2cl @@ -866,21 +1296,21 @@ 2000-05-03 13:28 Graham Barr - * Makefile.PL, README, RELEASE_NOTES, TODO, bin/ldapdelete.PL, - bin/ldapmodrdn.PL, bin/ldapsearch.PL, contrib/checkauth.pl, - contrib/examples, contrib/isMember.pl, contrib/isMember.readme, - contrib/printMembers.pl, contrib/printMembers.readme, - contrib/schema, contrib/schema.README, contrib/schema.tklkup, - contrib/tklkup, contrib/tklkup.README, contrib/tklkup.tklkup, - data/00-cmp2.ldif, data/00-in.ldif, data/50-cmp.ldif, - data/50-in.ldif, data/51-in.ldif, data/51a-cmp.ldif, - data/51b-cmp.ldif, data/51c-cmp.ldif, data/51d-cmp.ldif, - data/52-cmp.ldif, data/52-in.ldif, data/52-mod.ldif, - data/schema.in, data/slapd-conf.in, data/slapd.at.conf, - data/slapd.oc.conf, lib/Authen/SASL.pm, lib/Authen/SASL.pod, - lib/Authen/SASL/CRAM_MD5.pm, lib/Bundle/Net/LDAP.pm, - lib/LWP/Protocol/ldap.pm, lib/Net/LDAP.pm, lib/Net/LDAP.pod, - lib/Net/LDAP/ASN.pm, lib/Net/LDAP/Bind.pm, + * MANIFEST, Makefile.PL, README, RELEASE_NOTES, TODO, + bin/ldapdelete.PL, bin/ldapmodrdn.PL, bin/ldapsearch.PL, + contrib/checkauth.pl, contrib/examples, contrib/isMember.pl, + contrib/isMember.readme, contrib/printMembers.pl, + contrib/printMembers.readme, contrib/schema, contrib/schema.README, + contrib/schema.tklkup, contrib/tklkup, contrib/tklkup.README, + contrib/tklkup.tklkup, data/00-cmp2.ldif, data/00-in.ldif, + data/50-cmp.ldif, data/50-in.ldif, data/51-in.ldif, + data/51a-cmp.ldif, data/51b-cmp.ldif, data/51c-cmp.ldif, + data/51d-cmp.ldif, data/52-cmp.ldif, data/52-in.ldif, + data/52-mod.ldif, data/schema.in, data/slapd-conf.in, + data/slapd.at.conf, data/slapd.oc.conf, lib/Authen/SASL.pm, + lib/Authen/SASL.pod, lib/Authen/SASL/CRAM_MD5.pm, + lib/Bundle/Net/LDAP.pm, lib/LWP/Protocol/ldap.pm, lib/Net/LDAP.pm, + lib/Net/LDAP.pod, lib/Net/LDAP/ASN.pm, lib/Net/LDAP/Bind.pm, lib/Net/LDAP/Constant.pm, lib/Net/LDAP/Constant.pod, lib/Net/LDAP/Control.pm, lib/Net/LDAP/Entry.pm, lib/Net/LDAP/Entry.pod, lib/Net/LDAP/Examples.pod, |
From: Graham B. <gb...@us...> - 2002-07-18 13:01:16
|
Update of /cvsroot/perl-ldap/ldap/lib/Net In directory usw-pr-cvs1:/tmp/cvs-serv9530/lib/Net Modified Files: LDAP.pm Log Message: Release 0.26 Index: LDAP.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v retrieving revision 1.34 retrieving revision 1.35 diff -u -d -r1.34 -r1.35 --- LDAP.pm 15 Jul 2002 23:07:17 -0000 1.34 +++ LDAP.pm 18 Jul 2002 13:01:12 -0000 1.35 @@ -22,7 +22,7 @@ LDAP_INAPPROPRIATE_AUTH ); -$VERSION = "0.25_04"; +$VERSION = "0.26"; @ISA = qw(Net::LDAP::Extra); $LDAP_VERSION = 2; # default LDAP protocol version |
From: Graham B. <gb...@us...> - 2002-07-18 13:01:15
|
Update of /cvsroot/perl-ldap/ldap In directory usw-pr-cvs1:/tmp/cvs-serv9530 Modified Files: RELEASE_NOTES Log Message: Release 0.26 Index: RELEASE_NOTES =================================================================== RCS file: /cvsroot/perl-ldap/ldap/RELEASE_NOTES,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- RELEASE_NOTES 29 Oct 2001 17:29:15 -0000 1.10 +++ RELEASE_NOTES 18 Jul 2002 13:01:11 -0000 1.11 @@ -1,3 +1,19 @@ +perl-ldap 0.26 18 Jul 2002 +========================== + +* canonical_dn and ldap_explode_dn have a new implementation. +* Net::LDAP::DSML reimplemented using XML::SAX +* Net::LDAP::Schema reimplemented. API needed to change to fix + many bugs in previous implementation +* Added support for version number in Net::LDAP::LDIF + (support for fill version still todo) + +perl-ldap 0.251 15 May 2002 +=========================== + +* Added support for Adamson's SASL authentication +* Both Cyrus SASL and Perl SASL modules are sought + perl-ldap 0.25 29 Oct 2001 ========================== |
From: Graham B. <gb...@us...> - 2002-07-18 12:58:42
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Extension In directory usw-pr-cvs1:/tmp/cvs-serv8631/lib/Net/LDAP/Extension Added Files: SetPassword.pm Log Message: Added Net::LDAP::Extension::SetPassword --- NEW FILE: SetPassword.pm --- package Net::LDAP::Extension::SetPassword; require Net::LDAP::Extension; @ISA = qw(Net::LDAP::Extension); use Convert::ASN1; my $passwdModReq = Convert::ASN1->new; $passwdModReq->prepare(q<SEQUENCE { user [0] STRING OPTIONAL, oldpasswd [1] STRING OPTIONAL, newpasswd [2] STRING OPTIONAL }>); my $passwdModRes = Convert::ASN1->new; $passwdModRes->prepare(q<SEQUENCE { genPasswd [0] STRING OPTIONAL }>); sub Net::LDAP::set_password { my $ldap = shift; my %opt = @_; my $res = $ldap->extension( name => '1.3.6.1.4.1.4203.1.11.1', value => $passwdModReq->encode(\%opt) ); bless $res; # Naughty :-) } sub gen_password { my $self = shift; my $out = $passwdModRes->decode($self->response); $out->{genPasswd}; } 1; |
From: Graham B. <gb...@us...> - 2002-07-18 12:58:42
|
Update of /cvsroot/perl-ldap/ldap In directory usw-pr-cvs1:/tmp/cvs-serv8631 Modified Files: MANIFEST Log Message: Added Net::LDAP::Extension::SetPassword Index: MANIFEST =================================================================== RCS file: /cvsroot/perl-ldap/ldap/MANIFEST,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- MANIFEST 31 May 2002 15:16:44 -0000 1.18 +++ MANIFEST 18 Jul 2002 12:58:39 -0000 1.19 @@ -64,6 +64,7 @@ lib/Net/LDAP/Entry.pod lib/Net/LDAP/Examples.pod lib/Net/LDAP/Extension.pm +lib/Net/LDAP/Extension/SetPassword.pm lib/Net/LDAP/Extra.pm lib/Net/LDAP/FAQ.pod lib/Net/LDAP/Filter.pm |
From: Graham B. <gb...@us...> - 2002-07-18 12:57:55
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Extension In directory usw-pr-cvs1:/tmp/cvs-serv8350/lib/Net/LDAP/Extension Log Message: Directory /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Extension added to the repository |
From: Graham B. <gb...@us...> - 2002-07-15 23:07:20
|
Update of /cvsroot/perl-ldap/ldap/lib/Net In directory usw-pr-cvs1:/tmp/cvs-serv15255/lib/Net Modified Files: LDAP.pm Log Message: Fix arguemnts passed to IO::Socket::SSL by start_tls Index: LDAP.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v retrieving revision 1.33 retrieving revision 1.34 diff -u -d -r1.33 -r1.34 --- LDAP.pm 28 May 2002 09:34:50 -0000 1.33 +++ LDAP.pm 15 Jul 2002 23:07:17 -0000 1.34 @@ -22,7 +22,7 @@ LDAP_INAPPROPRIATE_AUTH ); -$VERSION = "0.25_50"; +$VERSION = "0.25_04"; @ISA = qw(Net::LDAP::Extra); $LDAP_VERSION = 2; # default LDAP protocol version @@ -808,7 +808,7 @@ require Net::LDAPS; $arg->{sslversion} = 'tlsv1' unless defined $arg->{sslversion}; IO::Socket::SSL::context_init( { Net::LDAPS::SSL_context_init_args($arg) } ); - IO::Socket::SSL::socketToSSL($sock) + IO::Socket::SSL::socketToSSL($sock, {Net::LDAPS::SSL_context_init_args($arg)}) ? $mesg : _error($ldap, $mesg, LDAP_OPERATIONS_ERROR, $@); } |
From: Clif H. <ch...@us...> - 2002-07-15 01:48:00
|
Update of /cvsroot/perl-ldap/website In directory usw-pr-cvs1:/tmp/cvs-serv31729/website Modified Files: index.html Log Message: Corrected another minor html error. Index: index.html =================================================================== RCS file: /cvsroot/perl-ldap/website/index.html,v retrieving revision 1.18 retrieving revision 1.19 diff -u -d -r1.18 -r1.19 --- index.html 15 Jul 2002 01:45:14 -0000 1.18 +++ index.html 15 Jul 2002 01:47:56 -0000 1.19 @@ -178,7 +178,7 @@ published by <a href="http://www.oreily.com">O'Reilly</a> mentions LDAP and perl-ldap in its chapter on Directory Services. <li> <a href="http://www.awprofessional.com/">Addison-Wesley</a> has published -a by Robbie Allen and Richard Puckett entitled <a href="http://www.awprofessional.com/catalog/product.asp?product_id={BDE92686-4225-41B6-A818-B477144D8CA1}&session_id={6D4DBC59-6D20-470C-9B9F-207BF1BD4DDD}">Managing Enterprise Active Directory Services.</a> +a book by Robbie Allen and Richard Puckett entitled <a href="http://www.awprofessional.com/catalog/product.asp?product_id={BDE92686-4225-41B6-A818-B477144D8CA1}&session_id={6D4DBC59-6D20-470C-9B9F-207BF1BD4DDD}">Managing Enterprise Active Directory Services.</a> </ul> |
From: Clif H. <ch...@us...> - 2002-07-15 01:45:17
|
Update of /cvsroot/perl-ldap/website In directory usw-pr-cvs1:/tmp/cvs-serv31344/website Modified Files: index.html Log Message: Corrected minor html error. Index: index.html =================================================================== RCS file: /cvsroot/perl-ldap/website/index.html,v retrieving revision 1.17 retrieving revision 1.18 diff -u -d -r1.17 -r1.18 --- index.html 15 Jul 2002 01:40:18 -0000 1.17 +++ index.html 15 Jul 2002 01:45:14 -0000 1.18 @@ -177,7 +177,7 @@ by David N. Blank-Edelman and published by <a href="http://www.oreily.com">O'Reilly</a> mentions LDAP and perl-ldap in its chapter on Directory Services. -<li> <a href="http://www.awprofessional.com/"Addison-Wesley</a> has published +<li> <a href="http://www.awprofessional.com/">Addison-Wesley</a> has published a by Robbie Allen and Richard Puckett entitled <a href="http://www.awprofessional.com/catalog/product.asp?product_id={BDE92686-4225-41B6-A818-B477144D8CA1}&session_id={6D4DBC59-6D20-470C-9B9F-207BF1BD4DDD}">Managing Enterprise Active Directory Services.</a> </ul> |
From: Clif H. <ch...@us...> - 2002-07-15 01:40:22
|
Update of /cvsroot/perl-ldap/website In directory usw-pr-cvs1:/tmp/cvs-serv30368/website Modified Files: index.html Log Message: Added new book listing, Managing Enterprise Active Directory Services, to bottom of the web page. Index: index.html =================================================================== RCS file: /cvsroot/perl-ldap/website/index.html,v retrieving revision 1.16 retrieving revision 1.17 diff -u -d -r1.16 -r1.17 --- index.html 1 Jun 2002 02:23:40 -0000 1.16 +++ index.html 15 Jul 2002 01:40:18 -0000 1.17 @@ -175,8 +175,10 @@ <li> <a href="http://www.oreilly.com/catalog/perlsysadm/">Perl for System Administraton</a> by David N. Blank-Edelman and -published by <a href="http://www.oreily.com">O'Reilly</a> mentions LDAP and perl-ldap -in its chapter on Directory Services. +published by <a href="http://www.oreily.com">O'Reilly</a> mentions LDAP and perl-ldap in its chapter on Directory Services. + +<li> <a href="http://www.awprofessional.com/"Addison-Wesley</a> has published +a by Robbie Allen and Richard Puckett entitled <a href="http://www.awprofessional.com/catalog/product.asp?product_id={BDE92686-4225-41B6-A818-B477144D8CA1}&session_id={6D4DBC59-6D20-470C-9B9F-207BF1BD4DDD}">Managing Enterprise Active Directory Services.</a> </ul> |
From: Clif H. <ch...@us...> - 2002-07-15 01:28:32
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory usw-pr-cvs1:/tmp/cvs-serv28271/ldap/lib/Net/LDAP Modified Files: FAQ.pod Log Message: Added new book listing, Managing Enterprise Active Directory Services Index: FAQ.pod =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/FAQ.pod,v retrieving revision 1.23 retrieving revision 1.24 diff -u -d -r1.23 -r1.24 --- FAQ.pod 30 Jun 2002 01:32:13 -0000 1.23 +++ FAQ.pod 15 Jul 2002 01:28:30 -0000 1.24 @@ -1192,6 +1192,9 @@ LDAP Programming with Java. By Rob Weltman, Tony Dahbura. ISBN: 0201657589 +Managing Enterprise Active Directory Services. +By Robbie Allen, Richard Puckett. ISBN: 0672321254 + Solaris and LDAP Naming Services. By Tom Bialaski, Michael Haines. ISBN: 0-13-030678-9 |
From: Clif H. <ch...@us...> - 2002-07-15 01:23:28
|
Update of /cvsroot/perl-ldap/website In directory usw-pr-cvs1:/tmp/cvs-serv27244/website Modified Files: FAQ.html Log Message: Added finishing touches to the new book listing. Index: FAQ.html =================================================================== RCS file: /cvsroot/perl-ldap/website/FAQ.html,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- FAQ.html 15 Jul 2002 01:10:22 -0000 1.11 +++ FAQ.html 15 Jul 2002 01:23:25 -0000 1.12 @@ -1606,20 +1606,16 @@ LDAP Programming with Java. By Rob Weltman, Tony Dahbura. ISBN: 0201657589 <P> +Managing Enterprise Active Directory Services. By Robbie Allen, Richard Puckett. +ISBN: 0672321254 + +<P> Solaris and LDAP Naming Services. By Tom Bialaski, Michael Haines. ISBN: 0-13-030678-9 <P> Understanding and Deploying Ldap Directory Services. By Tim Howes, Mark Smith, Gordon Good, Timothy A. Howe ISBN: 1578700701 - -<P> - -Book in Question. (Test by Clif) -http://www.awprofessional.com/catalog/product.asp?product_id={BDE92686-4225-41B6-A818-B477144D8CA1}&session_id={6D4DBC59-6D20-470C-9B9F-207BF1BD4DDD} - - - <P> <HR> |
From: Clif H. <ch...@us...> - 2002-07-15 01:10:24
|
Update of /cvsroot/perl-ldap/website In directory usw-pr-cvs1:/tmp/cvs-serv24664/website Modified Files: FAQ.html Log Message: Added link for new book, needs more work. Index: FAQ.html =================================================================== RCS file: /cvsroot/perl-ldap/website/FAQ.html,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- FAQ.html 30 Jun 2002 01:31:00 -0000 1.10 +++ FAQ.html 15 Jul 2002 01:10:22 -0000 1.11 @@ -1614,6 +1614,14 @@ Smith, Gordon Good, Timothy A. Howe ISBN: 1578700701 <P> + +Book in Question. (Test by Clif) +http://www.awprofessional.com/catalog/product.asp?product_id={BDE92686-4225-41B6-A818-B477144D8CA1}&session_id={6D4DBC59-6D20-470C-9B9F-207BF1BD4DDD} + + + + +<P> <HR> <H1><A NAME="AUTHOR_s_">AUTHOR(s)</A></H1> <P> |
From: Clif H. <ch...@us...> - 2002-06-30 01:32:15
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory usw-pr-cvs1:/tmp/cvs-serv16515/ldap/lib/Net/LDAP Modified Files: FAQ.pod Log Message: Added information and URL for Rafael Corvalan's LDAP shell. Index: FAQ.pod =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/FAQ.pod,v retrieving revision 1.22 retrieving revision 1.23 diff -u -d -r1.22 -r1.23 --- FAQ.pod 12 Jun 2002 02:04:42 -0000 1.22 +++ FAQ.pod 30 Jun 2002 01:32:13 -0000 1.23 @@ -1117,6 +1117,9 @@ eMailman LDAP information http://www.emailman.com/ldap/ +Rafael Corvalan's LDAP shell +http://sf.net/projects/ldapsh + LDAPS, also known as LDAPGURU. I<This web site has a nasty habit of resizing the browser to cover the WHOLE screen.> |
From: Clif H. <ch...@us...> - 2002-06-30 01:31:03
|
Update of /cvsroot/perl-ldap/website In directory usw-pr-cvs1:/tmp/cvs-serv16031/website Modified Files: FAQ.html Log Message: Added information and URL for Rafael Corvalan's ldap shell program. Index: FAQ.html =================================================================== RCS file: /cvsroot/perl-ldap/website/FAQ.html,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- FAQ.html 12 Jun 2002 02:03:11 -0000 1.9 +++ FAQ.html 30 Jun 2002 01:31:00 -0000 1.10 @@ -1510,6 +1510,10 @@ HREF="http://www.emailman.com/ldap/">http://www.emailman.com/ldap/</A> <P> +Rafael Corvalan's LDAP shell <A +HREF="http://sf.net/projects/ldapsh">http://sf.net/projects/ldapsh</A> + +<P> LDAPS, also known as LDAPGURU. <EM>This web site has a nasty habit of resizing the browser to cover the WHOLE screen.</EM> |
From: Graham B. <gb...@us...> - 2002-06-18 12:39:15
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory usw-pr-cvs1:/tmp/cvs-serv10966/lib/Net/LDAP Modified Files: Entry.pod Log Message: POD clarification for ->delete Index: Entry.pod =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Entry.pod,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- Entry.pod 5 Oct 2001 14:36:00 -0000 1.8 +++ Entry.pod 18 Jun 2002 12:39:12 -0000 1.9 @@ -154,11 +154,16 @@ -=item delete ( [ ATTR [, ATTR2 ... ]] ) +=item delete ( ATTR [ => VALUE [, ATTR2 => VALUE2... ]] ) -Delete the given attributes from the entry. If no attributes -are passed then the next call to update will cause the entry -to be deleted from the server. +Delete the values of given attributes from the entry. Values are +references to arrays; passing a reference to an empty array is the +same as passing undef, and will result in the entire attribute being +deleted. If no attributes are passed then the next call to update will +cause the entry to be deleted from the server. For example: + + $entry->delete( 'mail' => [ 'fo...@ex...' ] ); + $entry->delete( 'description' => [ ], 'streetAddress' => [ ] ); B<NOTE>: these changes are local to the client and will not appear on the directory server until the C<update> method |
From: Clif H. <ch...@us...> - 2002-06-15 02:47:37
|
Update of /cvsroot/perl-ldap/ldap/contrib In directory usw-pr-cvs1:/tmp/cvs-serv6204/ldap/contrib Modified Files: tklkup Log Message: Added code to close windows after ldap actions are taken. This is to force a new search after data has been changed. Index: tklkup =================================================================== RCS file: /cvsroot/perl-ldap/ldap/contrib/tklkup,v retrieving revision 1.26 retrieving revision 1.27 diff -u -d -r1.26 -r1.27 --- tklkup 28 May 2002 01:54:13 -0000 1.26 +++ tklkup 15 Jun 2002 02:47:34 -0000 1.27 @@ -22,6 +22,11 @@ # # Revisions: # $Log$ +# Revision 1.27 2002/06/15 02:47:34 charden +# +# Added code to close windows after ldap actions are taken. This is to force +# a new search after data has been changed. +# # Revision 1.26 2002/05/28 01:54:13 charden # # Made several code corrections to the code that stores xml formatted @@ -2267,7 +2272,10 @@ $Global{'answerWindow'}->destroy() if Tk::Exists($Global{'answerWindow'}); delete($Global{'answerWindow'}); -&ldapActionDelete; +$Global{'searchHistWindow'}->destroy if Tk::Exists($Global{'searchHistWindow'}); +$Global{'searchHistWindow'} = undef(); + +&ldapActionDelete; # Delete the entry from the directory } # End of accept subroutine } # End of questionAction subroutine @@ -2991,7 +2999,7 @@ $ldap->unbind; -} +} # End of ldapActionDelete subroutine # # Do LDAP entry rename. @@ -3185,17 +3193,28 @@ sub rdnAccept{ +# +# Clean up data and close windows, forces another search to +# get valid new data. +# + $Global{'renameWindow'}->destroy() if Tk::Exists($Global{'renameWindow'}); +$Global{'searchHistWindow'}->destroy if Tk::Exists($Global{'searchHistWindow'}); $Global{'renameWindow'} = undef(); -&ldapActionRename(); +$Global{'searchHistWindow'} = undef(); + +&ldapActionRename(); # Rename the entry in the directory delete( $Global{'newsuperior'}); delete( $Global{'newrdn'}); delete( $Global{'deleteoldrdn'} ); delete( $Global{'RenameDN'} ); + +delete($Global{'index'}) if ( defined($Global{'index'})); + } # End of accept subroutine -} # End of BIND subroutine +} # End of getRenameData subroutine sub displaySearch() |
From: Clif H. <ch...@us...> - 2002-06-12 02:04:44
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory usw-pr-cvs1:/tmp/cvs-serv12324/ldap/lib/Net/LDAP Modified Files: FAQ.pod Log Message: Added a reference to Clayton Donley's new book; LDAP Programming. Added a reference to Octet String, another directory provider. Removed reference to Iplanet. Added a reference to Sun One which now has the Iplanet directory server. Index: FAQ.pod =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/FAQ.pod,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- FAQ.pod 17 Dec 2001 16:50:59 -0000 1.21 +++ FAQ.pod 12 Jun 2002 02:04:42 -0000 1.22 @@ -1137,9 +1137,6 @@ Innosoft http://www.innosoft.com -IPlanet - Netscape and SUN Alliance -http://www.iplanet.com/ - MessagingDirect http://www.messagingdirect.com/ @@ -1152,9 +1149,15 @@ Novell's LDAPzone http://ldapzone.com/ +Octet String +http://www.octetstring.com/ + SUN JAVA JNDI (Java Naming and Directory Interface) http://www.java.sun.com/jndi/ +Sun One, formerly IPlanet. +http://wwws.sun.com/software/ + Eine deutsche LDAP Website A german LDAP Website http://verzeichnisdienst.de/ldap/Perl/index.html @@ -1179,6 +1182,9 @@ LDAP : Programming Directory-Enabled Applications With Lightweight Directory Access Protocol. By Tim Howes, Mark Smith. ISBN: 1578700000 + +LDAP Programming; Directory Management and Integration in Perl. +By Clayton Donley. ISBN: 1884777910 LDAP Programming with Java. By Rob Weltman, Tony Dahbura. ISBN: 0201657589 |
From: Clif H. <ch...@us...> - 2002-06-12 02:03:17
|
Update of /cvsroot/perl-ldap/website In directory usw-pr-cvs1:/tmp/cvs-serv10860/website Modified Files: FAQ.html Log Message: Added a reference to Clayton Donley's new book; LDAP Programming. Added a reference to Octet String, another directory provider. Removed reference to Iplanet. Added a reference to Sun One which now has the Iplanet directory server. Index: FAQ.html =================================================================== RCS file: /cvsroot/perl-ldap/website/FAQ.html,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- FAQ.html 17 Dec 2001 16:50:02 -0000 1.8 +++ FAQ.html 12 Jun 2002 02:03:11 -0000 1.9 @@ -1536,10 +1536,6 @@ Innosoft <A HREF="http://www.innosoft.com">http://www.innosoft.com</A> <P> -IPlanet - Netscape and SUN Alliance <A -HREF="http://www.iplanet.com/">http://www.iplanet.com/</A> - -<P> MessagingDirect <A HREF="http://www.messagingdirect.com/">http://www.messagingdirect.com/</A> @@ -1557,10 +1553,17 @@ Novell's LDAPzone <A HREF="http://ldapzone.com/">http://ldapzone.com/</A> <P> +Octet String <A HREF="http://www.octetstring.com/">http://www.octetstring.com/</A> + +<P> SUN JAVA JNDI (Java Naming and Directory Interface) <A HREF="http://www.java.sun.com/jndi/">http://www.java.sun.com/jndi/</A> <P> +SUN One, formerly Iplanet <A +HREF="http://wwws.sun.com/software/">http://wwws.sun.com/software/</A> + +<P> Eine deutsche LDAP Website A german LDAP Website <A HREF="http://verzeichnisdienst.de/ldap/Perl/index.html">http://verzeichnisdienst.de/ldap/Perl/index.html</A> @@ -1590,6 +1593,10 @@ <P> LDAP : Programming Directory-Enabled Applications With Lightweight Directory Access Protocol. By Tim Howes, Mark Smith. ISBN: 1578700000 + +<P> +LDAP Programming; Directory Management and Integration in Perl. +By Clayton Donley. ISBN: 1884777910 <P> LDAP Programming with Java. By Rob Weltman, Tony Dahbura. ISBN: 0201657589 |
From: Graham B. <gb...@us...> - 2002-06-03 15:48:18
|
Update of /cvsroot/perl-ldap/ldap In directory usw-pr-cvs1:/tmp/cvs-serv4139 Modified Files: Makefile.PL Log Message: Dont generate html docs when creating release dist Index: Makefile.PL =================================================================== RCS file: /cvsroot/perl-ldap/ldap/Makefile.PL,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- Makefile.PL 17 May 2002 13:50:56 -0000 1.9 +++ Makefile.PL 3 Jun 2002 15:48:12 -0000 1.10 @@ -110,13 +110,10 @@ <<EOS; -run_mkhtml : - ./mkhtml - -run_mkmanf : run_mkhtml +run_mkmanf : ./mkmanf -distdir : run_mkhtml run_mkmanf +distdir : run_mkmanf EOS |
From: Graham B. <gb...@us...> - 2002-06-03 15:42:54
|
Update of /cvsroot/perl-ldap/ldap In directory usw-pr-cvs1:/tmp/cvs-serv2467 Modified Files: mkmanf Log Message: Dont scan htdocs for files Index: mkmanf =================================================================== RCS file: /cvsroot/perl-ldap/ldap/mkmanf,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- mkmanf 12 Feb 2001 14:29:32 -0000 1.2 +++ mkmanf 3 Jun 2002 15:42:50 -0000 1.3 @@ -1,10 +1,13 @@ #!/bin/sh ( - for x in $(find . -name Entries | egrep CVS/Entries$ | sed 's,CVS/Entries$,,') + for x in $(find . -type d) do - grep ^/ $x/CVS/Entries | cut -d/ -f2 | sed s,^,$x, | sed s,^\./,, + if [ -f $x/CVS/Entries ]; then + grep ^/ $x/CVS/Entries | cut -d/ -f2 | sed s,^,$x/, | sed s,^\./,, + fi done - find htdocs -name CVS -prune -o -type f -print + find lib -name \*.pm + find lib -name \*.pod ) | sort -u > MANIFEST.new diff -u MANIFEST MANIFEST.new && rm MANIFEST.new |
From: Graham B. <gb...@us...> - 2002-06-03 15:35:58
|
Update of /cvsroot/perl-ldap/ldap/lib/Net In directory usw-pr-cvs1:/tmp/cvs-serv31780/lib/Net Modified Files: LDAP.pod Log Message: Add Mailing list section Index: LDAP.pod =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pod,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- LDAP.pod 28 May 2002 11:16:05 -0000 1.15 +++ LDAP.pod 3 Jun 2002 15:35:52 -0000 1.16 @@ -868,16 +868,27 @@ Chris Ridd <chr...@me...> for the many hours spent testing and contribution of the ldap* command line utilities. +=head1 MAILING LIST + +A discussion mailing list is hosted by sourceforge at +<per...@li...> Don't be put off by the -dev +in the name, the list is open for all questions. + +=head1 BUGS + +We hope you do not find any, but if you do please report them to +the mailing list. + +If you have a patch, please send it as an attachment to the mailing +list. + =head1 AUTHOR Graham Barr <gb...@po...> -Please report any bugs, or post any suggestions, to the perl-ldap mailing list -<per...@li...> - =head1 COPYRIGHT -Copyright (c) 1997-2000 Graham Barr. All rights reserved. This program is +Copyright (c) 1997-2002 Graham Barr. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. |
From: Graham B. <gb...@us...> - 2002-06-03 15:26:52
|
Update of /cvsroot/perl-ldap/ldap/t In directory usw-pr-cvs1:/tmp/cvs-serv27465/t Modified Files: 01canon_dn.t Log Message: New implementation of canonical_dn and ldap_explode_dn, thanks to Norbert Klasen Index: 01canon_dn.t =================================================================== RCS file: /cvsroot/perl-ldap/ldap/t/01canon_dn.t,v retrieving revision 1.7 retrieving revision 1.8 diff -u -d -r1.7 -r1.8 --- 01canon_dn.t 31 Jan 2002 15:25:52 -0000 1.7 +++ 01canon_dn.t 3 Jun 2002 15:26:46 -0000 1.8 @@ -8,184 +8,190 @@ # same Should be the same as the current refdn # diff Should be different to the current refdn -my @tests = map { /^\s*(\w\S+)\s+(.*)/ } split(/\n/,<<'EOS'); +my @tests = map { /^(\w+)\s+(.*)/ } <DATA>; - bad OU=Sales+CN=J. Smith,O=Widget Inc.,C=US, +print "1..", scalar(@tests)>>1, "\n"; +my $testno = 0; +my $refdn; +while(my($op,$dn) = splice(@tests,0,2)) { - ref CN=J. Smith+OU=Sales,O=Widget Inc.,C=US - same ou=Sales+cn=J. Smith,O=Widget Inc.,C=US - same cn=J. Smith+ou=Sales,O=Widget Inc.,C=US - same cn=J.\20Smith+ou=Sales,O=Widget\20Inc.,C=US - same OU=Sales+CN=J. Smith;O=Widget Inc.;C=US - same OU=Sales + CN=J. Smith,O=Widget Inc.,C=US - same OU=Sales+CN=J. Smith , O=Widget Inc. , C=US - same OU = Sales+CN =J. Smith,O= Widget Inc.,C=US - same OU="Sales"+CN=J. Smith,O=Widget Inc.,C=US - diff OU="Sales+CN=J. Smith",O=Widget Inc.,C=US + my $canon = canonical_dn($dn); + my $failed = 0; - bad cn=J.\20Smith\+ou=Sales,O=Widget\20Inc.,C=US + if ($op eq 'ref') { + $refdn=$dn; + if ($failed = !defined $canon) { + print "'$dn' should have parsed\n"; + } + } + elsif ($op eq 'bad') { + if ($failed = defined $canon) { + print "'$dn' should not have parsed\n '$canon'\n"; + } + } + elsif ( $op eq 'same' ) { + if ($failed = !defined $canon) { + print "'$dn' failed to parse\n"; + } + elsif ($failed = $canon ne $refdn) { + print "'$refdn'\n\ndid not match\n\n from '$dn'\n got '$canon'\n"; + } + } + elsif ($op eq 'diff' ) { + if ($failed = !defined $canon) { + print "'$dn' failed to parse\n"; + } + elsif ($failed = $canon eq $refdn) { + print "'$refdn'\n\nmatched\n\n'$dn'\n'$canon'\n"; + } + } + else { + $failed = 1; + warn "Bad opcode $op\n"; + } - ref CN=Babs Jensen,O=Widget Inc.,C=US - same cn=Babs Jensen,o=Widget Inc.,c=US + print +($failed ? "not ok " : "ok "),++$testno,"\n"; +} - # This is here to test a restriction that - # canonical_dn does not decode BER encoded values - ref 1.3.6.1.4.1.1466.0=#04024869,O=Test,C=GB - same 1.3.6.1.4.1.1466.0=#04024869,O=Test,C=GB - diff 1.3.6.1.4.1.1466.0=\04\02Hi,O=Test,C=GB +__DATA__ - ref 1.3.6.1.4.1.1466.0=Hi,O=Test,C=GB - same oid.1.3.6.1.4.1.1466.0=Hi,O=Test,C=GB - same OID.1.3.6.1.4.1.1466.0=Hi,O=Test,C=GB +bad OU=Sales+CN=J. Smith,O=Widget Inc.,C=US, - ref CN=Clif Harden+IDNUMBER=a0125589\20,OU=tiPerson,OU=person,O=ti,C=us - diff cn=Clif Harden+IDNumber=a0125589,ou=tiPerson,ou=person,o=ti,c=us - same cn=Clif Harden+IDNumber=a0125589\ ,ou=tiPerson,ou=person,o=ti,c=us - same cn=Clif Harden+IDNumber=a0125589\20 ,ou=tiPerson,ou=person,o=ti,c=us - same cn=Clif Harden+IDNumber="a0125589 ",ou=tiPerson,ou=person,o=ti,c=us +ref CN=J. Smith+OU=Sales,O=Widget Inc.,C=US +same ou=Sales+cn=J. Smith,O=Widget Inc.,C=US +same cn=J. Smith+ou=Sales,O=Widget Inc.,C=US +same cn=J.\20Smith+ou=Sales,O=Widget\20Inc.,C=US +same OU=Sales+CN=J. Smith;O=Widget Inc.;C=US +same OU=Sales + CN=J. Smith,O=Widget Inc.,C=US +same OU=Sales+CN=J. Smith , O=Widget Inc. , C=US +same OU = Sales+CN =J. Smith,O= Widget Inc.,C=US +same OU="Sales"+CN=J. Smith,O=Widget Inc.,C=US +diff OU="Sales+CN=J. Smith",O=Widget Inc.,C=US +bad cn=J.\20Smith\+ou=Sales,O=Widget\20Inc.,C=US - ref CN=\20\20Graham Barr\20\20,OU=person,O=vc,C=us - same Cn=" Graham Barr ",OU=person,O=vc,C=us - same cn=" Graham \20Barr\20 ",OU=person,O=vc,C=us +ref CN=Babs Jensen,O=Widget Inc.,C=US +same cn=Babs Jensen,o=Widget Inc.,c=US - # empty - ref +# This is here to test a restriction that +# canonical_dn does not decode BER encoded values +ref 1.3.6.1.4.1.1466.0=#04024869,O=Test,C=GB +same 1.3.6.1.4.1.1466.0=#04024869,O=Test,C=GB +diff 1.3.6.1.4.1.1466.0=\04\02Hi,O=Test,C=GB - ref UID=jsmith,DC=example,DC=net - same UID=jsmith,DC=example,DC=net +ref 1.3.6.1.4.1.1466.0=Hi,O=Test,C=GB +same oid.1.3.6.1.4.1.1466.0=Hi,O=Test,C=GB +same OID.1.3.6.1.4.1.1466.0=Hi,O=Test,C=GB - ref CN=J. Smith+OU=Sales,DC=example,DC=net - same OU=Sales+CN=J. Smith,DC=example,DC=net +ref CN=Clif Harden+IDNUMBER=a0125589\20,OU=tiPerson,OU=person,O=ti,C=us +diff cn=Clif Harden+IDNumber=a0125589,ou=tiPerson,ou=person,o=ti,c=us +same cn=Clif Harden+IDNumber=a0125589\ ,ou=tiPerson,ou=person,o=ti,c=us +same cn=Clif Harden+IDNumber=a0125589\20 ,ou=tiPerson,ou=person,o=ti,c=us +same cn=Clif Harden+IDNumber="a0125589 ",ou=tiPerson,ou=person,o=ti,c=us - ref CN=John Smith\, III,DC=example,DC=net - same CN=John Smith\, III,DC=example,DC=net - same CN=John Smith\2C III,DC=example,DC=net - ref CN=Before\\0dAfter,DC=example,DC=net - same CN=Before\\0dAfter,DC=example,DC=net +ref CN=\20\20Graham Barr\20\20,OU=person,O=vc,C=us +same Cn=" Graham Barr ",OU=person,O=vc,C=us +same cn=" Graham \20Barr\20 ",OU=person,O=vc,C=us - ref CN=\#John Smith\20,DC=example,DC=net - same CN=\23John Smith\20,DC=example,DC=net - same CN=\#John Smith\ ,DC=example,DC=net +# empty +ref - ref 1.3.6.1.4.1.1466.0=#04024869,DC=example,DC=com - same 1.3.6.1.4.1.1466.0=#04024869,DC=example,DC=com +ref UID=jsmith,DC=example,DC=net +same UID=jsmith,DC=example,DC=net - ref CN=Lu\\C4\\8Di\\C4\\87 - same CN=Lu\\C4\\8Di\\C4\\87 +ref CN=J. Smith+OU=Sales,DC=example,DC=net +same OU=Sales+CN=J. Smith,DC=example,DC=net - # empty value - ref 1.1.1= +ref CN=John Smith\2c III,DC=example,DC=net +same CN=John Smith\, III,DC=example,DC=net +same CN=John Smith\2C III,DC=example,DC=net - # option - bad uid;x-option=jsmith +ref CN=Before\0dAfter,DC=example,DC=net +same CN=Before\0dAfter,DC=example,DC=net - # invalid attribute type name - bad at_tr=jsmith +ref CN=\23John Smith\20,DC=example,DC=net +same CN=\23John Smith\20,DC=example,DC=net +same CN=\#John Smith\ ,DC=example,DC=net - # invalid attribute type name - bad -attr=jsmith +ref 1.3.6.1.4.1.1466.0=#04024869,DC=example,DC=com +same 1.3.6.1.4.1.1466.0=#04024869,DC=example,DC=com - # invalid attribute type name - #bad OID.1.1=jsmith +ref CN=LuÄiÄ +same CN=Lu\C4\8Di\C4\87 - # invalid numeric OID - bad 1..1=jsmith +# empty value +ref 1.1.1= - # invalid numeric OID - bad 1.1.=jsmith +# option +bad uid;x-option=jsmith - # invalid numeric OID - #bad 01.1=jsmith +# invalid attribute type name +bad at_tr=jsmith - # invalid numeric OID - bad 1.ff=jsmith +# invalid attribute type name +bad -attr=jsmith - # invalid HEX form - bad 1.1.1=#GG +# invalid attribute type name +#bad OID.1.1=jsmith - # invalid HEX form - bad 1.1.1=#000 +# invalid numeric OID +bad 1..1=jsmith - # invalid HEX form - bad 1.1.1=#F +# invalid numeric OID +bad 1.1.=jsmith - # invalid HEX form - bad 1.1.1=# +# invalid numeric OID +#bad 01.1=jsmith - # spaces - #bad UID=jsmith, DC=example, DC=net +# invalid numeric OID +bad 1.ff=jsmith - # extra comma - bad UID=jsmith,,DC=example,DC=net +# invalid HEX form +bad 1.1.1=#GG - # semi-colons - #bad UID=jsmith;DC=example;DC=net +# invalid HEX form +bad 1.1.1=#000 - # quotes - #bad CN="John Smith",DC=example,DC=net +# invalid HEX form +bad 1.1.1=#F - # brackets - bad <UID=jsmith,DC=example,DC=net> +# invalid HEX form +bad 1.1.1=# - # unescaped , - bad UID=john,smith +# spaces +#bad UID=jsmith, DC=example, DC=net - # unescaped + - bad UID=john+smith +# extra comma +bad UID=jsmith,,DC=example,DC=net - # invalid escape of ? or unescaped \ - bad UID=john\?smith +# semi-colons +#bad UID=jsmith;DC=example;DC=net - # invalid hex escape - bad UID=john\Fsmith +# quotes +#bad CN="John Smith",DC=example,DC=net - # invalid hex escape - bad UID=john\GGsmith +# brackets +bad <UID=jsmith,DC=example,DC=net> +# unescaped , +bad UID=john,smith -EOS +# unescaped + +bad UID=john+smith -print "1..", scalar(@tests)>>1, "\n"; -my $testno = 0; -my $refdn; -while(my($op,$dn) = splice(@tests,0,2)) { +# invalid escape of ? or unescaped \ +bad UID=john\?smith - my $canon = canonical_dn($dn); - my $failed = 0; +# invalid hex escape +bad UID=john\Fsmith - if ($op eq 'ref') { - $refdn=$dn; - if ($failed = !defined $canon) { - print "'$dn' should have parsed\n"; - } - } - elsif ($op eq 'bad') { - if ($failed = defined $canon) { - print "'$dn' should not have parsed\n '$canon'\n"; - } - } - elsif ( $op eq 'same' ) { - if ($failed = !defined $canon) { - print "'$dn' failed to parse\n"; - } - elsif ($failed = $canon ne $refdn) { - print "'$refdn'\n\ndid not match\n\n'$dn'\n'$canon'\n"; - } - } - elsif ($op eq 'diff' ) { - if ($failed = !defined $canon) { - print "'$dn' failed to parse\n"; - } - elsif ($failed = $canon eq $refdn) { - print "'$refdn'\n\nmatched\n\n'$dn'\n'$canon'\n"; - } - } - else { - $failed = 1; - warn "Bad opcode $op\n"; - } +# invalid hex escape +bad UID=john\GGsmith - print +($failed ? "not ok " : "ok "),++$testno,"\n"; -} +ref CN=John Smith \2c III,DC=example,DC=net +same CN=John Smith \, III,DC=example,DC=net +same CN=John Smith \2C III,DC=example,DC=net + +ref DISTINGUISHEDNAMETABLEKEY=cn\3dDSA\2c c\3dGB,CN=bilateral table,CN=DSA,C=US +same distinguishedNameTableKey=cn\=DSA\, c\=GB, cn=bilateral table, cn=DSA, c=US |