From 2c6651034f76e2bccb549a867485f8fabbf07cb1 Mon Sep 17 00:00:00 2001
From: Ton Voon <tonvoon@users.sourceforge.net>
Date: Thu, 8 Jun 2006 12:27:44 +0000
Subject: Initial revision

git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/Nagios-Plugin/trunk@1419 f882894a-f735-0410-b71e-b25c423dba1c
---
 lib/Nagios/Plugin/Performance.pm | 119 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 119 insertions(+)
 create mode 100644 lib/Nagios/Plugin/Performance.pm

(limited to 'lib/Nagios/Plugin/Performance.pm')

diff --git a/lib/Nagios/Plugin/Performance.pm b/lib/Nagios/Plugin/Performance.pm
new file mode 100644
index 0000000..eee1bee
--- /dev/null
+++ b/lib/Nagios/Plugin/Performance.pm
@@ -0,0 +1,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
-- 
cgit v1.2.3-74-g34f1