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...E<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 |