/usr/share/perl5/NagiosGrapher/Hooks/ImageGraphTest.pm is in nagiosgrapher 1.7.1-3.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 | package NagiosGrapher::Hooks::ImageGraphTest;
use NagiosGrapher::Hooks::Generic;
use vars qw (
@ISA
);
@ISA = ('NagiosGrapher::Hooks::Generic');
sub init {
$self = shift;
$self->SetTypes (
'before_imagegraph',
'before_imagemultigraph'
);
return $self->SUPER::init(@_);
}
sub prepare {
my $self = shift;
my $values = $self->Values;
if ($values->{'params'}->{'only-graph'} eq 'true') {
return;
}
else {
return 1;
}
}
sub commit {
my $self = shift;
my $values = $self->Values;
# use Data::Dumper;
# $self->print_log(
# Dumper($values)
# );
$values->{vertical} .= ' Mod1 is running ...';
return 1;
}
sub cleanup {
my $self = shift;
return 1;
}
1;
|