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...> - 2004-02-12 12:00:49
|
Update of /cvsroot/perl-ldap/website In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7004 Modified Files: index.html Added Files: 0849313465.jpg Log Message: Add The ABCs of LDAP: How to Install, Run, and Administer LDAP Services by Reinhard Voglmaier --- NEW FILE: 0849313465.jpg --- ÿØÿà ÿÄ %&'()*456789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ¢£¤¥¦§¨©ª²³´µ¶·¸¹ºÂÃÄÅÆÇÈÉÊÒÓÔÕÖ×ØÙÚáâãäåæçèéêñòóôõö÷øùúÿÄ ÿÄ $4á%ñ&'()*56789:CDEFGHIJSTUVWXYZcdefghijstuvwxyz ¢£¤¥¦§¨©ª²³´µ¶·¸¹ºÂÃÄÅÆÇÈÉÊÒÓÔÕÖ×ØÙÚâãäåæçèéêòóôõö÷øùúÿÚ <äôþý·øPT~rzIÿ <äôþý·øPT~rzIÿ ¢2ñê ôÅKðCC×$Ôô}vÚÖk}9Rà]Ý=àe»ûʪ"ê»H \g< û @>TVáôÁãÖ³uU¬òö¦¥)lhv¥ ) DÎéþô_ xÄÚ=¿í¼7a¦ZµöçPKxäe*ÊUâ*± Kwà×Óÿ ¨ @ö õkÇ.üt%yë_A~Î÷Úÿ EKq§cóLðwÄ-*åãxcdþÎÔû ¨5Ô ÆZ¦ k:t 2t× ØOÐWÞ7V¶´×S$Q¨Éf8Çã^ ûE|uÓ4 è¾ÔMN÷)-Ô|Hó?ïz~uè5&|§ñÞ/7¶Æ1G B î5ê³ÕƧøM½)hÒ#¤¯T Éóç Þÿ c°Uc4ñ\G|ymáÍUôë2ké1_ ÈØ!&yê: íâñ~-ne<º¤ßg\e9 ·Iôõ¯¬®ôï 7zN\|>Ó&kIÒ97bæIJJ´äW®ê©õßü Ò¬ì/"øq¥_Gu¬Ö! VuÏMÁDê} ©ß¡K·> 󥶵T$VÜÍùs^Õû2Dúã²¹ÓÔF6!LȬ§ zöX´o+sËðïH¸Ázm8©*ÀüÈ6¿§AÞ´´ÝOáu[Ó¥x&ÒÞ[O1RhB8,ªCû}'NV²%âèîÙêþFÑ Y\¹A·'Û¹Ò¼Æ?:e¼6vz< ©*)Þ¢O/* (¢ ¸ßoýÔ¡F Index: index.html =================================================================== RCS file: /cvsroot/perl-ldap/website/index.html,v retrieving revision 1.45 retrieving revision 1.46 diff -u -d -r1.45 -r1.46 --- index.html 1 Jan 2004 11:02:36 -0000 1.45 +++ index.html 12 Feb 2004 11:55:55 -0000 1.46 @@ -190,6 +190,17 @@ <div class="section"> <h2>Other Publications</h2> + <a href="http://learn.perl.org/redirect?url=book;bookstore=amazon;bookisbn=0849313465" + target="_blank"><img width=100 height=127 + src=0849313465.jpg align=left hspace=10></a> + <a href="http://learn.perl.org/redirect?url=book;bookstore=amazon;bookisbn=0849313465" + target="_blank"><i>The ABCs of LDAP: How to Install, Run, and Administer LDAP Services</i></a><BR> + (ISBN: 0849313465)<BR> + written by Reinhard Voglmaier,<BR> + published by <a href="http://www.auerbach-publications.com/" + target="_blank">Auerbach Pub</a>.<BR> +<br clear=all> +<p> <a href="http://learn.perl.org/redirect?url=book;bookstore=amazon;bookisbn=1861002211" target="_blank"><img width=100 height=127 src=1861002211.jpg align=left hspace=10></a> |
|
From: Kartik S. <kar...@us...> - 2004-02-10 03:03:59
|
Update of /cvsroot/perl-ldap/ldap/contrib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12014 Modified Files: ldifdiff.pl Log Message: Lowercase specified attributes for %ciscmp, %dnattrs, and %sharedattrs. Fixed usage message. Index: ldifdiff.pl =================================================================== RCS file: /cvsroot/perl-ldap/ldap/contrib/ldifdiff.pl,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- ldifdiff.pl 9 Feb 2004 20:10:55 -0000 1.4 +++ ldifdiff.pl 9 Feb 2004 21:01:46 -0000 1.5 @@ -71,10 +71,10 @@ my (%ciscmp, %dnattrs, %sharedattrs); my $keyattr; GetOptions('a|sourceattrs=s' => sub { @sourceattrs = split(/,/, $_[1]) }, - 'c|ciscmp=s' => sub { my @a = split(/,/,$_[1]); @ciscmp{@a} = (1) x @a }, - 'dnattrs=s' => sub { my @a = split(/,/,$_[1]); @dnattrs{@a} = (1) x @a }, + 'c|ciscmp=s' => sub { my @a = split(/,/,lc $_[1]); @ciscmp{@a} = (1) x @a }, + 'dnattrs=s' => sub { my @a = split(/,/,lc $_[1]); @dnattrs{@a} = (1) x @a }, 'k|keyattr=s' => \$keyattr, - 'sharedattrs=s' => sub { my @a=split(/,/,$_[1]); @sharedattrs{@a}=(1)x @a } + 'sharedattrs=s' => sub {my @a=split(/,/,lc $_[1]);@sharedattrs{@a}=(1) x @a} ); %ciscmp = (objectclass => 1, manager => 1, member => 1, owner => 1, uniquemember => 1) @@ -88,11 +88,11 @@ my ($sourcefile, $targetfile); $sourcefile = shift; $targetfile = shift; -die "usage: $0 -k keyattr [-a attr1,attr2,...] sourcefile targetfile\n" +die "usage: $0 -k|--keyattr keyattr [-a|--sourceattrs attr1,attr2,...] [-c|--ciscmp attr1,...] [--dnattrs attr1,...] [--sharedattrs attr1,...] sourcefile targetfile\n" unless $keyattr && $sourcefile && $targetfile; my $source = Net::LDAP::LDIF->new($sourcefile) - or die "Can't open LDIF file $sourcefile\n: $!\n"; + or die "Can't open LDIF file $sourcefile: $!\n"; my $target = Net::LDAP::LDIF->new($targetfile) or die "Can't open LDIF file $targetfile: $!\n"; |
|
From: Kartik S. <kar...@us...> - 2004-02-10 00:39:57
|
Update of /cvsroot/perl-ldap/ldap/contrib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32216 Modified Files: ldifdiff.pl Log Message: Added "member" to %ciscmp. Index: ldifdiff.pl =================================================================== RCS file: /cvsroot/perl-ldap/ldap/contrib/ldifdiff.pl,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- ldifdiff.pl 24 Jun 2003 21:58:58 -0000 1.3 +++ ldifdiff.pl 9 Feb 2004 20:10:55 -0000 1.4 @@ -76,7 +76,8 @@ 'k|keyattr=s' => \$keyattr, 'sharedattrs=s' => sub { my @a=split(/,/,$_[1]); @sharedattrs{@a}=(1)x @a } ); -%ciscmp = (objectclass => 1, manager => 1, owner => 1, uniquemember => 1) +%ciscmp = (objectclass => 1, manager => 1, member => 1, owner => 1, + uniquemember => 1) unless keys %ciscmp; %dnattrs = (manager => 1, member => 1, owner => 1, uniquemember => 1) unless keys %dnattrs; |
|
From: Chris R. <chr...@us...> - 2004-02-07 20:16:06
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11325/lib/Net/LDAP Modified Files: Filter.pm Log Message: Fix for missing filter from Peter Marschall Index: Filter.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Filter.pm,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- Filter.pm 11 Sep 2002 12:49:11 -0000 1.8 +++ Filter.pm 7 Feb 2004 18:36:41 -0000 1.9 @@ -159,6 +159,12 @@ undef $ErrStr; + # a filter is required + if (!defined $filter) { + $ErrStr = "Undefined filter"; + return undef; + } + # Algorithm depends on /^\(/; $filter =~ s/^\s*//; |
|
From: Chris R. <chr...@us...> - 2004-02-07 18:41:04
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv11682/lib/Net/LDAP Modified Files: LDIF.pm Log Message: Fix for comment parsing bug from Peter Marschall Index: LDIF.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/LDIF.pm,v retrieving revision 1.21 retrieving revision 1.22 diff -u -d -r1.21 -r1.22 --- LDIF.pm 20 Jan 2004 07:11:33 -0000 1.21 +++ LDIF.pm 7 Feb 2004 18:38:07 -0000 1.22 @@ -76,17 +76,20 @@ { local $/ = ""; my $fh = $self->{'fh'}; - my $ln = $self->{_next_lines} || scalar <$fh>; - unless ($ln) { - $self->{_next_lines} = ''; - $self->{_current_lines} = ''; - $self->eof(1); - return; - } - $ln =~ s/\n //sg; - $ln =~ s/^#.*\n//mg; - chomp($ln); - $self->{_current_lines} = $ln; + my $ln; + do { # allow comments separated by blank lines + $ln = $self->{_next_lines} || scalar <$fh>; + unless ($ln) { + $self->{_next_lines} = ''; + $self->{_current_lines} = ''; + $self->eof(1); + return; + } + $ln =~ s/\n //sg; + $ln =~ s/^#.*\n//mg; + chomp($ln); + $self->{_current_lines} = $ln; + } until ($self->{_current_lines} || $self->eof()); chomp(@ldif = split(/^/, $ln)); do { $ln = scalar <$fh> || ''; @@ -112,8 +115,13 @@ $self->_clear_error(); @ldif = $self->_read_lines; - return unless @ldif; - shift @ldif if @ldif && $ldif[0] !~ /\D/; + + unless (@ldif) { # empty records are errors if not at eof + $self->_error("illegal empty LDIF entry") if (!$self->eof()); + return; + } + # What does that mean ??? + #shift @ldif if @ldif && $ldif[0] !~ /\D/; if (@ldif and $ldif[0] =~ /^version:\s+(\d+)/) { $self->{version} = $1; |
|
From: Chris R. <chr...@us...> - 2004-01-20 07:12:27
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory sc8-pr-cvs1:/tmp/cvs-serv21539/lib/Net/LDAP
Modified Files:
Util.pm
Log Message:
Add escape/unescape filters/DNs from Peter Marschall
Index: Util.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Util.pm,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- Util.pm 20 May 2003 14:58:49 -0000 1.18
+++ Util.pm 20 Jan 2004 07:12:24 -0000 1.19
@@ -41,7 +41,20 @@
ldap_error_desc
canonical_dn
ldap_explode_dn
+ escape_filter_value
+ unescape_filter_value
+ escape_dn_value
+ unescape_dn_value
+);
+%EXPORT_TAGS = (
+ error => [ qw(ldap_error_name ldap_error_text ldap_error_desc) ],
+ filter => [ qw(escape_filter_value unescape_filter_value) ],
+ dn => [ qw(canonical_dn ldap_explode_dn
+ escape_dn_value unescape_dn_value) ],
+ escape => [ qw(escape_filter_value unescape_filter_value
+ escape_dn_value unescape_dn_value) ],
);
+
$VERSION = "0.10";
=item ldap_error_name ( ERR )
@@ -397,14 +410,14 @@
Do not change attribute type names.
+=back
+
=item reverse
If TRUE, the RDN sequence is reversed.
=back
-=back
-
=cut
sub ldap_explode_dn($%) {
@@ -472,8 +485,119 @@
}
+=item escape_filter_value ( VALUES )
+
+Escapes the given B<VALUES> according to RFC 2254 so that they
+can be safely used in LDAP filters.
+
+Any control characters with an ACII code E<lt> 32 as well as the
+characters with special meaning in LDAP filters "*", "(", ")",
+and "\" the backslash are converted into the representation
+of a backslash followed by two hex digits representing the
+hexadecimal value of the character.
+
+Returns the converted list in list mode and the first element
+in scalar mode.
+
+=cut
+
+## convert a list of values into its LDAP filter encoding ##
+# Synopsis: @escaped = escape_filter_value(@values)
+sub escape_filter_value(@)
+{
+my @values = @_;
+
+ map { $_ =~ s/([\x00-\x1F\*\(\)\\])/"\\".unpack("H2",$1)/oge; } @values;
+
+ return(wantarray ? @values : $values[0]);
+}
+
+
+=item unescape_filter_value ( VALUES )
+
+Undoes the conversion done by B<escape_filter_value()>.
+
+Converts any sequences of a backslash followed by two hex digits
+into the corresponding character.
+
+Returns the converted list in list mode and the first element
+in scalar mode.
+
+=cut
+
+## convert a list of values from its LDAP filter encoding ##
+# Synopsis: @values = unescape_filter_value(@escaped)
+sub unescape_filter_value(@)
+{
+my @values = @_;
+
+ map { $_ =~ s/\\([0-9a-fA-F]{2})/pack("H2",$1)/oge; } @values;
+
+ return(wantarray ? @values : $values[0]);
+}
+
+
+=item escape_dn_value ( VALUES )
+
+Escapes the given B<VALUES> according to RFC 2253 so that they
+can be safely used in LDAP DNs.
+
+The characters ",", "+", """, "\", "E<lt>", "E<gt>", ";", "#", "="
+with a special meaning in RFC 2252 are preceeded by ba backslash.
+Control characters with an ASCII code E<lt> 32 are represented
+as \hexpair.
+Finally all leading and trailing spaces are converted to
+sequences of \20.
+
+Returns the converted list in list mode and the first element
+in scalar mode.
+
+=cut
+
+## convert a list of values into its DN encoding ##
+# Synopsis: @escaped = escape_dn_value(@values)
+sub escape_dn_value(@)
+{
+my @values = @_;
+
+ map { $_ =~ s/([\\",=+<>#;])/\\$1/og;
+ $_ =~ s/([\x00-\x1F])/"\\".unpack("H2",$1)/oge;
+ $_ =~ s/(^\s+|\s+$)/"\\20" x length($1)/oge; } @values;
+
+ return(wantarray ? @values : $values[0]);
+}
+
+
+=item unescape_dn_value ( VALUES )
+
+Undoes the conversion done by B<escape_dn_value()>.
+
+Any escape sequence starting with a baskslash - hexpair or
+special character - will be transformed back to the
+corresponding character.
+
+Returns the converted list in list mode and the first element
+in scalar mode.
+
+=cut
+
+## convert a list of values from its LDAP filter encoding ##
+# Synopsis: @values = unescape_dn_value(@escaped)
+sub unescape_dn_value($)
+{
+my @values = @_;
+
+ map { $_ =~ s/\\([\\",=+<>#;]|[0-9a-fA-F]{2})
+ /(length($1)==1) ? $1 : pack("H2",$1)
+ /ogex; } @values;
+
+ return(wantarray ? @values : $values[0]);
+}
+
+
=back
+
=head1 AUTHOR
Graham Barr E<lt>gb...@po...<gt>
|
|
From: Chris R. <chr...@us...> - 2004-01-20 07:11:40
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory sc8-pr-cvs1:/tmp/cvs-serv21424/lib/Net/LDAP
Modified Files:
LDIF.pm LDIF.pod
Log Message:
Add objectclass sorting from Peter Marschall
Index: LDIF.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/LDIF.pm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -d -r1.20 -r1.21
--- LDIF.pm 1 Jan 2004 09:43:19 -0000 1.20
+++ LDIF.pm 20 Jan 2004 07:11:33 -0000 1.21
@@ -52,6 +52,7 @@
$opt{'lowercase'} ||= 0;
$opt{'change'} ||= 0;
+ $opt{'sort'} ||= 0;
my $self = {
changetype => "modify",
@@ -305,10 +306,18 @@
}
}
+# helper function to compare attribute names (sort objectClass first)
+sub _cmpAttrs {
+ ($a =~ /^objectclass$/io)
+ ? -1 : (($b =~ /^objectclass$/io) ? 1 : ($a cmp $b));
+}
+
sub _write_attrs {
- my($entry,$wrap,$lower) = @_;
+ my($entry,$wrap,$lower,$sort) = @_;
+ my @attributes = $entry->attributes();
my $attr;
- foreach $attr ($entry->attributes) {
+ @attributes = sort _cmpAttrs @attributes if ($sort);
+ foreach $attr (@attributes) {
my $val = $entry->get_value($attr, asref => 1);
_write_attr($attr,$val,$wrap,$lower);
}
@@ -350,6 +359,7 @@
my $change = $self->{change};
my $wrap = int($self->{'wrap'});
my $lower = $self->{'lowercase'};
+ my $sort = $self->{'sort'};
local($\,$,); # output field and record separators
unless ($self->{'fh'}) {
@@ -386,7 +396,7 @@
next;
}
elsif ($type eq 'add') {
- _write_attrs($entry,$wrap,$lower);
+ _write_attrs($entry,$wrap,$lower,$sort);
next;
}
elsif ($type =~ /modr?dn/o) {
@@ -423,7 +433,7 @@
print "version: $self->{version}\n\n" if defined $self->{version};
}
_write_dn($entry->dn,$self->{'encode'},$wrap);
- _write_attrs($entry,$wrap,$lower);
+ _write_attrs($entry,$wrap,$lower,$sort);
}
}
Index: LDIF.pod
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/LDIF.pod,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- LDIF.pod 20 Jan 2004 07:06:43 -0000 1.11
+++ LDIF.pod 20 Jan 2004 07:11:33 -0000 1.12
@@ -98,6 +98,11 @@
Convert attribute names to lowercase when writing.
+=item sort =E<gt> 1
+
+Sort attribute names when writing entries according to the rule:
+objectclass first then all other attributes alphabetically sorted
+
=item version =E<gt> '1'
Set the LDIF version to write to the resulting LDIF file.
|
|
From: Chris R. <chr...@us...> - 2004-01-20 07:10:21
|
Update of /cvsroot/perl-ldap/ldap/lib/Net In directory sc8-pr-cvs1:/tmp/cvs-serv21265/lib/Net Modified Files: LDAP.pod Log Message: Added supportedFeatures Index: LDAP.pod =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pod,v retrieving revision 1.35 retrieving revision 1.36 diff -u -d -r1.35 -r1.36 --- LDAP.pod 10 Nov 2003 18:31:04 -0000 1.35 +++ LDAP.pod 20 Jan 2004 07:10:13 -0000 1.36 @@ -754,6 +754,7 @@ namingContexts altServer supportedExtension + supportedFeatures supportedControl supportedSASLMechanisms supportedLDAPVersion |
|
From: Chris R. <chr...@us...> - 2004-01-20 07:09:27
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory sc8-pr-cvs1:/tmp/cvs-serv21051/lib/Net/LDAP
Modified Files:
RootDSE.pm
Log Message:
Added supportedFeatures from Peter Marschall
Index: RootDSE.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/RootDSE.pm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- RootDSE.pm 9 May 2003 12:03:42 -0000 1.1
+++ RootDSE.pm 20 Jan 2004 07:09:21 -0000 1.2
@@ -12,6 +12,7 @@
use strict;
+sub supported_feature { _supported_feature( @_, 'supportedFeatures' ) }
sub supported_extension { _supported_feature( @_, 'supportedExtension' ) }
sub supported_version { _supported_feature( @_, 'supportedLDAPVersion' ) }
sub supported_control { _supported_feature( @_, 'supportedControl' ) }
@@ -59,6 +60,11 @@
Returns true if the server supports all of the specified
extension OIDs
+=item supported_feature ( OID_LIST )
+
+Returns true if the server supports all of the specified
+feature OIDs
+
=item supported_version ( VERSION_LIST )
Returns true if the server supports all of the specified
|
|
From: Chris R. <chr...@us...> - 2004-01-20 07:09:27
|
Update of /cvsroot/perl-ldap/ldap/lib/Net In directory sc8-pr-cvs1:/tmp/cvs-serv21051/lib/Net Modified Files: LDAP.pm Log Message: Added supportedFeatures from Peter Marschall Index: LDAP.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v retrieving revision 1.59 retrieving revision 1.60 diff -u -d -r1.59 -r1.60 --- LDAP.pm 1 Jan 2004 10:43:39 -0000 1.59 +++ LDAP.pm 20 Jan 2004 07:09:21 -0000 1.60 @@ -889,6 +889,7 @@ altServer supportedExtension supportedControl + supportedFeatures supportedSASLMechanisms supportedLDAPVersion )]; |
|
From: Chris R. <chr...@us...> - 2004-01-20 07:07:41
|
Update of /cvsroot/perl-ldap/ldap/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv20777/bin
Modified Files:
ldapsearch
Log Message:
Fixes from Peter Marschall
Index: ldapsearch
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/bin/ldapsearch,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -d -r1.1 -r1.2
--- ldapsearch 9 Jun 2003 12:29:42 -0000 1.1
+++ ldapsearch 20 Jan 2004 07:07:38 -0000 1.2
@@ -6,6 +6,9 @@
# $Id$
#
# $Log$
+# Revision 1.2 2004/01/20 07:07:38 chrisridd
+# Fixes from Peter Marschall
+#
# Revision 1.1 2003/06/09 12:29:42 gbarr
# Depend in MakeMaker to fixup the #! line of installed scripts
#
@@ -137,7 +140,7 @@
my @urls = ($initial->as_string);
-my $ldif = Net::LDAP::LDIF->new if $opt_L;
+my $ldif = Net::LDAP::LDIF->new('-', 'w') if $opt_L;
my $first_record = 1;
while (@urls) {
@@ -186,7 +189,6 @@
$searchargs{base} = $url->dn if $url->dn;
$searchargs{scope} = $opt_s if $opt_s;
$searchargs{scope} = $url->_scope if defined $url->_scope;
- $searchargs{scope} = $scopes{$searchargs{scope}} if $searchargs{scope};
$searchargs{deref} = $derefs{$opt_a} if $opt_a;
$searchargs{sizelimit} = $opt_z if $opt_z;
$searchargs{timelimit} = $opt_l if $opt_l;
|
|
From: Chris R. <chr...@us...> - 2004-01-20 07:06:46
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory sc8-pr-cvs1:/tmp/cvs-serv20579/lib/Net/LDAP Modified Files: LDIF.pod Log Message: Fixes from Peter Marschall Index: LDIF.pod =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/LDIF.pod,v retrieving revision 1.10 retrieving revision 1.11 diff -u -d -r1.10 -r1.11 --- LDIF.pod 1 Jan 2004 09:43:19 -0000 1.10 +++ LDIF.pod 20 Jan 2004 07:06:43 -0000 1.11 @@ -87,11 +87,17 @@ C<Net::LDAP::LDIF> will warn with an appropriate message if C<-w> is in effect. The method that was called will return C<undef>. +=back + =item change =E<gt> 1 Write entry changes to the LDIF file instead of the entries itself. I.e. write LDAP operations acting on the entries to the file instead of the entries contents. +=item lowercase =E<gt> 1 + +Convert attribute names to lowercase when writing. + =item version =E<gt> '1' Set the LDIF version to write to the resulting LDIF file. @@ -100,13 +106,13 @@ The default is I<undef> meaning no version information is written to the LDIF file. -=back +=item wrap =E<gt> 78 -=back +Number of columns where output line wrapping shall occur. -=item change =E<gt> 1 +Default is 78. Setting it to 40 or lower inhibits wrapping. -Write out LDIF change records instead of plain entries. +=back =back |
|
From: Chris R. <chr...@us...> - 2004-01-04 16:00:09
|
Update of /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl
In directory sc8-pr-cvs1:/tmp/cvs-serv26163
Modified Files:
PLAIN.pm
Log Message:
Reversed order of user and authname, as per SASL PLAIN spec
Index: PLAIN.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl/PLAIN.pm,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- PLAIN.pm 21 Oct 2003 18:59:47 -0000 1.2
+++ PLAIN.pm 4 Jan 2004 16:00:06 -0000 1.3
@@ -28,7 +28,7 @@
my @parts = map {
my $v = $self->_call($_);
defined($v) ? $v : ''
- } qw(user authname pass);
+ } qw(authname user pass);
join("\0", @parts);
}
|
|
From: Graham B. <gb...@us...> - 2004-01-02 23:24:46
|
Update of /cvsroot/perl-ldap/sasl/lib/Authen/SASL
In directory sc8-pr-cvs1:/tmp/cvs-serv17820/lib/Authen/SASL
Modified Files:
Perl.pm
Log Message:
Cache result of require-ing a module the first time to avoid false positives
Index: Perl.pm
===================================================================
RCS file: /cvsroot/perl-ldap/sasl/lib/Authen/SASL/Perl.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- Perl.pm 21 Oct 2003 18:59:47 -0000 1.5
+++ Perl.pm 2 Jan 2004 23:24:41 -0000 1.6
@@ -8,13 +8,14 @@
use vars qw($VERSION);
use Carp;
-$VERSION = "1.03";
+$VERSION = "1.04";
my %secflags = (
noplaintext => 1,
noanonymous => 1,
nodictionary => 1,
);
+my %have;
sub client_new {
my ($pkg, $parent, $service, $host, $secflags) = @_;
@@ -30,7 +31,8 @@
my @mpkg = sort {
$b->_order <=> $a->_order
} grep {
- eval "require $_;" && $_->_secflags(@sec) == @sec
+ my $have = $have{$_} ||= (eval "require $_;" and $_->can('_secflags')) ? 1 : -1;
+ $have > 0 and $_->_secflags(@sec) == @sec
} map {
(my $mpkg = __PACKAGE__ . "::$_") =~ s/-/_/g;
$mpkg;
@@ -40,7 +42,7 @@
$mpkg[0]->_init($self);
}
-sub _order { 0 }
+sub _order { 0 }
sub code { defined(shift->{error}) || 0 }
sub error { shift->{error} }
sub service { shift->{service} }
|
|
From: Chris R. <chr...@us...> - 2004-01-01 11:02:46
|
Update of /cvsroot/perl-ldap/website
In directory sc8-pr-cvs1:/tmp/cvs-serv11745
Modified Files:
index.html
Log Message:
Change the date as well
Index: index.html
===================================================================
RCS file: /cvsroot/perl-ldap/website/index.html,v
retrieving revision 1.44
retrieving revision 1.45
diff -u -d -r1.44 -r1.45
--- index.html 1 Jan 2004 10:50:27 -0000 1.44
+++ index.html 1 Jan 2004 11:02:36 -0000 1.45
@@ -51,7 +51,7 @@
</div>
<div class="section">
<h2>Distribution</h2>
- <p>The latest (October 2003) release of the library is <a href=
+ <p>The latest (January 2004) release of the library is <a href=
"http://prdownloads.sourceforge.net/perl-ldap/perl-ldap-0.31.tar.gz"> perl-ldap-0.31</a>.
You may also <a href=
"http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/perl-ldap/ldap/">look
|
|
From: Chris R. <chr...@us...> - 2004-01-01 10:50:32
|
Update of /cvsroot/perl-ldap/website
In directory sc8-pr-cvs1:/tmp/cvs-serv10310
Modified Files:
index.html
Log Message:
Update for 0.31 release
Index: index.html
===================================================================
RCS file: /cvsroot/perl-ldap/website/index.html,v
retrieving revision 1.43
retrieving revision 1.44
diff -u -d -r1.43 -r1.44
--- index.html 18 Oct 2003 09:34:09 -0000 1.43
+++ index.html 1 Jan 2004 10:50:27 -0000 1.44
@@ -52,7 +52,7 @@
<div class="section">
<h2>Distribution</h2>
<p>The latest (October 2003) release of the library is <a href=
- "http://prdownloads.sourceforge.net/perl-ldap/perl-ldap-0.30.tar.gz"> perl-ldap-0.30</a>.
+ "http://prdownloads.sourceforge.net/perl-ldap/perl-ldap-0.31.tar.gz"> perl-ldap-0.31</a>.
You may also <a href=
"http://cvs.sourceforge.net/cgi-bin/viewcvs.cgi/perl-ldap/ldap/">look
at the individual files</a> in the CVS repository and the <a href=
|
|
From: Graham B. <gb...@us...> - 2004-01-01 10:44:04
|
Update of /cvsroot/perl-ldap/ldap In directory sc8-pr-cvs1:/tmp/cvs-serv9214 Modified Files: ChangeLog Log Message: Release 0.31 Index: ChangeLog =================================================================== RCS file: /cvsroot/perl-ldap/ldap/ChangeLog,v retrieving revision 1.32 retrieving revision 1.33 diff -u -d -r1.32 -r1.33 --- ChangeLog 1 Jan 2004 10:43:39 -0000 1.32 +++ ChangeLog 1 Jan 2004 10:44:00 -0000 1.33 @@ -1,3 +1,9 @@ +2004-01-01 10:43 Graham Barr + + * RELEASE_NOTES, lib/Net/LDAP.pm: + + Release 0.31 + 2004-01-01 09:49 Graham Barr * data/00-in.ldif: |
|
From: Graham B. <gb...@us...> - 2004-01-01 10:43:43
|
Update of /cvsroot/perl-ldap/ldap/lib/Net In directory sc8-pr-cvs1:/tmp/cvs-serv9052/lib/Net Modified Files: LDAP.pm Log Message: Release 0.31 Index: LDAP.pm =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v retrieving revision 1.58 retrieving revision 1.59 diff -u -d -r1.58 -r1.59 --- LDAP.pm 31 Dec 2003 21:49:43 -0000 1.58 +++ LDAP.pm 1 Jan 2004 10:43:39 -0000 1.59 @@ -1,4 +1,4 @@ -# Copyright (c) 1997-2000 Graham Barr <gb...@po...>. All rights reserved. +# Copyright (c) 1997-2004 Graham Barr <gb...@po...>. All rights reserved. # This program is free software; you can redistribute it and/or # modify it under the same terms as Perl itself. @@ -27,7 +27,7 @@ LDAP_UNAVAILABLE ); -$VERSION = "0.30"; +$VERSION = "0.31"; @ISA = qw(Tie::StdHash Net::LDAP::Extra); $LDAP_VERSION = 3; # default LDAP protocol version |
|
From: Graham B. <gb...@us...> - 2004-01-01 10:43:43
|
Update of /cvsroot/perl-ldap/ldap In directory sc8-pr-cvs1:/tmp/cvs-serv9052 Modified Files: ChangeLog RELEASE_NOTES Log Message: Release 0.31 Index: ChangeLog =================================================================== RCS file: /cvsroot/perl-ldap/ldap/ChangeLog,v retrieving revision 1.31 retrieving revision 1.32 diff -u -d -r1.31 -r1.32 --- ChangeLog 17 Oct 2003 21:39:51 -0000 1.31 +++ ChangeLog 1 Jan 2004 10:43:39 -0000 1.32 @@ -1,3 +1,61 @@ +2004-01-01 09:49 Graham Barr + + * data/00-in.ldif: + + Add blank line after version line + +2004-01-01 09:45 Graham Barr + + * lib/Net/LDAP/Schema.pm: + + Fix Net::LDAP::Schema to not ignore superior objectclass' attributes + in derived objectclasses without attributes + +2004-01-01 09:43 Graham Barr + + * lib/Net/LDAP/: LDIF.pm, LDIF.pod: + + Patch from Peter Marschall to Net::LDAP::LDIF + * it separates the "version: 1" line from the first entry by a blank line + * it allows the version() method to set the version number and documents it. + * it makes the option "change" to the constructor explicit and documents it + in Net::LDAP::LDIF.pod (defaulting to the current change => 0) + * it allows entries with changetype "moddn" to be treated correctly + (current version treats them as modifies) + * it allows the "deleteoldrdn" attribute in the entry to be missing + and treats the absent attribute as 0. (in the current version + scalar chokes if the entry does not contain a deleteoldrdn attribute) + +2004-01-01 09:32 Graham Barr + + * lib/Net/LDAP/Bind.pm: + + Add $VERSION to Net::LDAP::Bind + +2003-12-31 21:49 Chris Ridd + + * lib/Net/LDAP.pm: + + Handle socket failure better in _sendmesg + +2003-12-10 20:31 Chris Ridd + + * lib/Net/LDAP/LDIF.pod: + + Added change description + +2003-11-10 18:31 Chris Ridd + + * lib/Net/LDAP.pod: + + Change decryptkey to keydecrypt. Didn't we do this once already? + +2003-10-17 22:39 Graham Barr + + * RELEASE_NOTES, lib/Net/LDAP.pm: + + Release 0.30 + 2003-10-17 22:22 Graham Barr * lib/Net/LDAP/Bind.pm: Index: RELEASE_NOTES =================================================================== RCS file: /cvsroot/perl-ldap/ldap/RELEASE_NOTES,v retrieving revision 1.15 retrieving revision 1.16 diff -u -d -r1.15 -r1.16 --- RELEASE_NOTES 17 Oct 2003 21:39:51 -0000 1.15 +++ RELEASE_NOTES 1 Jan 2004 10:43:39 -0000 1.16 @@ -1,3 +1,11 @@ +perl-ldap 0.31 1 Jan 2004 +========================== + +* Fixed bug that could cause methods to return an integer instead of an object +* Fixed bug causing Schema.pm to ignore superior classes that had no attributes +* Documentation updates +* Updates to LDIF module + perl-ldap 0.30 17 Oct 2003 ========================== |
|
From: Graham B. <gb...@us...> - 2004-01-01 09:49:04
|
Update of /cvsroot/perl-ldap/ldap/data In directory sc8-pr-cvs1:/tmp/cvs-serv2959/data Modified Files: 00-in.ldif Log Message: Add blank line after version line Index: 00-in.ldif =================================================================== RCS file: /cvsroot/perl-ldap/ldap/data/00-in.ldif,v retrieving revision 1.2 retrieving revision 1.3 diff -u -d -r1.2 -r1.3 --- 00-in.ldif 4 Feb 2002 18:58:49 -0000 1.2 +++ 00-in.ldif 1 Jan 2004 09:49:00 -0000 1.3 @@ -1,4 +1,5 @@ version: 1 + dn: o=University of Michigan, c=US objectclass: top objectclass: organization |
|
From: Graham B. <gb...@us...> - 2004-01-01 09:45:57
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory sc8-pr-cvs1:/tmp/cvs-serv2649/lib/Net/LDAP
Modified Files:
Schema.pm
Log Message:
Fix Net::LDAP::Schema to not ignore superior objectclass' attributes
in derived objectclasses without attributes
Index: Schema.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Schema.pm,v
retrieving revision 1.16
retrieving revision 1.17
diff -u -d -r1.16 -r1.17
--- Schema.pm 6 May 2003 11:58:16 -0000 1.16
+++ Schema.pm 1 Jan 2004 09:45:51 -0000 1.17
@@ -1,4 +1,4 @@
-# Copyright (c) 1998-2002 Graham Barr <gb...@po...>. All rights reserved.
+# Copyright (c) 1998-2004 Graham Barr <gb...@po...>. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
@@ -7,7 +7,7 @@
use strict;
use vars qw($VERSION);
-$VERSION = "0.9901";
+$VERSION = "0.9902";
#
# Get schema from the server (or read from LDIF) and parse it into
@@ -158,8 +158,9 @@
$done{lc $oc}++ and next;
my $elem = $self->objectclass( $oc ) or next;
- my $res = $elem->{$must_or_may} or next;
+ if (my $res = $elem->{$must_or_may}) {
@res{ @$res } = (); # Add in, getting uniqueness
+ }
my $sup = $elem->{sup} or next;
push @oc, @$sup;
}
|
|
From: Graham B. <gb...@us...> - 2004-01-01 09:43:22
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory sc8-pr-cvs1:/tmp/cvs-serv2223
Modified Files:
LDIF.pm LDIF.pod
Log Message:
Patch from Peter Marschall to Net::LDAP::LDIF
* it separates the "version: 1" line from the first entry by a blank line
* it allows the version() method to set the version number and documents it.
* it makes the option "change" to the constructor explicit and documents it
in Net::LDAP::LDIF.pod (defaulting to the current change => 0)
* it allows entries with changetype "moddn" to be treated correctly
(current version treats them as modifies)
* it allows the "deleteoldrdn" attribute in the entry to be missing
and treats the absent attribute as 0. (in the current version
scalar chokes if the entry does not contain a deleteoldrdn attribute)
Index: LDIF.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/LDIF.pm,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- LDIF.pm 24 Oct 2002 13:04:45 -0000 1.19
+++ LDIF.pm 1 Jan 2004 09:43:19 -0000 1.20
@@ -9,7 +9,7 @@
require Net::LDAP::Entry;
use vars qw($VERSION);
-$VERSION = "0.13";
+$VERSION = "0.14";
my %mode = qw(w > r < a >>);
@@ -51,9 +51,9 @@
$opt{'onerror'} = 'die' unless exists $opt{'onerror'};
$opt{'lowercase'} ||= 0;
+ $opt{'change'} ||= 0;
my $self = {
- change => 0,
changetype => "modify",
modify => 'add',
wrap => 78,
@@ -376,7 +376,7 @@
print "\n";
}
else {
- print "version: $self->{version}\n" if defined $self->{version};
+ print "version: $self->{version}\n\n" if defined $self->{version};
}
_write_dn($entry->dn,$self->{'encode'},$wrap);
@@ -389,9 +389,10 @@
_write_attrs($entry,$wrap,$lower);
next;
}
- elsif ($type eq 'modrdn') {
+ elsif ($type =~ /modr?dn/o) {
+ my $deleteoldrdn = $entry->get_value('deleteoldrdn') || 0;
print _write_attr('newrdn',$entry->get_value('newrdn', asref => 1),$wrap,$lower);
- print 'deleteoldrdn: ', scalar $entry->get_value('deleteoldrdn'),"\n";
+ print 'deleteoldrdn: ', $deleteoldrdn,"\n";
my $ns = $entry->get_value('newsuperior', asref => 1);
print _write_attr('newsuperior',$ns,$wrap,$lower) if defined $ns;
next;
@@ -419,7 +420,7 @@
print "\n";
}
else {
- print "version: $self->{version}\n" if defined $self->{version};
+ print "version: $self->{version}\n\n" if defined $self->{version};
}
_write_dn($entry->dn,$self->{'encode'},$wrap);
_write_attrs($entry,$wrap,$lower);
@@ -523,7 +524,8 @@
sub version {
my $self = shift;
- $self->{version};
+ return $self->{version} unless @_;
+ $self->{version} = shift;
}
sub next_lines {
Index: LDIF.pod
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/LDIF.pod,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- LDIF.pod 10 Dec 2003 20:31:46 -0000 1.9
+++ LDIF.pod 1 Jan 2004 09:43:19 -0000 1.10
@@ -68,8 +68,6 @@
=back
-=back
-
=item onerror =E<gt> 'die' | 'warn' | undef
Specify what happens when an error is detected.
@@ -89,6 +87,21 @@
C<Net::LDAP::LDIF> will warn with an appropriate message if C<-w> is
in effect. The method that was called will return C<undef>.
+=item change =E<gt> 1
+
+Write entry changes to the LDIF file instead of the entries itself.
+I.e. write LDAP operations acting on the entries to the file instead of the entries contents.
+
+=item version =E<gt> '1'
+
+Set the LDIF version to write to the resulting LDIF file.
+
+According to RFC 2849 currently the only legal value for this option is I<1>.
+
+The default is I<undef> meaning no version information is written to the LDIF file.
+
+=back
+
=back
=item change =E<gt> 1
@@ -113,6 +126,14 @@
=item write_entry ( ENTRIES )
Write the entries to the LDIF file.
+
+=item version ( [ VERSION ] )
+
+If called without arguments it returns the version of the LDIF file
+or undef if no version has been set.
+If called with an argument it sets the LDIF version to VERSION.
+
+According to RFC 2849 currently the only legal value for VERSION is I<1>.
=item done ( )
|
|
From: Graham B. <gb...@us...> - 2004-01-01 09:32:39
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory sc8-pr-cvs1:/tmp/cvs-serv911/lib/Net/LDAP
Modified Files:
Bind.pm
Log Message:
Add $VERSION to Net::LDAP::Bind
Index: Bind.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/Bind.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -d -r1.5 -r1.6
--- Bind.pm 17 Oct 2003 21:22:56 -0000 1.5
+++ Bind.pm 1 Jan 2004 09:32:35 -0000 1.6
@@ -7,8 +7,9 @@
use strict;
use Net::LDAP qw(LDAP_SASL_BIND_IN_PROGRESS LDAP_DECODING_ERROR LDAP_SUCCESS);
use Net::LDAP::Message;
-use vars qw(@ISA);
+use vars qw(@ISA $VERSION);
+$VERSION = "1.02";
@ISA = qw(Net::LDAP::Message);
sub _sasl_info {
|
|
From: Chris R. <chr...@us...> - 2003-12-31 21:49:46
|
Update of /cvsroot/perl-ldap/ldap/lib/Net
In directory sc8-pr-cvs1:/tmp/cvs-serv5703
Modified Files:
LDAP.pm
Log Message:
Handle socket failure better in _sendmesg
Index: LDAP.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP.pm,v
retrieving revision 1.57
retrieving revision 1.58
diff -u -d -r1.57 -r1.58
--- LDAP.pm 17 Oct 2003 21:39:51 -0000 1.57
+++ LDAP.pm 31 Dec 2003 21:49:43 -0000 1.58
@@ -721,7 +721,8 @@
if $debug & 4;
}
- my $socket = $ldap->socket or return LDAP_SERVER_DOWN;
+ my $socket = $ldap->socket
+ or return _error($ldap, $mesg, LDAP_SERVER_DOWN, "$!");
syswrite($socket, $mesg->pdu, length($mesg->pdu))
or return _error($ldap, $mesg, LDAP_LOCAL_ERROR,"$!");
|
|
From: Chris R. <chr...@us...> - 2003-12-10 20:31:49
|
Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP In directory sc8-pr-cvs1:/tmp/cvs-serv23498 Modified Files: LDIF.pod Log Message: Added change description Index: LDIF.pod =================================================================== RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/LDIF.pod,v retrieving revision 1.8 retrieving revision 1.9 diff -u -d -r1.8 -r1.9 --- LDIF.pod 2 Aug 2003 10:03:15 -0000 1.8 +++ LDIF.pod 10 Dec 2003 20:31:46 -0000 1.9 @@ -91,6 +91,10 @@ =back +=item change =E<gt> 1 + +Write out LDIF change records instead of plain entries. + =back =head1 METHODS |
