File Coverage

blib/lib/Metabrik/System/Mount.pm

Criterion	Covered	Total	%
statement	9	59	15.2
branch	0	28	0.0
condition			n/a
subroutine	3	9	33.3
pod	1	6	16.6
total	13	102	12.7

#
# $Id$
#
# system::mount Brik
#
package Metabrik::System::Mount;
use strict;
use warnings;

use base qw(Metabrik::Shell::Command Metabrik::System::Package Metabrik::File::Text);

sub brik_properties {
   return {
      revision => '$Revision$',
      tags => [ qw(unstable mtab fstab mount umount system filesystem) ],
      author => 'GomoR ',
      license => 'http://opensource.org/licenses/BSD-3-Clause',
      commands => {
         install => [ ],  # Inherited
         is_device_mounted => [ qw(device) ],
         is_directory_mounted => [ qw(directory) ],
         get_device_mounted_directory => [ qw(device) ],
         umount_directory => [ qw(directory) ],
         umount_device => [ qw(device) ],
      },
      require_binaries => {
         mount => [ ],
      },
      need_packages => {
         ubuntu => [ qw(mount) ],
         debian => [ qw(mount) ],
         kali => [ qw(mount) ],
      },
   };
}

sub is_device_mounted {
   my $self = shift;
   my ($device) = @_;

   $self->brik_help_run_undef_arg('is_device_mounted', $device) or return;

   $self->as_array(1);

   my $lines = $self->read('/etc/mtab') or return;
   return grep {/^\s*$device\s+/} @$lines;
}

sub is_directory_mounted {
   my $self = shift;
   my ($directory) = @_;

   $self->brik_help_run_undef_arg('is_directory_mounted', $directory) or return;

   $directory =~ s{/*$}{}g;

   $self->as_array(1);

   my $lines = $self->read('/etc/mtab') or return;
   return grep {/^\s*\S+\s+$directory\s+/} @$lines;
}

sub get_device_mounted_directory {
   my $self = shift;
   my ($device) = @_;

   $self->brik_help_run_undef_arg('get_device_mounted_directory', $device) or return;

   $self->as_array(1);

   my $lines = $self->read('/etc/mtab') or return;

   my $directory = '';
   for (@$lines) {
      if (/^\s*$device\s+(\S+)\s+/) {
         $directory = $1;
         last;
      }
   }

   $directory =~ s{/*$}{}g;

   return $directory;
}

sub umount_directory {
   my $self = shift;
   my ($directory) = @_;

   $self->brik_help_run_undef_arg('umount_directory', $directory) or return;

   $directory =~ s{/*$}{}g;

   my $is_mounted = $self->is_directory_mounted($directory);
   if (! defined($is_mounted)) {
      return;
   }

   if (! $is_mounted) {
      return $self->log->error("umount_directory: directory [$directory] not mounted");
   }

   my $cmd = 'umount '.$directory;
   return $self->sudo_execute($cmd);
}

sub umount_device {
   my $self = shift;
   my ($device) = @_;

   $self->brik_help_run_undef_arg('umount_device', $device) or return;

   my $is_mounted = $self->is_device_mounted($device);
   if (! defined($is_mounted)) {
      return;
   }

   if (! $is_mounted) {
      return $self->log->error("umount_device: device [$device] not mounted");
   }

   my $directory = $self->get_device_mounted_directory($device) or return;

   my $cmd = 'umount '.$directory;
   return $self->sudo_execute($cmd);
}

1;

__END__