1#@!#!123s

: / usr / lib / raider / Raider / Jobs /
Filename : PercCli2.pm
back
use strict;
use warnings;

package Raider::Jobs::PercCli2;
use base qw( Raider::Jobs::PercCli );

=head1 NAME

Raider::Jobs::PercCli2 - PercCli2 specific tasks for checking raid health

=head1 DESCRIPTION

Checks raid health for cards requiring PercCli2.

=head1 USAGE

use Raider::Jobs::PercCli2;
my job = Raider::Jobs::PercCli2->new();

=cut

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

	return $self->{_PercCli_icmd} if $self->{_PercCli_icmd};

	my $icmd;
	### Apparently potentially any of these might be it
	if (-f '/opt/MegaRAID/perccli2/perccli64') {
		$icmd = '/opt/MegaRAID/perccli2/perccli64';
	}
	elsif (-f '/opt/MegaRAID/perccli2/perccli2') {
		$icmd = '/opt/MegaRAID/perccli2/perccli2';
	}
	elsif (-f '/opt/MegaRAID/perccli/perccli2') {
		$icmd = '/opt/MegaRAID/perccli/perccli2';
	}
	else {
		$icmd = '/opt/MegaRAID/perccli/perccli64';
	}

	$self->icmd_in_path({ icmd => $icmd });

	$self->{_PercCli_icmd} = $icmd;
	return $icmd;
}

sub get_name {
	return 'PercCli2';
}

1;