From f948ceecba9b5f6cb0aef9aae6f6be18ba6feffe Mon Sep 17 00:00:00 2001 From: Ton Voon Date: Thu, 15 Jun 2006 09:11:54 +0000 Subject: is_set method to see if a range has been set git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/Nagios-Plugin/trunk@1429 f882894a-f735-0410-b71e-b25c423dba1c --- lib/Nagios/Plugin/Range.pm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) (limited to 'lib/Nagios/Plugin/Range.pm') diff --git a/lib/Nagios/Plugin/Range.pm b/lib/Nagios/Plugin/Range.pm index 3d6f613..c03001a 100644 --- a/lib/Nagios/Plugin/Range.pm +++ b/lib/Nagios/Plugin/Range.pm @@ -14,7 +14,7 @@ struct "Nagios::Plugin::Range" => { end => '$', start_infinity => '$', # TRUE / FALSE end_infinity => '$', # TRUE / FALSE - alert_on => '$', # OUTSIDE 0, INSIDE 1 + alert_on => '$', # OUTSIDE 0, INSIDE 1, not defined == range not set }; my $outside = 0; @@ -22,11 +22,17 @@ my $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 -- cgit v1.2.3-74-g34f1