add a Loop plugin

4 files changed, 181 insertions, 2 deletions

diff --git a/MANIFEST b/MANIFEST
index 07f55495..52ba50e5 100644
--- a/MANIFEST
+++ b/MANIFEST
@@ -79,6 +79,7 @@ lib/ManaTools/Shared/disk_backend/IOs.pm
 lib/ManaTools/Shared/disk_backend/PartitionTable.pm
 lib/ManaTools/Shared/disk_backend/Part.pm
 lib/ManaTools/Shared/disk_backend/Plugin/Disk.pm
+lib/ManaTools/Shared/disk_backend/Plugin/Loop.pm
 lib/ManaTools/Shared/disk_backend/Plugin/fstab.pm
 lib/ManaTools/Shared/disk_backend/Plugin/Mount.pm
 lib/ManaTools/Shared/disk_backend/Plugin/Partition.pm
diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Loop.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Loop.pm
new file mode 100644
index 00000000..024c5026
--- /dev/null
+++ b/lib/ManaTools/Shared/disk_backend/Plugin/Loop.pm
@@ -0,0 +1,178 @@
+# vim: set et ts=4 sw=4:
+package ManaTools::Shared::disk_backend::Plugin::Loop;
+
+#============================================================= -*-perl-*-
+
+=head1 NAME
+
+    ManaTools::Shared::disk_backend::Plugin::Loop - loops object
+
+=head1 SYNOPSIS
+
+    use ManaTools::Shared::disk_backend::Plugin::Loop;
+
+    my $db_man = ManaTools::Shared::disk_backend::Plugin::Loop->new($parent);
+    ...
+
+
+=head1 DESCRIPTION
+
+    This plugin is a loop plugin for the backend to manaloop
+
+=head1 SUPPORT
+
+    You can find documentation for this plugin with the perldoc command:
+
+    perldoc ManaTools::Shared::disk_backend::Plugin::Loop
+
+
+=head1 AUTHOR
+
+    Maarten Vanraes <alien@rmail.be>
+
+=head1 COPYRIGHT and LICENSE
+
+Copyright (c) 2015 Maarten Vanraes <alien@rmail.be>
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License version 2, as
+published by the Free Software Foundation.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+
+=head1 METHODS
+
+=cut
+
+use Moose;
+
+use File::Basename;
+use ManaTools::Shared::RunProgram;
+
+## Requires /usr/sbin/losetup
+
+extends 'ManaTools::Shared::disk_backend::Plugin';
+
+
+has '+dependencies' => (
+    default => sub {
+        return ['Disk'];
+    }
+);
+
+#=============================================================
+
+=head2 _sanitize_string
+
+=head3 OUTPUT
+
+    Str
+
+=head3 DESCRIPTION
+
+    this method will call sanitize raw losetup strings
+
+=cut
+
+#=============================================================
+
+sub _sanitize_string {
+    my $self = shift;
+    my $string = shift;
+    # convert \xHH to binary
+    $string =~ s/\\x([0-9A-Fa-f]{2})/chr hex $1/eg;
+    # then trim
+    $string =~ s/^\s+|\s+$//g;
+    return $string;
+}
+
+#=============================================================
+
+=head2 probe
+
+=head3 OUTPUT
+
+    0 if failed, 1 if success
+
+=head3 DESCRIPTION
+
+    this method will call probe for all plugins and merge results of the probe
+
+=cut
+
+# /usr/sbin/losetup --list --noheadings --raw --output MAJ:MIN,NAME,SIZELIMIT,OFFSET,AUTOCLEAR,RO,BACK-MAJ:MIN,BACK-INO,BACK-FILE
+# \x20\x207:0\x20\x20 /dev/loop0 0 0 1 1 \x20\x20\x20\x20\x20\x20\x200:19\x20 10148981 /home/alien/Carmageddon/Carmageddon.iso
+
+
+#=============================================================
+override ('probe', sub {
+    my $self = shift;
+    my $part = undef;
+    my $err =  0;
+    my @parts = $self->parent->findpart('Loops');
+    if (scalar(@parts) > 0) {
+        $part = $parts[0];
+    }
+    else {
+        $part = $self->parent->mkpart('Loops', {});
+        if (!defined($part)) {
+            return 0;
+        }
+    }
+    my @lines = ManaTools::Shared::RunProgram::get_stdout('/usr/sbin/losetup --list --noheadings --raw --output MAJ:MIN,NAME,SIZELIMIT,OFFSET,AUTOCLEAR,RO,BACK-MAJ:MIN,BACK-INO,BACK-FILE');
+    for my $line (@lines) {
+        chomp($line);
+        my @fields = split(' ', $line);
+        my $loopfile = $self->_sanitize_string($fields[1]);
+        my $bdfile = '/sys/block/'. basename($loopfile);
+        my $io = $self->parent->mkio('Disk', {id => basename($loopfile), path => $bdfile});
+        if (!defined($io) || !$part->out_add($io)) {
+            $err = 1;
+        }
+        else {
+            $io->prop('sizelimit', $self->_sanitize_string($fields[2]));
+            $io->prop('offset', $self->_sanitize_string($fields[3]));
+            $io->prop('autoclear', $self->_sanitize_string($fields[4]));
+            $io->prop('back-dev', $self->_sanitize_string($fields[6]));
+            $io->prop('back-ino', $self->_sanitize_string($fields[7]));
+            $io->prop('back-file', $self->_sanitize_string($fields[8]));
+        }
+    }
+    return $err == 0;
+});
+
+package ManaTools::Shared::disk_backend::Part::Loops;
+
+use Moose;
+
+extends 'ManaTools::Shared::disk_backend::Part';
+
+has '+type' => (
+    default => 'Loops'
+);
+
+has '+in_restriction' => (
+    default => sub {
+        return sub {return 0;};
+    }
+);
+
+has '+out_restriction' => (
+    default => sub {
+        return sub {
+            my $self = shift;
+            my $io = shift;
+            my $del = shift;
+            return $io->does('ManaTools::Shared::disk_backend::BlockDevice');
+        };
+    }
+);
+
+1;
diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Mount.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Mount.pm
index c55f4f18..7e51f772 100644
--- a/lib/ManaTools/Shared/disk_backend/Plugin/Mount.pm
+++ b/lib/ManaTools/Shared/disk_backend/Plugin/Mount.pm
@@ -60,7 +60,7 @@ extends 'ManaTools::Shared::disk_backend::Plugin';
 
 has '+dependencies' => (
     default => sub {
-        return ['Partition'];
+        return ['Partition', 'Loop'];
     }
 );
 
diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Partition.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Partition.pm
index 6c3466ac..e8496c3b 100644
--- a/lib/ManaTools/Shared/disk_backend/Plugin/Partition.pm
+++ b/lib/ManaTools/Shared/disk_backend/Plugin/Partition.pm
@@ -60,7 +60,7 @@ extends 'ManaTools::Shared::disk_backend::Plugin';
 
 has '+dependencies' => (
     default => sub {
-        return ['Disk'];
+        return ['Disk', 'Loop'];
     }
 );