summaryrefslogtreecommitdiffstats
path: root/Monitoring/plugins/check_mem.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Monitoring/plugins/check_mem.pl')
-rwxr-xr-xMonitoring/plugins/check_mem.pl263
1 files changed, 0 insertions, 263 deletions
diff --git a/Monitoring/plugins/check_mem.pl b/Monitoring/plugins/check_mem.pl
deleted file mode 100755
index 99e2b1f7..00000000
--- a/Monitoring/plugins/check_mem.pl
+++ /dev/null
@@ -1,263 +0,0 @@
-#!/usr/bin/perl -w
-# $Id: check_mem.pl 2 2002-02-28 06:42:51Z egalstad $
-
-# Original script stolen from:
-# check_mem.pl Copyright (C) 2000 Dan Larsson <dl@tyfon.net>
-# hacked by
-# Justin Ellison <justin@techadvise.com>
-#
-# This program is free software; you can redistribute it and/or
-# modify it under the terms of the GNU General Public License
-# as published by the Free Software Foundation; either version 2
-# of the License, or (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty
-# of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# you should have received a copy of the GNU General Public License
-# along with this program (or with Nagios); if not, write to the
-# Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-# Boston, MA 02111-1307, USA
-
-# Tell Perl what we need to use
-use strict;
-use Getopt::Std;
-
-#TODO - Convert to Nagios::Plugin
-#TODO - Use an alarm
-
-# Predefined exit codes for Nagios
-use vars qw($opt_c $opt_f $opt_u $opt_w $opt_C $opt_v %exit_codes);
-%exit_codes = ('UNKNOWN' ,-1,
- 'OK' , 0,
- 'WARNING' , 1,
- 'CRITICAL', 2,
- );
-
-# Get our variables, do our checking:
-init();
-
-# Get the numbers:
-my ($free_memory_kb,$used_memory_kb,$caches_kb) = get_memory_info();
-print "$free_memory_kb Free\n$used_memory_kb Used\n$caches_kb Cache\n" if ($opt_v);
-
-if ($opt_C) { #Do we count caches as free?
- $used_memory_kb -= $caches_kb;
- $free_memory_kb += $caches_kb;
-}
-
-# Round to the nearest KB
-$free_memory_kb = sprintf('%d',$free_memory_kb);
-$used_memory_kb = sprintf('%d',$used_memory_kb);
-$caches_kb = sprintf('%d',$caches_kb);
-
-# Tell Nagios what we came up with
-tell_nagios($used_memory_kb,$free_memory_kb,$caches_kb);
-
-
-sub tell_nagios {
- my ($used,$free,$caches) = @_;
-
- # Calculate Total Memory
- my $total = $free + $used;
- print "$total Total\n" if ($opt_v);
-
- my $perfdata = "|TOTAL=${total}KB;;;; USED=${used}KB;;;; FREE=${free}KB;;;; CACHES=${caches}KB;;;;";
-
- if ($opt_f) {
- my $percent = sprintf "%.1f", ($free / $total * 100);
- if ($percent <= $opt_c) {
- finish("CRITICAL - $percent% ($free kB) free!$perfdata",$exit_codes{'CRITICAL'});
- }
- elsif ($percent <= $opt_w) {
- finish("WARNING - $percent% ($free kB) free!$perfdata",$exit_codes{'WARNING'});
- }
- else {
- finish("OK - $percent% ($free kB) free.$perfdata",$exit_codes{'OK'});
- }
- }
- elsif ($opt_u) {
- my $percent = sprintf "%.1f", ($used / $total * 100);
- if ($percent >= $opt_c) {
- finish("CRITICAL - $percent% ($used kB) used!$perfdata",$exit_codes{'CRITICAL'});
- }
- elsif ($percent >= $opt_w) {
- finish("WARNING - $percent% ($used kB) used!$perfdata",$exit_codes{'WARNING'});
- }
- else {
- finish("OK - $percent% ($used kB) used.$perfdata",$exit_codes{'OK'});
- }
- }
-}
-
-# Show usage
-sub usage() {
- print "\ncheck_mem.pl v1.0 - Nagios Plugin\n\n";
- print "usage:\n";
- print " check_mem.pl -<f|u> -w <warnlevel> -c <critlevel>\n\n";
- print "options:\n";
- print " -f Check FREE memory\n";
- print " -u Check USED memory\n";
- print " -C Count OS caches as FREE memory\n";
- print " -w PERCENT Percent free/used when to warn\n";
- print " -c PERCENT Percent free/used when critical\n";
- print "\nCopyright (C) 2000 Dan Larsson <dl\@tyfon.net>\n";
- print "check_mem.pl comes with absolutely NO WARRANTY either implied or explicit\n";
- print "This program is licensed under the terms of the\n";
- print "GNU General Public License (check source code for details)\n";
- exit $exit_codes{'UNKNOWN'};
-}
-
-sub get_memory_info {
- my $used_memory_kb = 0;
- my $free_memory_kb = 0;
- my $total_memory_kb = 0;
- my $caches_kb = 0;
-
- my $uname;
- if ( -e '/usr/bin/uname') {
- $uname = `/usr/bin/uname -a`;
- }
- elsif ( -e '/bin/uname') {
- $uname = `/bin/uname -a`;
- }
- else {
- die "Unable to find uname in /usr/bin or /bin!\n";
- }
- print "uname returns $uname" if ($opt_v);
- if ( $uname =~ /Linux/ ) {
- my @meminfo = `/bin/cat /proc/meminfo`;
- foreach (@meminfo) {
- chomp;
- if (/^Mem(Total|Free):\s+(\d+) kB/) {
- my $counter_name = $1;
- if ($counter_name eq 'Free') {
- $free_memory_kb = $2;
- }
- elsif ($counter_name eq 'Total') {
- $total_memory_kb = $2;
- }
- }
- elsif (/^(Buffers|Cached):\s+(\d+) kB/) {
- $caches_kb += $2;
- }
- }
- $used_memory_kb = $total_memory_kb - $free_memory_kb;
- }
- elsif ( $uname =~ /SunOS/ ) {
- eval "use Sun::Solaris::Kstat";
- if ($@) { #Kstat not available
- if ($opt_C) {
- print "You can't report on Solaris caches without Sun::Solaris::Kstat available!\n";
- exit $exit_codes{UNKNOWN};
- }
- my @vmstat = `/usr/bin/vmstat 1 2`;
- my $line;
- foreach (@vmstat) {
- chomp;
- $line = $_;
- }
- $free_memory_kb = (split(/ /,$line))[5] / 1024;
- my @prtconf = `/usr/sbin/prtconf`;
- foreach (@prtconf) {
- if (/^Memory size: (\d+) Megabytes/) {
- $total_memory_kb = $1 * 1024;
- }
- }
- $used_memory_kb = $total_memory_kb - $free_memory_kb;
-
- }
- else { # We have kstat
- my $kstat = Sun::Solaris::Kstat->new();
- my $phys_pages = ${kstat}->{unix}->{0}->{system_pages}->{physmem};
- my $free_pages = ${kstat}->{unix}->{0}->{system_pages}->{freemem};
- # We probably should account for UFS caching here, but it's unclear
- # to me how to determine UFS's cache size. There's inode_cache,
- # and maybe the physmem variable in the system_pages module??
- # In the real world, it looks to be so small as not to really matter,
- # so we don't grab it. If someone can give me code that does this,
- # I'd be glad to put it in.
- my $arc_size = (exists ${kstat}->{zfs} && ${kstat}->{zfs}->{0}->{arcstats}->{size}) ?
- ${kstat}->{zfs}->{0}->{arcstats}->{size} / 1024
- : 0;
- $caches_kb += $arc_size;
- my $pagesize = `pagesize`;
-
- $total_memory_kb = $phys_pages * $pagesize / 1024;
- $free_memory_kb = $free_pages * $pagesize / 1024;
- $used_memory_kb = $total_memory_kb - $free_memory_kb;
- }
- }
- elsif ( $uname =~ /AIX/ ) {
- my @meminfo = `/usr/bin/vmstat -v`;
- foreach (@meminfo) {
- chomp;
- if (/^\s*([0-9.]+)\s+(.*)/) {
- my $counter_name = $2;
- if ($counter_name eq 'memory pages') {
- $total_memory_kb = $1*4;
- }
- if ($counter_name eq 'free pages') {
- $free_memory_kb = $1*4;
- }
- if ($counter_name eq 'file pages') {
- $caches_kb = $1*4;
- }
- }
- }
- $used_memory_kb = $total_memory_kb - $free_memory_kb;
- }
- else {
- if ($opt_C) {
- print "You can't report on $uname caches!\n";
- exit $exit_codes{UNKNOWN};
- }
- my $command_line = `vmstat | tail -1 | awk '{print \$4,\$5}'`;
- chomp $command_line;
- my @memlist = split(/ /, $command_line);
-
- # Define the calculating scalars
- $used_memory_kb = $memlist[0]/1024;
- $free_memory_kb = $memlist[1]/1024;
- $total_memory_kb = $used_memory_kb + $free_memory_kb;
- }
- return ($free_memory_kb,$used_memory_kb,$caches_kb);
-}
-
-sub init {
- # Get the options
- if ($#ARGV le 0) {
- &usage;
- }
- else {
- getopts('c:fuCvw:');
- }
-
- # Shortcircuit the switches
- if (!$opt_w or $opt_w == 0 or !$opt_c or $opt_c == 0) {
- print "*** You must define WARN and CRITICAL levels!\n";
- &usage;
- }
- elsif (!$opt_f and !$opt_u) {
- print "*** You must select to monitor either USED or FREE memory!\n";
- &usage;
- }
-
- # Check if levels are sane
- if ($opt_w <= $opt_c and $opt_f) {
- print "*** WARN level must not be less than CRITICAL when checking FREE memory!\n";
- &usage;
- }
- elsif ($opt_w >= $opt_c and $opt_u) {
- print "*** WARN level must not be greater than CRITICAL when checking USED memory!\n";
- &usage;
- }
-}
-
-sub finish {
- my ($msg,$state) = @_;
- print "$msg\n";
- exit $state;
-}