version 1.5, 2009/11/19 21:35:32 |
version 1.7, 2015/03/25 03:19:28 |
|
|
my $NAGIOS_OUTPUT = 1; |
my $NAGIOS_OUTPUT = 1; |
|
|
my $LICENSE = <<'EOL'; |
my $LICENSE = <<'EOL'; |
Copyright (c) 2009 Andrew Fresh <andrew@afresh1.com> |
Copyright (c) 2009-2015 Andrew Fresh <andrew@afresh1.com> |
Permission to use, copy, modify, and distribute this software for any |
Permission to use, copy, modify, and distribute this software for any |
purpose with or without fee is hereby granted, provided that the above |
purpose with or without fee is hereby granted, provided that the above |
copyright notice and this permission notice appear in all copies. |
copyright notice and this permission notice appear in all copies. |
|
|
return 'State (' . $d . ') is not numeric'; |
return 'State (' . $d . ') is not numeric'; |
} |
} |
|
|
DIRECTION: foreach my $dir qw( low high ) { |
DIRECTION: foreach my $dir (qw( low high )) { |
if ( !$c->{$dir} ) { next DIRECTION; } |
if ( !$c->{$dir} ) { next DIRECTION; } |
|
|
my $check = $c->{$dir}; |
my $check = $c->{$dir}; |