diff options
Diffstat (limited to 'contrib')
| -rw-r--r-- | contrib/check_backup.pl | 114 | ||||
| -rw-r--r-- | contrib/check_dl_size.pl | 148 |
2 files changed, 262 insertions, 0 deletions
diff --git a/contrib/check_backup.pl b/contrib/check_backup.pl new file mode 100644 index 00000000..703d2424 --- /dev/null +++ b/contrib/check_backup.pl @@ -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}; +} diff --git a/contrib/check_dl_size.pl b/contrib/check_dl_size.pl new file mode 100644 index 00000000..e6cbda8b --- /dev/null +++ b/contrib/check_dl_size.pl @@ -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}; +} |