diff options
| -rw-r--r-- | lib/ManaTools/Shared/disk_backend/Plugin/Disk.pm | 177 |
1 files changed, 177 insertions, 0 deletions
diff --git a/lib/ManaTools/Shared/disk_backend/Plugin/Disk.pm b/lib/ManaTools/Shared/disk_backend/Plugin/Disk.pm new file mode 100644 index 00000000..9b5cbbe2 --- /dev/null +++ b/lib/ManaTools/Shared/disk_backend/Plugin/Disk.pm @@ -0,0 +1,177 @@ +# vim: set et ts=4 sw=4: +package ManaTools::Shared::disk_backend::Plugin::Disk; + +#============================================================= -*-perl-*- + +=head1 NAME + + ManaTools::Shared::disk_backend::Plugin::Disk - disks object + +=head1 SYNOPSIS + + use ManaTools::Shared::disk_backend::Plugin::Disk; + + my $db_man = ManaTools::Shared::disk_backend::Plugin::Disk->new($parent); + ... + + +=head1 DESCRIPTION + + This plugin is a disk plugin for the backend to manadisk + +=head1 SUPPORT + + You can find documentation for this plugin with the perldoc command: + + perldoc ManaTools::Shared::disk_backend::Plugin::Disk + + +=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; + +extends 'ManaTools::Shared::disk_backend::Plugin'; + +#============================================================= + +=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 + +#============================================================= +override ('probe', sub { + my $self = shift; + my $part = undef; + my $err = 0; + my @parts = $self->parent->findpart('Disks'); + if (scalar(@parts) > 0) { + $part = $parts[0]; + } + else { + $part = $self->parent->mkpart('Disks', {}); + if (!defined($part)) { + return 0; + } + } + for my $dfile (glob("/sys/bus/scsi/devices/[0-9]*")) { + for my $bdfile (glob($dfile ."/block/*")) { + my $io = $self->parent->mkio('Disk', {id => basename($bdfile), path => $bdfile}); + if (!defined($io) || !$part->out_add($io)) { + $err = 1; + } + } + } + return $err == 0; +}); + +package ManaTools::Shared::disk_backend::IO::Disk; + +use Moose; + +extends 'ManaTools::Shared::disk_backend::IO'; + +with 'ManaTools::Shared::disk_backend::BlockDevice'; + +has '+type' => ( + default => 'Disk' +); + +has 'path' => ( + is => 'ro', + isa => 'Str', + required => 1, + trigger => sub { + my $self = shift; + my $value = shift; + $self->prop('path', $value); + $self->prop_from_file('ro', $value .'/ro'); + $self->prop_from_file('removable', $value .'/removable'); + $self->prop_from_file('size', $value .'/size'); + $self->prop('present', ($self->prop('removable') == 0 || $self->prop('size') > 0) ? 1 : 0); + $self->prop_from_file('dev', $value .'/dev'); + $self->sync_majorminor(); + + # additional data + my $dpath = $value =~ s,/[^/]+/[^/]+$,,r; + $self->prop_from_file('vendor', $dpath .'/vendor'); + $self->prop_from_file('model', $dpath .'/model'); + $self->prop_from_file('type', $dpath .'/type'); + } +); + +sub file { + my $self = shift; + return '/dev/'. $self->id(); +} + +package ManaTools::Shared::disk_backend::Part::Disks; + +use Moose; + +extends 'ManaTools::Shared::disk_backend::Part'; + +has '+type' => ( + default => 'Disks' +); + +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 ref($io) eq 'ManaTools::Shared::disk_backend::IO::Disk'; + }; + } +); + +override('label', sub { + my $self = shift; + my $label = super; + if ($self->out_length() < 1) { + return $label; + } + return $label .'('. join(',', sort map { $_->id(); } $self->out_list()) .')'; +}); + + +1; |