diff -r d9cd7d16a0f4 -r 69e41ec7fccc check_mem.pl
--- a/check_mem.pl	Tue Mar 31 09:25:16 2015 +0200
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,173 +0,0 @@
-#! /usr/bin/perl -w
-
-#    Copyright (C) 2011  Christian Arnold
-#
-#    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 3 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.  If not, see <http://www.gnu.org/licenses/>.
-#
-#    Christian Arnold <arnold@schlittermann.de>
-
-use 5.010;
-use strict;
-use File::Basename;
-use Getopt::Long;
-use Pod::Usage;
-
-delete @ENV{ grep /^LC_/ => keys %ENV };
-$ENV{LANG}   = "C";
-$ENV{LC_ALL} = "C";
-
-sub version($$);
-sub get_meminfo();
-sub report($$$$);
-
-my %ERRORS = (
-    OK        => 0,
-    WARNING   => 1,
-    CRITICAL  => 2,
-    UNKNOWN   => 3,
-    DEPENDENT => 4
-);
-
-my $ME      = basename $0;
-my $NAME    = "MEM";
-my $VERSION = "0.3";
-
-my %opt = (
-    warning  => 70,
-    critical => 90
-);
-
-MAIN: {
-    Getopt::Long::Configure('bundling');
-    GetOptions(
-        "w|warning=i"  => \$opt{warning},
-        "c|critical=i" => \$opt{critical},
-        "h|help" => sub { pod2usage( -verbose => 1, -exitval => $ERRORS{OK} ) },
-        "m|man" => sub { pod2usage( -verbose => 2, -exitval => $ERRORS{OK} ) },
-        "V|version" => sub { version( $ME, $VERSION ); exit $ERRORS{OK}; }
-    ) or pod2usage( -verbose => 1, -exitval => $ERRORS{CRITICAL} );
-
-    my ( $percent, $total, $used, $free ) = get_meminfo();
-    report( $percent, $total, $used, $free );
-}
-
-sub report($$$$) {
-    my ( $percent, $total, $used, $free ) = @_;
-
-    if ( $percent >= $opt{critical} ) {
-        say
-"$NAME CRITICAL: $percent\% used memory - total: $total MB, used: $used MB, free: $free MB|MemUsed=$percent\%;$opt{warning};$opt{critical}";
-        exit $ERRORS{CRITICAL};
-    }
-    if ( $percent >= $opt{warning} ) {
-        say
-"$NAME WARNING: $percent\% used memory - total: $total MB, used: $used MB, free: $free MB|MemUsed=$percent\%;$opt{warning};$opt{critical}";
-        exit $ERRORS{WARNING};
-    }
-    say
-"$NAME OK: $percent\% used memory - total: $total MB, used: $used MB, free: $free MB|MemUsed=$percent\%;$opt{warning};$opt{critical}";
-    exit $ERRORS{OK};
-}
-
-sub get_meminfo() {
-    my ( $total, $used, $free, $percent );
-    my @cmd = ( '/usr/bin/free', '-m' );
-
-    foreach (`/usr/bin/free -m`) {
-        /^Mem:\s+(?<total>[\d.]+)/
-          and $total = $+{total}
-          and next;
-        /^.+buffers\/cache:\s+(?<used>[\d.]+)/
-          and $used = $+{used}
-          and last;
-    }
-
-    $free = ( $total - $used );
-    $percent = ( sprintf( "%.0f", ( $used / $total ) * 100 ) );
-
-    return ( $percent, $total, $used, $free );
-}
-
-sub version($$) {
-    my ( $progname, $version ) = @_;
-
-    say <<_VERSION;
-$progname version $version
-Copyright (C) 2011 by Christian Arnold and Schlittermann internet & unix support.
-
-$ME comes with ABSOLUTELY NO WARRANTY. This is free software,
-and you are welcome to redistribute it under certain conditions.
-See the GNU General Public Licence for details.
-_VERSION
-}
-
-__END__
-
-=head1 NAME
-
-check_mem - nagios plugin to check memory usage
-
-=head1 SYNOPSIS
-
-check_mem [B<-w>|B<--warning> I<integer>] [B<-c>|B<--critical> I<integer>]
-
-check_mem [B<-h>|B<--help>]
-
-check_mem [B<-m>|B<--man>]
-
-check_mem [B<-v>|B<--version>]
-
-=head1 OPTIONS
-
-=over
-
-=item B<-w>|B<--warning> I<integer>
-
-Exit with WARNING status if memory usage in percent exceeds this value (default: 70)
-
-=item B<-c>|B<--critical> I<integer>
-
-Exit with CRITICAL status if memory usage in percent exceeds this value (default: 90)
-
-=item B<-h>|B<--help>
-
-Print detailed help screen.
-
-=item B<-m>|B<--man>
-
-Print manual page.
-
-=item B<-V>|B<--version>
-
-Print version information.
-
-=back
-
-=head1 DESCRIPTION
-
-This nagios plugin check the memory usage.
-
-=head1 VERSION
-
-This man page is current for version 0.3 of B<check_mem>.
-
-=head1 AUTHOR
-
-Written by Christian Arnold L<arnold@schlittermann.de>
-
-=head1 COPYRIGHT
-
-Copyright (C) 2011 by Christian Arnold and Schlittermann internet & unix support.
-This is free software, and you are welcome to redistribute it under certain conditions.
-See the GNU General Public Licence for details.