# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1264199325 -3600
# Node ID 28090de7d005682c82ff2c9afe99d239e4cb7e9a
# Parent  6432e90cc34d4fba7c9bb97df7c870b7b76672d8# Parent  95fb6be2115733afd01b5c7ef7fc149acf8f73e9
[merged]

diff -r 95fb6be21157 -r 28090de7d005 lib/SI/dumper.pm
--- a/lib/SI/dumper.pm	Fri Jan 22 22:10:29 2010 +0100
+++ b/lib/SI/dumper.pm	Fri Jan 22 23:28:45 2010 +0100
@@ -8,6 +8,7 @@
 
 sub dump($\%) {
     my ($file, $devs) = @_;
+    my $dumpdates = dirname($file) . "/dumpdates";
 
     foreach my $volume (
         map { { name => $_, %{ $devs->{volume}{$_} } } }
@@ -19,7 +20,7 @@
         verbose("dumping volume $volume->{name}");
         my $dumpdev = $volume->{name};
         my $of = sprintf $file, basename($volume->{name});
-        run("dump -0 -z -f $of $dumpdev");
+        run("dump -D $dumpdates -u -0 -z -f $of $dumpdev");
         verbose("\n");
     }
 }
diff -r 95fb6be21157 -r 28090de7d005 si
--- a/si	Fri Jan 22 22:10:29 2010 +0100
+++ b/si	Fri Jan 22 23:28:45 2010 +0100
@@ -45,10 +45,9 @@
     $dir =~ s/\/+/\//g;
 
     rmtree($dir);
-    mkpath(map { "$dir/$_" } qw(info ptable lvm blkid mbr dump),
-        { verbose => 1 });
+    mkpath([map { "$dir/$_" } qw(info ptable lvm blkid mbr dump)]);
 
-    warn grep { -l && readlink =~ /\/.*-$sys_id$/ } glob("$opt_base");
+    #print grep { -l && readlink =~ /\/.*-$sys_id$/ } glob("$opt_base");
 
     SI::ptable::volumes("$dir/ptable/%s", %devices);
     die Dumper \%devices if $opt_exit =~ /ptable/;