/usr/share/perl5/NagiosGrapher/Hooks/RRDUpdateTest.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 | package NagiosGrapher::Hooks::RRDUpdateTest;
use NagiosGrapher::Hooks::Generic;
use vars qw (
@ISA
);
@ISA = ('NagiosGrapher::Hooks::Generic');
sub init {
$self = shift;
$self->SetTypes (
'before_rrdupdate',
);
return $self->SUPER::init(@_);
}
sub prepare {
my $self = shift;
use Data::Dumper;
$self->print_log("Service: ". $self->Service);
return 1;
}
sub commit {
my $self = shift;
my $values = $self->Values;
foreach (keys %{ $self->{Values} }) {
#if ($_ =~ m/user/i) {
# $self->{Values}->{$_} = 10;
#}
}
return 1;
}
sub cleanup {
my $self = shift;
$self->print_log('clean up ...');
return 1;
}
1;
|