aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--contrib/check_backup.pl114
-rw-r--r--contrib/check_dl_size.pl148
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};
+}
generated by cgit v1.2.3 (git 2.39.1) at 2024-11-23 21:31:56 +0000