# HG changeset patch
# User Heiko Schlittermann (ZARAFA.ctq.de) hs@schlittermann.de
# Date 1302611338 -7200
# Node ID 840b18b3b93f7ee3db63d67d6c7738e6987ca98e
# Parent  ff06067298b51d34a07d9e97cfe7eeca1fcb67c7
adjust /var/lib/dumpdates prior to dumping too

diff -r ff06067298b5 -r 840b18b3b93f ftbackup
--- a/ftbackup	Mon Apr 11 17:20:37 2011 +0200
+++ b/ftbackup	Tue Apr 12 14:28:58 2011 +0200
@@ -210,6 +210,15 @@
 __HEAD
 
 
+            if ($opt_dumpdates) {
+		open(my $f, "+<", $opt_dumpdates) or die "Can't open $opt_dumpdates: $!\n";
+		$_ = join "", <$f>;
+		s/^$dev->{rdev}\s/$dev->{dump} /mg;
+		seek($f, 0, 0);
+		truncate($f, 0);
+		print $f $_;		
+		close($f);
+	    }
             exec "dump -$opt_level -L $label -f- -u -z$cf{COMPRESSION_LEVEL} $dev->{dump}"
               . "| openssl enc -pass env:key -salt -blowfish";
             die "Can't exec dumper\n";
@@ -234,6 +243,7 @@
 		seek($f, 0, 0);
 		truncate($f, 0);
 		print $f $_;
+		close($f);
 	}
     }