# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1264979250 -3600
# Node ID 38af4add892ae5c4dafcfffbfda43c900efe2473
# Parent  28090de7d005682c82ff2c9afe99d239e4cb7e9a# Parent  a61b92c603672c8b432afe0bf01b7e0a13bbf9b5
merged

diff -r a61b92c60367 -r 38af4add892a lib/SI/dumper.pm
--- a/lib/SI/dumper.pm	Sun Jan 31 23:58:01 2010 +0100
+++ b/lib/SI/dumper.pm	Mon Feb 01 00:07:30 2010 +0100
@@ -10,6 +10,7 @@
 
 sub dump($\%) {
     my ($file, $devs) = @_;
+    my $dumpdates = dirname($file) . "/dumpdates";
 
     foreach my $volume (
         map { { name => $_, %{ $devs->{volume}{$_} } } }
@@ -21,7 +22,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 a61b92c60367 -r 38af4add892a si
--- a/si	Sun Jan 31 23:58:01 2010 +0100
+++ b/si	Mon Feb 01 00:07:30 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/;