????
Your IP : 216.73.216.174
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;