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
106
107
108
109
110
111
112
113
114
115
116
117
118
119
|
package Nagios::Plugin::Performance;
use 5.008004;
use strict;
use warnings;
use Carp;
use Nagios::Plugin::Threshold;
use Class::Struct;
struct "Nagios::Plugin::Performance" => {
label => '$',
value => '$',
uom => '$',
threshold => 'Nagios::Plugin::Threshold',
min => '$',
max => '$',
};
sub perfoutput {
my $self = shift;
my $output = $self->label."=".$self->value.$self->uom.";".$self->threshold->warning.";".$self->threshold->critical;
return $output;
}
sub _parse {
my $class = shift;
my $string = shift;
my $p = $class->new;
$string =~ s/^([^=]+)=([\d\.]+)(\w*);?([\d\.]+)?;?([\d\.]+)?;?([\d\.]+)?;?([\d\.]+)? *//;
return undef unless ($1 && $2);
$p->label($1);
$p->value($2+0);
$p->uom($3);
$p->threshold(Nagios::Plugin::Threshold->set_thresholds(warning => $4, critical => $5));
$p->min($6);
$p->max($7);
return ($p, $string);
}
sub parse_perfstring {
my ($class, $perfstring) = @_;
my @perfs;
my $obj;
while ($perfstring) {
($obj, $perfstring) = $class->_parse($perfstring);
return undef unless $obj;
push @perfs, $obj;
}
return undef unless @perfs;
return @perfs;
}
1;
__END__
=head1 NAME
Nagios::Plugin::Performance - Performance information in a perl object
=head1 SYNOPSIS
use Nagios::Plugin::Performance;
@p = Nagios::Plugin::Performance->parse_perfstring("/=382MB;15264;15269;; /var=218MB;9443;9448");
print "1st label = ", $p[0]->label, $/;
print "1st uom = ", $p[0]->uom, $/;
print "2nd crit = ", $p[1]->threshold->critical, $/;
=head1 DESCRIPTION
Handles common Nagios Plugin performance data. This has a public interface because it could be
used by performance graphing routines, such as nagiostat (http://nagiostat.sourceforge.net),
perfparse (http://perfparse.sourceforge.net), nagiosgraph (http://nagiosgraph.sourceforge.net) or
NagiosGrapher (http://www.nagiosexchange.org/NagiosGrapher.84.0.html).
Once the performance string has been parsed, you can query the label, value, uom, or thresholds.
=head1 CLASS METHODS
=over 4
=item Nagios::Plugin::Performance->parse_perfstring($string)
Returns an array of Nagios::Plugin::Performance objects based on the string entered.
If there is an error parsing the string, undef is returned.
=head1 OBJECT METHODS
=item label, value, uom, min, max
These all return scalars. min and max are not well supported yet.
=item threshold
This returns a Nagios::Plugin::Threshold object.
=back
=head1 SEE ALSO
Nagios::Plugin for information about versioning.
http://nagiosplug.sourceforge.net
=head1 AUTHOR
Ton Voon, E<lt>ton.voon@altinity.comE<gt>
=head1 COPYRIGHT AND LICENSE
Copyright (C) 2006 by Altinity Limited
This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.4 or,
at your option, any later version of Perl 5 you may have available.
=cut
|
