SI/dumper.pm
changeset 28 7d7ca3f05f25
parent 27 de0a25512844
child 29 4e40cf0eba95
--- 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: