perl-ldap-checkins Mailing List for perl-ldap

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

1 2 3 .. 19 > >> (Page 1 of 19)

[perl-ldap-checkins] CVS: website 0849313465.jpg,NONE,1.1 index.html,1.45,1.46

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>

[perl-ldap-checkins] CVS: ldap/contrib ldifdiff.pl,1.4,1.5

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";

[perl-ldap-checkins] CVS: ldap/contrib ldifdiff.pl,1.3,1.4

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;

[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Filter.pm,1.8,1.9

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*//;

[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP LDIF.pm,1.21,1.22

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;

[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Util.pm,1.18,1.19

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>

[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP LDIF.pm,1.20,1.21 LDIF.pod,1.11,1.12

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.

[perl-ldap-checkins] CVS: ldap/lib/Net LDAP.pod,1.35,1.36

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

[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP RootDSE.pm,1.1,1.2

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

[perl-ldap-checkins] CVS: ldap/lib/Net LDAP.pm,1.59,1.60

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
 		)];

[perl-ldap-checkins] CVS: ldap/bin ldapsearch,1.1,1.2

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;

[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP LDIF.pod,1.10,1.11

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

[perl-ldap-checkins] CVS: sasl/lib/Authen/SASL/Perl PLAIN.pm,1.2,1.3

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);
 }

[perl-ldap-checkins] CVS: sasl/lib/Authen/SASL Perl.pm,1.5,1.6

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}  }

[perl-ldap-checkins] CVS: website index.html,1.44,1.45

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

[perl-ldap-checkins] CVS: website index.html,1.43,1.44

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=

[perl-ldap-checkins] CVS: ldap ChangeLog,1.32,1.33

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:

[perl-ldap-checkins] CVS: ldap/lib/Net LDAP.pm,1.58,1.59

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

[perl-ldap-checkins] CVS: ldap ChangeLog,1.31,1.32 RELEASE_NOTES,1.15,1.16

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
 ==========================

[perl-ldap-checkins] CVS: ldap/data 00-in.ldif,1.2,1.3

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

[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Schema.pm,1.16,1.17

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;
   }

[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP LDIF.pm,1.19,1.20 LDIF.pod,1.9,1.10

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 ( )

[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP Bind.pm,1.5,1.6

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 {

[perl-ldap-checkins] CVS: ldap/lib/Net LDAP.pm,1.57,1.58

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,"$!");

[perl-ldap-checkins] CVS: ldap/lib/Net/LDAP LDIF.pod,1.8,1.9

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

Flat | Threaded

1 2 3 .. 19 > >> (Page 1 of 19)

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