equal
deleted
inserted
replaced
6 use SI::tools; |
6 use SI::tools; |
7 use File::Basename; |
7 use File::Basename; |
8 |
8 |
9 sub dump($\%) { |
9 sub dump($\%) { |
10 my ($file, $devs) = @_; |
10 my ($file, $devs) = @_; |
|
11 my $dumpdates = dirname($file) . "/dumpdates"; |
11 |
12 |
12 foreach my $volume ( |
13 foreach my $volume ( |
13 map { { name => $_, %{ $devs->{volume}{$_} } } } |
14 map { { name => $_, %{ $devs->{volume}{$_} } } } |
14 keys %{ $devs->{volume} } |
15 keys %{ $devs->{volume} } |
15 ) |
16 ) |
17 next if !defined $volume->{type} or $volume->{type} !~ /^ext/i; |
18 next if !defined $volume->{type} or $volume->{type} !~ /^ext/i; |
18 |
19 |
19 verbose("dumping volume $volume->{name}"); |
20 verbose("dumping volume $volume->{name}"); |
20 my $dumpdev = $volume->{name}; |
21 my $dumpdev = $volume->{name}; |
21 my $of = sprintf $file, basename($volume->{name}); |
22 my $of = sprintf $file, basename($volume->{name}); |
22 run("dump -0 -z -f $of $dumpdev"); |
23 run("dump -D $dumpdates -u -0 -z -f $of $dumpdev"); |
23 verbose("\n"); |
24 verbose("\n"); |
24 } |
25 } |
25 } |
26 } |
26 |
27 |
27 1; |
28 1; |