Quentin Garnier
parent
5b6f281699
commit
9cdb109e8c
|
|
@ -39,6 +39,7 @@ use base qw(centreon::plugins::mode);
|
|||
|
||||
use strict;
|
||||
use warnings;
|
||||
use centreon::plugins::misc;
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
|
|
|
|||
|
|
@ -0,0 +1,279 @@
|
|||
################################################################################
|
||||
# Copyright 2005-2014 MERETHIS
|
||||
# Centreon is developped by : Julien Mathis and Romain Le Merlus under
|
||||
# GPL Licence 2.0.
|
||||
#
|
||||
# This program is free software; you can redistribute it and/or modify it under
|
||||
# the terms of the GNU General Public License as published by the Free Software
|
||||
# Foundation ; either version 2 of the License.
|
||||
#
|
||||
# This program is distributed in the hope that it will be useful, but WITHOUT ANY
|
||||
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A
|
||||
# PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU General Public License along with
|
||||
# this program; if not, see <http://www.gnu.org/licenses>.
|
||||
#
|
||||
# Linking this program statically or dynamically with other modules is making a
|
||||
# combined work based on this program. Thus, the terms and conditions of the GNU
|
||||
# General Public License cover the whole combination.
|
||||
#
|
||||
# As a special exception, the copyright holders of this program give MERETHIS
|
||||
# permission to link this program with independent modules to produce an executable,
|
||||
# regardless of the license terms of these independent modules, and to copy and
|
||||
# distribute the resulting executable under terms of MERETHIS choice, provided that
|
||||
# MERETHIS also meet, for each linked independent module, the terms and conditions
|
||||
# of the license of that module. An independent module is a module which is not
|
||||
# derived from this program. If you modify this program, you may extend this
|
||||
# exception to your version of the program, but you are not obliged to do so. If you
|
||||
# do not wish to do so, delete this exception statement from your version.
|
||||
#
|
||||
# For more information : contact@centreon.com
|
||||
# Authors : Quentin Garnier <qgarnier@merethis.com>
|
||||
#
|
||||
####################################################################################
|
||||
|
||||
package os::linux::local::mode::process;
|
||||
|
||||
use base qw(centreon::plugins::mode);
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
use centreon::plugins::misc;
|
||||
|
||||
my %state_map = (
|
||||
Z => 'zombie',
|
||||
X => 'dead',
|
||||
W => 'paging',
|
||||
T => 'stopped',
|
||||
S => 'InterrupibleSleep',
|
||||
R => 'running',
|
||||
D => 'UninterrupibleSleep'
|
||||
);
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
my $self = $class->SUPER::new(package => __PACKAGE__, %options);
|
||||
bless $self, $class;
|
||||
|
||||
$self->{version} = '1.0';
|
||||
$options{options}->add_options(arguments =>
|
||||
{
|
||||
"hostname:s" => { name => 'hostname' },
|
||||
"remote" => { name => 'remote' },
|
||||
"ssh-option:s@" => { name => 'ssh_option' },
|
||||
"ssh-path:s" => { name => 'ssh_path' },
|
||||
"ssh-command:s" => { name => 'ssh_command', default => 'ssh' },
|
||||
"timeout:s" => { name => 'timeout', default => 30 },
|
||||
"sudo" => { name => 'sudo' },
|
||||
"command:s" => { name => 'command', default => 'ps' },
|
||||
"command-path:s" => { name => 'command_path' },
|
||||
"command-options:s" => { name => 'command_options', default => '-e -o etime,pid,ppid,state,comm,args -w 2>&1' },
|
||||
"warning:s" => { name => 'warning' },
|
||||
"critical:s" => { name => 'critical' },
|
||||
"warning-time:s" => { name => 'warning_time' },
|
||||
"critical-time:s" => { name => 'critical_time' },
|
||||
"filter-command:s" => { name => 'filter_command' },
|
||||
"filter-arg:s" => { name => 'filter_arg' },
|
||||
"filter-state:s" => { name => 'filter_state' },
|
||||
});
|
||||
$self->{result} = {};
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub check_options {
|
||||
my ($self, %options) = @_;
|
||||
$self->SUPER::init(%options);
|
||||
if (($self->{perfdata}->threshold_validate(label => 'warning', value => $self->{option_results}->{warning})) == 0) {
|
||||
$self->{output}->add_option_msg(short_msg => "Wrong warning threshold '" . $self->{option_results}->{warning} . "'.");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
if (($self->{perfdata}->threshold_validate(label => 'critical', value => $self->{option_results}->{critical})) == 0) {
|
||||
$self->{output}->add_option_msg(short_msg => "Wrong critical threshold '" . $self->{option_results}->{critical} . "'.");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
if (($self->{perfdata}->threshold_validate(label => 'warning-time', value => $self->{option_results}->{warning_time})) == 0) {
|
||||
$self->{output}->add_option_msg(short_msg => "Wrong warning-time threshold '" . $self->{option_results}->{warning_time} . "'.");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
if (($self->{perfdata}->threshold_validate(label => 'critical-time', value => $self->{option_results}->{critical_time})) == 0) {
|
||||
$self->{output}->add_option_msg(short_msg => "Wrong critical-time threshold '" . $self->{option_results}->{critical_time} . "'.");
|
||||
$self->{output}->option_exit();
|
||||
}
|
||||
}
|
||||
|
||||
sub parse_output {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $stdout = centreon::plugins::misc::execute(output => $self->{output},
|
||||
options => $self->{option_results},
|
||||
sudo => $self->{option_results}->{sudo},
|
||||
command => $self->{option_results}->{command},
|
||||
command_path => $self->{option_results}->{command_path},
|
||||
command_options => $self->{option_results}->{command_options});
|
||||
my @lines = split /\n/, $stdout;
|
||||
# Header to manage output
|
||||
# ELAPSED PID PPID S COMMAND COMMAND
|
||||
my $line = shift @lines;
|
||||
$line =~ /^(\s*?\S+\s*?\S+\s*?\S+\s*?\S+\s*?)(\S+\s*?)\S+/;
|
||||
my ($pos1, $pos2) = (length($1), length($1) + length($2));
|
||||
foreach my $line (@lines) {
|
||||
$line =~ /^(\s*?\S+\s*?)(\S+\s*?)(\S+\s*?)(\S+\s*?)/;
|
||||
my ($elapsed, $pid, $ppid, $state) = ($1, $2, $3, $4);
|
||||
my $cmd = substr($line, $pos1, $pos2 - $pos1);
|
||||
my $args = substr($line, $pos2);
|
||||
|
||||
$self->{result}->{centreon::plugins::misc::trim($pid)} = {ppid => centreon::plugins::misc::trim($ppid),
|
||||
state => centreon::plugins::misc::trim($state),
|
||||
elapsed => centreon::plugins::misc::trim($elapsed),
|
||||
cmd => centreon::plugins::misc::trim($cmd),
|
||||
args => centreon::plugins::misc::trim($args)};
|
||||
}
|
||||
}
|
||||
|
||||
sub check_time {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
my $time = $self->{result}->{$options{pid}}->{elapsed};
|
||||
# Format: [[dd-]hh:]mm:ss
|
||||
my @values = split /:/, $time;
|
||||
my ($seconds, $min, $lpart) = (pop @values, pop @values, pop @values);
|
||||
my $total_seconds_elapsed = $seconds + ($min * 60);
|
||||
if (defined($lpart)) {
|
||||
my ($day, $hour) = split /-/, $lpart;
|
||||
if (defined($hour)) {
|
||||
$total_seconds_elapsed += ($hour * 60 * 60);
|
||||
}
|
||||
if (defined($day)) {
|
||||
$total_seconds_elapsed += ($day * 86400);
|
||||
}
|
||||
}
|
||||
|
||||
my $exit = $self->{perfdata}->threshold_check(value => $total_seconds_elapsed, threshold => [ { label => 'critical-time', 'exit_litteral' => 'critical' }, { label => 'warning-time', exit_litteral => 'warning' } ]);
|
||||
if (!$self->{output}->is_status(value => $exit, compare => 'ok', litteral => 1)) {
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => "Time issue for process " . $self->{result}->{$options{pid}}->{cmd});
|
||||
}
|
||||
}
|
||||
|
||||
sub run {
|
||||
my ($self, %options) = @_;
|
||||
|
||||
$self->parse_output();
|
||||
|
||||
my $num_processes_match = 0;
|
||||
foreach my $pid (keys %{$self->{result}}) {
|
||||
next if (defined($self->{option_results}->{filter_command}) && $self->{option_results}->{filter_command} ne '' &&
|
||||
$self->{result}->{$pid}->{cmd} !~ /$self->{option_results}->{filter_command}/);
|
||||
next if (defined($self->{option_results}->{filter_arg}) && $self->{option_results}->{filter_arg} ne '' &&
|
||||
$self->{result}->{$pid}->{args} !~ /$self->{option_results}->{filter_arg}/);
|
||||
next if (defined($self->{option_results}->{filter_state}) && $self->{option_results}->{filter_state} ne '' &&
|
||||
$state_map{$self->{result}->{$pid}->{state}} !~ /$self->{option_results}->{filter_state}/i);
|
||||
|
||||
$self->{output}->output_add(long_msg => 'Process: [command => ' . $self->{result}->{$pid}->{cmd} .
|
||||
'] [arg => ' . $self->{result}->{$pid}->{args} .
|
||||
'] [state => ' . $state_map{$self->{result}->{$pid}->{state}} . ']');
|
||||
$self->check_time(pid => $pid);
|
||||
$num_processes_match++;
|
||||
}
|
||||
|
||||
my $exit = $self->{perfdata}->threshold_check(value => $num_processes_match, threshold => [ { label => 'critical', 'exit_litteral' => 'critical' }, { label => 'warning', exit_litteral => 'warning' } ]);
|
||||
$self->{output}->output_add(severity => $exit,
|
||||
short_msg => "Number of current processes running: $num_processes_match");
|
||||
$self->{output}->perfdata_add(label => 'nbproc',
|
||||
value => $num_processes_match,
|
||||
warning => $self->{perfdata}->get_perfdata_for_output(label => 'warning'),
|
||||
critical => $self->{perfdata}->get_perfdata_for_output(label => 'critical'),
|
||||
min => 0);
|
||||
|
||||
$self->{output}->display();
|
||||
$self->{output}->exit();
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
__END__
|
||||
|
||||
=head1 MODE
|
||||
|
||||
Check linux processes.
|
||||
Can filter on commands, arguments and states.
|
||||
|
||||
=over 8
|
||||
|
||||
=item B<--remote>
|
||||
|
||||
Execute command remotely in 'ssh'.
|
||||
|
||||
=item B<--hostname>
|
||||
|
||||
Hostname to query (need --remote).
|
||||
|
||||
=item B<--ssh-option>
|
||||
|
||||
Specify multiple options like the user (example: --ssh-option='-l=centreon-engine" --ssh-option='-p=52").
|
||||
|
||||
=item B<--ssh-path>
|
||||
|
||||
Specify ssh command path (default: none)
|
||||
|
||||
=item B<--ssh-command>
|
||||
|
||||
Specify ssh command (default: 'ssh'). Useful to use 'plink'.
|
||||
|
||||
=item B<--timeout>
|
||||
|
||||
Timeout in seconds for the command (Default: 30).
|
||||
|
||||
=item B<--sudo>
|
||||
|
||||
Use 'sudo' to execute the command.
|
||||
|
||||
=item B<--command>
|
||||
|
||||
Command to get information (Default: 'ps').
|
||||
Can be changed if you have output in a file.
|
||||
|
||||
=item B<--command-path>
|
||||
|
||||
Command path (Default: none).
|
||||
|
||||
=item B<--command-options>
|
||||
|
||||
Command options (Default: '-e -o etime,pid,ppid,state,comm,args -w 2>&1').
|
||||
|
||||
=item B<--warning>
|
||||
|
||||
Threshold warning (in absolute of processes count. After filters).
|
||||
|
||||
=item B<--critical>
|
||||
|
||||
Threshold critical (in absolute of processes count. After filters).
|
||||
|
||||
=item B<--warning-time>
|
||||
|
||||
Threshold warning (in seconds).
|
||||
On each processes filtered.
|
||||
|
||||
=item B<--critical-time>
|
||||
|
||||
Threshold critical (in seconds).
|
||||
On each processes filtered.
|
||||
|
||||
=item B<--filter-command>
|
||||
|
||||
Filter process commands (regexp can be used).
|
||||
|
||||
=item B<--filter-arg>
|
||||
|
||||
Filter process arguments (regexp can be used).
|
||||
|
||||
=item B<--filter-state>
|
||||
|
||||
Filter process states (regexp can be used).
|
||||
You can use: 'zombie', 'dead', 'paging', 'stopped',
|
||||
'InterrupibleSleep', 'running', 'UninterrupibleSleep'.
|
||||
|
||||
=back
|
||||
|
||||
=cut
|
||||
|
|
@ -39,6 +39,7 @@ use base qw(centreon::plugins::mode);
|
|||
|
||||
use strict;
|
||||
use warnings;
|
||||
use centreon::plugins::misc;
|
||||
|
||||
sub new {
|
||||
my ($class, %options) = @_;
|
||||
|
|
|
|||
|
|
@ -54,6 +54,7 @@ sub new {
|
|||
'load' => 'os::linux::local::mode::loadaverage',
|
||||
'list-storages' => 'os::linux::local::mode::liststorages',
|
||||
'memory' => 'os::linux::local::mode::memory',
|
||||
'process' => 'os::linux::local::mode::process',
|
||||
'storage' => 'os::linux::local::mode::storage',
|
||||
'swap' => 'os::linux::local::mode::swap',
|
||||
);
|
||||
|
|
|
|||
Loading…
Reference in New Issue