From b418181dfe80dd75169b6e8a619ac1932155dea2 Mon Sep 17 00:00:00 2001
From: Sven Nierlein <sven@nierlein.de>
Date: Mon, 20 Jan 2014 00:54:34 +0100
Subject: renamed module into Monitoring::Plugin

since the complete monitoring team has been renamed, we
also rename this module.

Signed-off-by: Sven Nierlein <sven@nierlein.de>
---
 lib/Monitoring/Plugin/Range.pm | 169 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 169 insertions(+)
 create mode 100644 lib/Monitoring/Plugin/Range.pm

(limited to 'lib/Monitoring/Plugin/Range.pm')

diff --git a/lib/Monitoring/Plugin/Range.pm b/lib/Monitoring/Plugin/Range.pm
new file mode 100644
index 0000000..af19577
--- /dev/null
+++ b/lib/Monitoring/Plugin/Range.pm
@@ -0,0 +1,169 @@
+package Monitoring::Plugin::Range;
+
+use 5.006;
+
+use strict;
+use warnings;
+
+use Carp;
+use base qw(Class::Accessor::Fast);
+__PACKAGE__->mk_accessors(
+    qw(start end start_infinity end_infinity alert_on)
+);
+
+use Monitoring::Plugin::Functions qw(:DEFAULT $value_re);
+our ($VERSION) = $Monitoring::Plugin::Functions::VERSION;
+
+use overload
+        'eq' => sub { shift->_stringify },
+        '""' => sub { shift->_stringify };
+
+# alert_on constants (undef == range not set)
+use constant OUTSIDE => 0;
+use constant INSIDE => 1;
+
+sub _stringify {
+	my $self = shift;
+	return "" unless $self->is_set;
+	return (($self->alert_on) ? "@" : "") .
+		(($self->start_infinity == 1) ? "~:" : (($self->start == 0)?"":$self->start.":")) .
+		(($self->end_infinity == 1) ? "" : $self->end);
+}
+
+sub is_set {
+	my $self = shift;
+	(! defined $self->alert_on) ? 0 : 1;
+}
+
+sub _set_range_start {
+	my ($self, $value) = @_;
+	$self->start($value+0);	# Force scalar into number
+	$self->start_infinity(0);
+}
+
+sub _set_range_end {
+	my ($self, $value) = @_;
+	$self->end($value+0);	# Force scalar into number
+	$self->end_infinity(0);
+}
+
+# Returns a N::P::Range object if the string is a conforms to a Monitoring Plugin range string, otherwise null
+sub parse_range_string {
+	my ($class, $string) = @_;
+	my $valid = 0;
+	my $range = $class->new( start => 0, start_infinity => 0, end => 0, end_infinity => 1, alert_on => OUTSIDE);
+
+	$string =~ s/\s//g;  # strip out any whitespace
+	# check for valid range definition
+	unless ( $string =~ /[\d~]/ && $string =~ m/^\@?($value_re|~)?(:($value_re)?)?$/ ) {
+	    carp "invalid range definition '$string'";
+	    return undef;
+	}
+
+	if ($string =~ s/^\@//) {
+	    $range->alert_on(INSIDE);
+	}
+
+	if ($string =~ s/^~//) {  # '~:x'
+	    $range->start_infinity(1);
+	}
+	if ( $string =~ m/^($value_re)?:/ ) {     # '10:'
+		my $start = $1;
+	    $range->_set_range_start($start) if defined $start;
+		$range->end_infinity(1);  # overridden below if there's an end specified
+	    $string =~ s/^($value_re)?://;
+	    $valid++;
+	}
+	if ($string =~ /^($value_re)$/) {   # 'x:10' or '10'
+	    $range->_set_range_end($string);
+	    $valid++;
+	}
+
+	if ($valid && ($range->start_infinity == 1 || $range->end_infinity == 1 || $range->start <= $range->end)) {
+		return $range;
+	}
+	return undef;
+}
+
+# Returns 1 if an alert should be raised, otherwise 0
+sub check_range {
+	my ($self, $value) = @_;
+	my $false = 0;
+	my $true = 1;
+	if ($self->alert_on == INSIDE) {
+		$false = 1;
+		$true = 0;
+	}
+	if ($self->end_infinity == 0 && $self->start_infinity == 0) {
+		if ($self->start <= $value && $value <= $self->end) {
+			return $false;
+		} else {
+			return $true;
+		}
+	} elsif ($self->start_infinity == 0 && $self->end_infinity == 1) {
+		if ( $value >= $self->start ) {
+			return $false;
+		} else {
+			return $true;
+		}
+	} elsif ($self->start_infinity == 1 && $self->end_infinity == 0) {
+		if ($value <= $self->end) {
+			return $false;
+		} else {
+			return $true;
+		}
+	} else {
+		return $false;
+	}
+}
+
+# Constructor - map args to hashref for SUPER
+sub new
+{
+    shift->SUPER::new({ @_ });
+}
+
+1;
+
+__END__
+
+=head1 NAME
+
+Monitoring::Plugin::Range - class for handling Monitoring::Plugin range data.
+
+=head1 SYNOPSIS
+
+    # NB: This is an internal Monitoring::Plugin class.
+    # See Monitoring::Plugin itself for public interfaces.
+
+    # Instantiate an empty range object
+    $r = Monitoring::Plugin::Range->new;
+
+    # Instantiate by parsing a standard nagios range string
+    $r = Monitoring::Plugin::Range->parse_range_string( $range_str );
+
+    # Returns true if the range is defined/non-empty
+    $r->is_set;
+
+    # Returns true if $value matches range, false otherwise
+    $r->check_range($value);
+
+
+=head1 DESCRIPTION
+
+Internal Monitoring::Plugin class for handling common range data. See
+Monitoring::Plugin for public interfaces.
+
+=head1 AUTHOR
+
+This code is maintained by the Monitoring Plugin Development Team: see
+https://monitoring-plugins.org
+
+=head1 COPYRIGHT AND LICENSE
+
+Copyright (C) 2006-2014 Monitoring Plugin Development Team
+
+This library is free software; you can redistribute it and/or modify
+it under the same terms as Perl itself.
+
+=cut
-- 
cgit v1.2.3-74-g34f1