#
# (c) Ferenc Erki <erkiferenc@gmail.com>, adjust GmbH
#
package
Rex::Interface::Shell::Idrac;
use
v5.12.5;
use
warnings;
our
$VERSION
=
'1.16.0'
;
# VERSION
sub
new {
my
$class
=
shift
;
my
$proto
=
ref
(
$class
) ||
$class
;
my
$self
=
$proto
->SUPER::new(
@_
);
bless
(
$self
,
$class
);
return
$self
;
}
sub
detect {
my
(
$self
,
$con
) =
@_
;
my
(
$output
);
eval
{
(
$output
) =
$con
->direct_exec(
'version'
);
1;
};
if
(
$output
&&
$output
=~ m/SM CLP Version: / ) {
return
1;
}
return
0;
}
sub
exec
{
my
(
$self
,
$cmd
,
$option
) =
@_
;
return
$cmd
;
}
1;