package App::MadEye::Plugin::Agent::WriteDisk;
use strict;
use warnings;
use App::MadEye::Plugin::Agent::Base;
use Net::SSH qw/ssh_cmd/;
sub is_dead {
my ($self, $host) = @_;
my $conf = $self->config->{config};
my $fname = $conf->{filename} or die "missing filename";
my @result = split /\n/, ssh_cmd($host, "/bin/touch $fname && /bin/rm $fname");
if (scalar(@result) == 0) {
return; # ok
} else {
return join("\n", @result);
}
}
1;
__END__
=head1 NAME
App::MadEye::Plugin::Agent::WriteDisk - is this disk writable?
=head1 SCHEMA
type: map
mapping:
target:
type: seq
required: yes
sequence:
- type: str
filename:
required: yes
type: str
=head1 AUTHORS
Tokuhiro Matsuno
=head1 SEE ALSO
L<pgrep>, L<App::MadEye>