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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
package PINGDOMFETCH::Service;
use strict;
use warnings;
use PINGDOMFETCH::Config;
use PINGDOMFETCH::Display;
use PINGDOMFETCH::Result;
use PINGDOMFETCH::Utils;
our @ISA = ('PINGDOMFETCH::Display');
sub new {
my ( $class, %vals ) = @_;
my $self = bless \%vals, $class;
return $self;
}
sub acc {
my ( $self, $acc ) = @_;
$self->{result}->acc( $self, $acc ) if exists $self->{result};
return undef;
}
sub print {
my ($self) = @_;
my $config = $self->{config};
my $is_in_future = $config->bool('interval_is_in_future');
my $notify = $config->{notify};
my $avail_perc = do {
if ( exists $self->{result} ) {
}
else {
'';
}
};
my $str = do {
if ($is_in_future) {
sprintf(
"Service: %03.3f%%; %s (Best: %03.3f%%; Worst: %03.3f%%; Avgresponse: %dms)",
$self->{result}{avail_perc},
$self->{name},
$self->{result}{possible_avail_perc_best},
$self->{result}{possible_avail_perc_worst},
$self->{result}{avgresponse}
);
}
else {
sprintf(
"Service: %03.3f%%; %s (Avgresponse: %dms)",
$self->{result}{avail_perc},
$self->{name}, $self->{result}{avgresponse}
);
}
};
my @opts;
my $opts = $self->{opts};
my $opts_str = $config->get_opts_str($opts);
my $warning_less =
exists $self->{opts}{warning}
? $self->{opts}{warning}
: $config->get('warning.if.avail.is.less');
my $critical_less =
exists $self->{opts}{critical}
? $self->{opts}{critical}
: $config->get('critical.if.avail.is.less');
if ( $self->{result}{avail_perc} < $critical_less ) {
$self->critical( $str . $opts_str, $notify );
}
elsif ( $self->{result}{avail_perc} < $warning_less ) {
$self->warning( $str . $opts_str, $notify );
}
else {
$self->info( $str . $opts_str, $notify );
}
return undef;
}
sub print_full {
my ($self) = @_;
my $config = $self->{config};
$self->info("Service: $self->{name}");
$self->inc();
$self->{result}->print_full() if exists $self->{result};
$self->dec();
return undef;
}
1;
|
