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

[Graham B. <gb...@us...>]

Update of /cvsroot/perl-ldap/ldap/lib/Net/LDAP
In directory usw-pr-cvs1:/tmp/cvs-serv2005/lib/Net/LDAP

Modified Files:
	LDIF.pm 
Log Message:
Add support for the version number line


Index: LDIF.pm
===================================================================
RCS file: /cvsroot/perl-ldap/ldap/lib/Net/LDAP/LDIF.pm,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- LDIF.pm	2002/01/31 13:32:25	1.14
+++ LDIF.pm	2002/02/04 14:58:35	1.15
@@ -9,7 +9,7 @@
 require Net::LDAP::Entry;
 use vars qw($VERSION);
 
-$VERSION = "0.10";
+$VERSION = "0.11";
 
 my %mode = qw(w > r < a >>);
 
@@ -106,6 +106,11 @@
   return unless @ldif;
   shift @ldif if @ldif && $ldif[0] !~ /\D/;
 
+  if (@ldif and $ldif[0] =~ /^version:\s+(\d+)/) {
+    $self->{version} = $1;
+    shift @ldif;
+  }
+
   if (@ldif <= 1) {
      $self->_error("LDIF entry is not valid", @ldif);
      return;
@@ -357,7 +362,12 @@
       # Skip entry if there is nothing to write
       next if $type eq 'modify' and !@changes;
 
-      print "\n" if $self->{write_count}++;
+      if ($self->{write_count}++) {
+	print "\n";
+      }
+      else {
+        print "version: $self->{version}\n" if defined $self->{version};
+      }
       _write_dn($entry->dn,$self->{'encode'},$wrap);
 
       print "changetype: $type\n";
@@ -395,7 +405,12 @@
     }
 
     else {
-      print "\n" if $self->{write_count}++;
+      if ($self->{write_count}++) {
+	print "\n";
+      }
+      else {
+        print "version: $self->{version}\n" if defined $self->{version};
+      }
       _write_dn($entry->dn,$self->{'encode'},$wrap);
       _write_attrs($entry,$wrap,$lower);
     }
@@ -494,6 +509,11 @@
 sub current_lines {
   my $self = shift;
   $self->{_current_lines};
+}
+
+sub version {
+  my $self = shift;
+  $self->{version};
 }
 
 sub next_lines {