1#@!#!123s

: / usr / lib / raider / Raider / Info /
Filename : MegaraidSATA.pm
back
use strict;
use warnings;

package Raider::Info::MegaraidSATA;
use base qw ( Raider::Info );

=head1 NAME

Raider::Info::MegaraidSATA - MegaraidSATA specific instructions for get-info

=head1 DESCRIPTION

MegaraidSATA specific methods to gather information required for populating the .info 
file.

=head1 USAGE

use Raider::Info::MegaraidSATA
my megaraidsataInfo = Raider::Info::MegaraidSATA->new();

=head1 METHODS

=head2 get_info()

Initiates all needed steps to generate a finished MegaraidSATA info file.

=head2 host_supports_info()

Given no args, return whether or not this physical host supports get-info collection.

Returns:

BOOL (1 or 0)

=cut

use Raider::Jobs::MegaraidSATA;

my $icmd = '/usr/local/bin/megarc';

sub get_info {
  my $self = shift;
  my $jobsMegaraidSATA = Raider::Jobs::MegaraidSATA->new();
  $jobsMegaraidSATA->icmd_in_path({icmd => $icmd});
  $self->write_json({
    data => {
      error => 'The megarc utility is not capable of producing the required information.'
    },
    device => 'megaraidSATA'
  });
}

sub host_supports_info {
  my ($self) = @_;

  return 1;
}


1;