mirror of
https://github.com/monitoring-plugins/monitoring-plugins.git
synced 2026-03-09 01:30:51 -04:00
plugins from Patrick Greenwell
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@14 f882894a-f735-0410-b71e-b25c423dba1c
This commit is contained in:
Subhendu Ghosh
parent
733523442b
commit
d71f56c42e
2 changed files with 262 additions and 0 deletions
114
contrib/check_backup.pl
Normal file
114
contrib/check_backup.pl
Normal file
|
|
@ -0,0 +1,114 @@
|
|||
#! /usr/bin/perl -wT
|
||||
|
||||
# (c)2001 Patrick Greenwell, Stealthgeeks, LLC. (patrick@stealthgeeks.net)
|
||||
# Licensed under the GNU GPL
|
||||
# http://www.gnu.org/licenses/gpl.html
|
||||
|
||||
# check_backup: Checks a directory to see if at least one file was
|
||||
# created within a specified period of time that is of equal to or greater
|
||||
# than a given size.
|
||||
|
||||
# Version 1.0
|
||||
# Last Updated: 9/12/01
|
||||
|
||||
|
||||
BEGIN {
|
||||
if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) {
|
||||
$runtimedir = $1;
|
||||
$PROGNAME = $2;
|
||||
}
|
||||
}
|
||||
|
||||
require 5.004;
|
||||
use strict;
|
||||
use Getopt::Long;
|
||||
use vars qw($opt_H $opt_d $opt_s $opt_t $verbose $PROGNAME);
|
||||
use lib $main::runtimedir;
|
||||
use utils qw($TIMEOUT %ERRORS &print_revision &usage &support &is_error);
|
||||
|
||||
sub help ();
|
||||
sub print_help ();
|
||||
sub print_usage ();
|
||||
sub version ();
|
||||
sub display_res($$);
|
||||
my ($filesize, $answer) = ();
|
||||
my $state = $ERRORS{'UNKNOWN'};
|
||||
|
||||
# Directory to check.
|
||||
my $dir = "/backup/";
|
||||
|
||||
# Time period(in seconds)
|
||||
my $within = "3600";
|
||||
|
||||
# Minimum size of file (in bytes)
|
||||
my $minsize = "40000000";
|
||||
|
||||
delete @ENV{'PATH', 'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
|
||||
|
||||
Getopt::Long::Configure('bundling', 'no_ignore_case');
|
||||
GetOptions
|
||||
("V|version" => \&version,
|
||||
"h|help" => \&help,
|
||||
"v|verbose" => \$verbose,
|
||||
"d|directory=s" => \$opt_d,
|
||||
"s|minsize=s" => \$opt_s,
|
||||
"t|timeout=s" => \$opt_t,
|
||||
);
|
||||
|
||||
($opt_s) || ($opt_s = shift) || usage("Minimum File size not specified\n");
|
||||
usage("File size must be numeric value") unless ($opt_s =~ m/^[0-9]+$/);
|
||||
|
||||
(($opt_t) && ($TIMEOUT = $opt_t)) || ($TIMEOUT = 120);
|
||||
usage("TIMEOUT must be numeric value") unless ($TIMEOUT =~ m/^[0-9]+$/);
|
||||
|
||||
# Don't hang if there are timeout issues
|
||||
$SIG{'ALRM'} = sub {
|
||||
print ("ERROR: No response from ftp server (alarm)\n");
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
};
|
||||
alarm($TIMEOUT);
|
||||
|
||||
# Do stuff
|
||||
|
||||
my $time = time;
|
||||
|
||||
opendir(THISDIR, "$dir") or die "Can't open directory! $!";
|
||||
my @allfiles = grep !/^\./, readdir THISDIR;
|
||||
closedir THISDIR;
|
||||
while (my $file = $dir . pop @allfiles){
|
||||
my ($size, $mtime) = (stat($file))[7,9];
|
||||
if (((my $a = ($time - $mtime)) <= $within) and ($size >= $opt_s)){
|
||||
display_res("OK: File $file is <= $within and >=$opt_s bytes.\n","OK");
|
||||
}
|
||||
}
|
||||
|
||||
# If we got here nothing matched....
|
||||
display_res("CRITICAL: No files in $dir are <= $within and >= $minsize.", "CRITICAL");
|
||||
|
||||
exit;
|
||||
|
||||
sub print_usage () {
|
||||
print "Usage: $PROGNAME -s <minimum file size in bytes> -t <timeout> \n";
|
||||
}
|
||||
|
||||
sub print_help () {
|
||||
print_revision($PROGNAME,'$ Revision: 1.0 $ ');
|
||||
print_usage();
|
||||
support();
|
||||
}
|
||||
|
||||
sub version () {
|
||||
print_revision($PROGNAME,'$ Revision: 1.0 $ ');
|
||||
exit $ERRORS{'OK'};
|
||||
}
|
||||
|
||||
sub help () {
|
||||
print_help();
|
||||
exit $ERRORS{'OK'};
|
||||
}
|
||||
|
||||
sub display_res ($$) {
|
||||
my ($answer, $state) = @_;
|
||||
print $answer;
|
||||
exit $ERRORS{$state};
|
||||
}
|
||||
148
contrib/check_dl_size.pl
Normal file
148
contrib/check_dl_size.pl
Normal file
|
|
@ -0,0 +1,148 @@
|
|||
#! /usr/bin/perl -wT
|
||||
|
||||
# (c)2001 Patrick Greenwell, Stealthgeeks, LLC. (patrick@stealthgeeks.net)
|
||||
# Licensed under the GNU GPL
|
||||
# http://www.gnu.org/licenses/gpl.html
|
||||
#
|
||||
# check_dl_size: Attempts to download a specified file via FTP and verify
|
||||
# it is a specified size.
|
||||
# Requires Net::FTP
|
||||
|
||||
# Version 1.0
|
||||
# Last Updated: 8/31/01
|
||||
|
||||
|
||||
BEGIN {
|
||||
if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) {
|
||||
$runtimedir = $1;
|
||||
$PROGNAME = $2;
|
||||
}
|
||||
}
|
||||
|
||||
require 5.004;
|
||||
use strict;
|
||||
use Getopt::Long;
|
||||
use vars qw($opt_H $opt_f $opt_s $opt_t $verbose $PROGNAME);
|
||||
use lib $main::runtimedir;
|
||||
use utils qw($TIMEOUT %ERRORS &print_revision &usage &support &is_error);
|
||||
use Net::FTP;
|
||||
|
||||
sub help ();
|
||||
sub print_help ();
|
||||
sub print_usage ();
|
||||
sub version ();
|
||||
sub display_res($$);
|
||||
my ($ftpfile, $ftpdir, $filesize, $answer) = ();
|
||||
my $state = $ERRORS{'UNKNOWN'};
|
||||
|
||||
# Directory to place file. If your machine is not secure DO NOT USE /tmp.
|
||||
my $dir = "/usr/local/netsaint/etc/tmp";
|
||||
|
||||
# Username for login
|
||||
my $user = "anonymous";
|
||||
|
||||
# Password (PLEASE TAKE APPROPRIATE PRECAUTIONS TO SECURE THIS)
|
||||
my $pass = "guest\@example.com";
|
||||
|
||||
|
||||
delete @ENV{'PATH', 'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
|
||||
|
||||
Getopt::Long::Configure('bundling', 'no_ignore_case');
|
||||
GetOptions
|
||||
("V|version" => \&version,
|
||||
"h|help" => \&help,
|
||||
"v|verbose" => \$verbose,
|
||||
"H|hostname=s" => \$opt_H,
|
||||
"f|filename=s" => \$opt_f,
|
||||
"s|filesize=s" => \$opt_s,
|
||||
"t|timeout=s" => \$opt_t,
|
||||
);
|
||||
|
||||
($opt_H) || ($opt_H = shift) || usage("Host address or name not specified\n");
|
||||
my $host = $1
|
||||
if ($opt_H =~ m/^(([0-9]{1,3}\.){3}[0-9]{1,3}|(([a-z0-9]+(\-+[a-z0-9]+)*|\.))+[a-z])$/i);
|
||||
usage("Please provide a valid IP address or host name\n") unless ($host);
|
||||
|
||||
($opt_f) || ($opt_f = shift) || usage("File name not specified\n");
|
||||
|
||||
if ($opt_f =~ m/^(.*?)[\/\\]([^\/\\]+)$/) {
|
||||
$ftpdir = $1;
|
||||
$ftpfile = $2;
|
||||
}
|
||||
|
||||
($opt_s) || ($opt_s = shift) || usage("File size not specified\n");
|
||||
usage("File size must be numeric value") unless ($opt_s =~ m/^[0-9]+$/);
|
||||
|
||||
(($opt_t) && ($TIMEOUT = $opt_t)) || ($TIMEOUT = 120);
|
||||
usage("TIMEOUT must be numeric value") unless ($TIMEOUT =~ m/^[0-9]+$/);
|
||||
|
||||
# Don't hang if there are timeout issues
|
||||
$SIG{'ALRM'} = sub {
|
||||
print ("ERROR: No response from ftp server (alarm)\n");
|
||||
exit $ERRORS{'UNKNOWN'};
|
||||
};
|
||||
alarm($TIMEOUT);
|
||||
|
||||
# Make certain temporary directory exists
|
||||
|
||||
if ( ! -e "$dir" ) {
|
||||
display_res("Temporary directory $dir does not exist.\n", "CRITICAL");
|
||||
|
||||
}
|
||||
|
||||
# Remove existing file if any
|
||||
|
||||
if ( -e "$dir/$ftpfile") {
|
||||
unlink "$dir/$ftpfile" or
|
||||
display_res("Can't remove existing file $dir/$ftpfile.\n", "CRITICAL");
|
||||
}
|
||||
|
||||
# Snarf file
|
||||
|
||||
my $ftp = Net::FTP->new("$host", Passive => 1, Timeout => $TIMEOUT) or
|
||||
display_res("Can't connect to $host.\n", "CRITICAL");
|
||||
$ftp->login("$user","$pass") or
|
||||
display_res("Login to $host failed", "CRITICAL");
|
||||
$ftp->cwd("$ftpdir") or
|
||||
display_res("Can't change to directory $ftpdir.\n", "CRITICAL");
|
||||
$ftp->get($ftpfile, "$dir/$ftpfile") or
|
||||
display_res("Can't retrieve file $ftpfile.\n", "CRITICAL");
|
||||
$ftp->quit;
|
||||
|
||||
# If file exists and is correct size we are happy.
|
||||
|
||||
if (( -e "$dir/$ftpfile" ) && (($filesize = -s "/tmp/$ftpfile") eq $opt_s)) {
|
||||
display_res("File $ftpfile size OK: $filesize bytes.\n", "OK");
|
||||
} else {
|
||||
# Otherwise we are not happy.
|
||||
display_res("File $ftpfile size incorrect: $filesize bytes", "CRITICAL");
|
||||
}
|
||||
|
||||
exit;
|
||||
|
||||
sub print_usage () {
|
||||
print "Usage: $PROGNAME -H <host> -f <filename> -s <file size in bytes> -t <timeout> \n";
|
||||
}
|
||||
|
||||
sub print_help () {
|
||||
print_revision($PROGNAME,'$ Revision: 1.0 $ ');
|
||||
print "Copyright (c) 2001 Patrick Greenwell, Stealthgeeks, LLC.\n\n";
|
||||
print_usage();
|
||||
support();
|
||||
}
|
||||
|
||||
sub version () {
|
||||
print_revision($PROGNAME,'$ Revision: 1.0 $ ');
|
||||
exit $ERRORS{'OK'};
|
||||
}
|
||||
|
||||
sub help () {
|
||||
print_help();
|
||||
exit $ERRORS{'OK'};
|
||||
}
|
||||
|
||||
sub display_res ($$) {
|
||||
my ($answer, $state) = @_;
|
||||
print $answer;
|
||||
exit $ERRORS{$state};
|
||||
}
|
||||
Loading…
Reference in a new issue