adjust /var/lib/dumpdates prior to dumping too
authorHeiko Schlittermann (ZARAFA.ctq.de) hs@schlittermann.de
Tue, 12 Apr 2011 14:28:58 +0200
changeset 39 840b18b3b93f
parent 38 ff06067298b5
child 40 1f379e39248a
adjust /var/lib/dumpdates prior to dumping too
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);
 	}
     }