1 package SI::dumper;

     2 

     3 use if $ENV{DEBUG} ~~ /dumper|all/ => "Smart::Comments";

     4 use strict;

     5 use warnings;

     6 use SI::tools;

     7 use File::Basename;

     8 

     9 sub dump($\%) {

    10     my ($file, $devs) = @_;

    11 

    12     foreach my $volume (

    13         map { { name => $_, %{ $devs->{volume}{$_} } } }

    14         keys %{ $devs->{volume} }

    15       )

    16     {

    17         next if !defined $volume->{type} or $volume->{type} !~ /^ext/i;

    18 

    19         verbose("dumping volume $volume->{name}");

    20         my $dumpdev = $volume->{name};

    21         my $of = sprintf $file, basename($volume->{name});

    22         run("dump -0 -z -f $of $dumpdev");

    23         verbose("\n");

    24     }

    25 }

    26 

    27 1;

    28 

    29 # vim:sts=4 sw=4 aw ai sm: