Menu
▾
▴
perl-ldap-checkins — CVS checkin diffs
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
|
