Changeset cab0e0f3daabfa75635eddb0146bda858df7e2ad
- Timestamp:
- 05/24/08 03:02:50
(5 years ago)
- Author:
- Theo Schlossnagle <jesus@omniti.com>
- git-committer:
- Theo Schlossnagle <jesus@omniti.com> 1211598170 +0000
- git-parent:
[78cf7c4b0e67e42f6a8a05ff4c4bb0dbd09cdb0e]
- git-author:
- Theo Schlossnagle <jesus@omniti.com> 1211598170 +0000
- Message:
fix them up to be number-consistent
git-svn-id: https://labs.omniti.com/resmon/trunk@114 8c0face9-b7db-6ec6-c4b3-d5f7145c7d55
-
Files:
-
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
| r748aca8 |
rcab0e0f |
|
| 47 | 47 | return($arg->set_status("OK($actives leases)")); |
|---|
| 48 | 48 | }elsif ($actives < $crit) { |
|---|
| 49 | | return($arg->set_status("WARN($actives leases > $warn)")); |
|---|
| | 49 | return($arg->set_status("WARN($actives leases)")); |
|---|
| 50 | 50 | }else { |
|---|
| 51 | | return($arg->set_status("BAD($actives leases > $crit!)")); |
|---|
| | 51 | return($arg->set_status("BAD($actives leases)")); |
|---|
| 52 | 52 | } |
|---|
| 53 | 53 | }; |
|---|
| r748aca8 |
rcab0e0f |
|
| 22 | 22 | return $arg->set_status("OK($1% full)"); |
|---|
| 23 | 23 | } |
|---|
| 24 | | return $arg->set_status("BAD(no data)"); |
|---|
| | 24 | return $arg->set_status("BAD(0 -- no data)"); |
|---|
| 25 | 25 | } |
|---|
| 26 | 26 | 1; |
|---|
| r748aca8 |
rcab0e0f |
|
| 10 | 10 | my @statinfo = stat($file); |
|---|
| 11 | 11 | my $age = time() - $statinfo[9]; |
|---|
| 12 | | return $arg->set_status("BAD(too old $age seconds)") |
|---|
| | 12 | return $arg->set_status("BAD($age seconds, too old)") |
|---|
| 13 | 13 | if($arg->{maximum} && ($age > $arg->{maximum})); |
|---|
| 14 | | return $arg->set_status("BAD(too new $age seconds)") |
|---|
| | 14 | return $arg->set_status("BAD($age seconds, too new)") |
|---|
| 15 | 15 | if($arg->{minimum} && ($age > $arg->{minimum})); |
|---|
| 16 | | return $arg->set_status("OK($age)"); |
|---|
| | 16 | return $arg->set_status("OK($age seconds)"); |
|---|
| 17 | 17 | } |
|---|
| 18 | 18 | 1; |
|---|
| r748aca8 |
rcab0e0f |
|
| 12 | 12 | my $minsize = $arg->{minimum}; |
|---|
| 13 | 13 | my $maxsize = $arg->{maximum}; |
|---|
| 14 | | return $arg->set_status("BAD(too big, $size > $maxsize)") |
|---|
| | 14 | return $arg->set_status("BAD($size, too big)") |
|---|
| 15 | 15 | if($maxsize && ($size > $maxsize)); |
|---|
| 16 | | return $arg->set_status("BAD(too small, $size < $minsize)") |
|---|
| | 16 | return $arg->set_status("BAD($size, too small)") |
|---|
| 17 | 17 | if($minsize && ($size > $minsize)); |
|---|
| 18 | 18 | return $arg->set_status("OK($size)"); |
|---|
| r78cf7c4 |
rcab0e0f |
|
| 33 | 33 | my ($line) = grep(/$dir\s*/, split(/\n/, $output)); |
|---|
| 34 | 34 | if($line !~ /(\d+)%/) { |
|---|
| 35 | | return "BAD", "dir not mounted"; |
|---|
| | 35 | return "BAD", "0 dir not mounted"; |
|---|
| 36 | 36 | } |
|---|
| 37 | 37 | } |
|---|
| … | … | |
| 41 | 41 | chomp($output); |
|---|
| 42 | 42 | if ($output <= $filecount) { |
|---|
| 43 | | return "OK", "$output files over $minutes minutes"; |
|---|
| | 43 | return "OK", "$output files"; |
|---|
| 44 | 44 | } else { |
|---|
| 45 | | return "BAD", "$output files over $minutes minutes"; |
|---|
| | 45 | return "BAD", "$output files"; |
|---|
| 46 | 46 | } |
|---|
| 47 | 47 | } |
|---|
| rea47429 |
rcab0e0f |
|
| 32 | 32 | if( $total =~ /\s*$queue Queue:\s*(\d+).*/ ) { |
|---|
| 33 | 33 | if( $1 > $threshold ) { |
|---|
| 34 | | return "BAD", "$1 Messages $queue"; |
|---|
| | 34 | return "BAD", "$1 messages"; |
|---|
| 35 | 35 | } else { |
|---|
| 36 | | return "OK", "$1 Messages $queue"; |
|---|
| | 36 | return "OK", "$1 messages"; |
|---|
| 37 | 37 | } |
|---|
| 38 | 38 | } else { |
|---|
| 39 | | return "OK", "no messages for domain"; |
|---|
| | 39 | return "OK", "0"; |
|---|
| 40 | 40 | } |
|---|
| 41 | 41 | } else { |
|---|
| r748aca8 |
rcab0e0f |
|
| 15 | 15 | my $minsize = $arg->{minimum}; |
|---|
| 16 | 16 | my $maxsize = $arg->{maximum}; |
|---|
| 17 | | return $arg->set_status("BAD(too big, $size > $maxsize)") |
|---|
| | 17 | return $arg->set_status("BAD($size, too big)") |
|---|
| 18 | 18 | if($maxsize && ($size > $maxsize)); |
|---|
| 19 | | return $arg->set_status("BAD(too small, $size < $minsize)") |
|---|
| | 19 | return $arg->set_status("BAD($size, too small)") |
|---|
| 20 | 20 | if($minsize && ($size > $minsize)); |
|---|
| 21 | 21 | return $arg->set_status("OK($size)"); |
|---|
| r6f9fa4a |
rcab0e0f |
|
| 27 | 27 | $revision = $1; |
|---|
| 28 | 28 | } |
|---|
| 29 | | return $status, "rev:$revision"; |
|---|
| | 29 | return $status, "$revision"; |
|---|
| 30 | 30 | } |
|---|
| 31 | 31 | |
|---|
| r748aca8 |
rcab0e0f |
|
| 55 | 55 | my $lnow = timegm(@nn); |
|---|
| 56 | 56 | |
|---|
| 57 | | my $diff = $proc - $lnow; |
|---|
| 58 | | my @tsplit = splittime($diff,60,60,24,7); |
|---|
| | 57 | my $diff = $lnow - $proc; |
|---|
| | 58 | my @tsplit = splittime((0 - $diff),60,60,24,7); |
|---|
| 59 | 59 | |
|---|
| 60 | | if ($diff < -3600) |
|---|
| | 60 | if ($diff > 3600) |
|---|
| 61 | 61 | { |
|---|
| 62 | | return $arg->set_status( "BAD(pitr replay is $tsplit[2] hours, $tsplit[1] minutes behind)"); |
|---|
| | 62 | return $arg->set_status( "BAD($diff seconds behind)"); |
|---|
| 63 | 63 | } else { |
|---|
| 64 | | return $arg->set_status( "OK(pitr replay is $tsplit[2] hours, $tsplit[1] minutes behind)"); |
|---|
| | 64 | return $arg->set_status( "OK($diff seconds behind)"); |
|---|
| 65 | 65 | } |
|---|
| 66 | 66 | } |
|---|
| r07bfd3b |
rcab0e0f |
|
| 31 | 31 | return "OK", "$1% full"; |
|---|
| 32 | 32 | } |
|---|
| 33 | | return "BAD", "no data"; |
|---|
| | 33 | return "BAD", "0 no data"; |
|---|
| 34 | 34 | } |
|---|
| 35 | 35 | |
|---|