# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1264025426 -3600
# Node ID 8f9e45f83a656cb40b80231b6e42c2d0087c9c7b
# Parent  26541a264da315691d8d1820e98f16f71fe96d2f
The dumper now writes the dump dates.

diff -r 26541a264da3 -r 8f9e45f83a65 lib/SI/dumper.pm
--- a/lib/SI/dumper.pm	Wed Jan 20 22:31:34 2010 +0100
+++ b/lib/SI/dumper.pm	Wed Jan 20 23:10:26 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 26541a264da3 -r 8f9e45f83a65 si
--- a/si	Wed Jan 20 22:31:34 2010 +0100
+++ b/si	Wed Jan 20 23:10:26 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/;