diff -r de0a25512844 -r 7d7ca3f05f25 SI/dumper.pm --- a/SI/dumper.pm Wed Jan 20 21:42:28 2010 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,29 +0,0 @@ -package SI::dumper; - -use if $ENV{DEBUG} ~~ /dumper|all/ => "Smart::Comments"; -use strict; -use warnings; -use SI::tools; -use File::Basename; - -sub dump($\%) { - my ($file, $devs) = @_; - - foreach my $volume ( - map { { name => $_, %{ $devs->{volume}{$_} } } } - keys %{ $devs->{volume} } - ) - { - next if !defined $volume->{type} or $volume->{type} !~ /^ext/i; - - verbose("dumping volume $volume->{name}"); - my $dumpdev = $volume->{name}; - my $of = sprintf $file, basename($volume->{name}); - run("dump -0 -z -f $of $dumpdev"); - verbose("\n"); - } -} - -1; - -# vim:sts=4 sw=4 aw ai sm: