contrib/check_backup.pl

   1 #! /usr/bin/perl -wT
   2
   3 # (c)2001 Patrick Greenwell, Stealthgeeks, LLC. (patrick@stealthgeeks.net)
   4 # Licensed under the GNU GPL
   5 # http://www.gnu.org/licenses/gpl.html
   6
   7 # check_backup: Checks a directory to see if at least one file was
   8 # created within a specified period of time that is of equal to or greater
   9 # than a given size.
  10
  11 # Version 1.0
  12 # Last Updated: 9/12/01
  13
  14
  15 BEGIN {
  16         if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) {
  17                 $runtimedir = $1;
  18                 $PROGNAME = $2;
  19         }
  20 }
  21
  22 require 5.004;
  23 use strict;
  24 use Getopt::Long;
  25 use vars qw($opt_H $opt_d $opt_s $opt_t $verbose $PROGNAME);
  26 use lib $main::runtimedir;
  27 use utils qw($TIMEOUT %ERRORS &print_revision &usage &support &is_error);
  28
  29 sub help ();
  30 sub print_help ();
  31 sub print_usage ();
  32 sub version ();
  33 sub display_res($$);
  34 my ($filesize, $answer) = ();
  35 my $state = $ERRORS{'UNKNOWN'};
  36
  37 # Directory to check.
  38 my $dir = "/backup/";
  39
  40 # Time period(in seconds)
  41 my $within = "3600";
  42
  43 # Minimum size of file (in bytes)
  44 my $minsize = "40000000";
  45
  46 delete @ENV{'PATH', 'IFS', 'CDPATH', 'ENV', 'BASH_ENV'};
  47
  48 Getopt::Long::Configure('bundling', 'no_ignore_case');
  49 GetOptions
  50         ("V|version"     => \&version,
  51          "h|help"        => \&help,
  52          "v|verbose"     => \$verbose,
  53          "d|directory=s" => \$opt_d,
  54          "s|minsize=s"   => \$opt_s,
  55          "t|timeout=s"   => \$opt_t,
  56          );
  57
  58 ($opt_s) || ($opt_s = shift) || usage("Minimum File size not specified\n");
  59 usage("File size must be numeric value") unless ($opt_s =~ m/^[0-9]+$/);
  60
  61 (($opt_t) && ($TIMEOUT = $opt_t)) || ($TIMEOUT = 120);
  62 usage("TIMEOUT must be numeric value") unless ($TIMEOUT =~ m/^[0-9]+$/);
  63
  64 # Don't hang if there are timeout issues
  65 $SIG{'ALRM'} = sub {
  66         print ("ERROR: No response from ftp server (alarm)\n");
  67         exit $ERRORS{'UNKNOWN'};
  68 };
  69 alarm($TIMEOUT);
  70
  71 # Do stuff
  72
  73 my $time = time;
  74
  75 opendir(THISDIR, "$dir") or die "Can't open directory! $!";
  76 my @allfiles = grep !/^\./, readdir THISDIR;
  77 closedir THISDIR;
  78 while (my $file = $dir . pop @allfiles){
  79         my ($size, $mtime) = (stat($file))[7,9];
  80         if  (((my $a = ($time - $mtime)) <= $within) and ($size >= $opt_s)){
  81                 display_res("OK: File $file is <= $within and >=$opt_s bytes.\n","OK");
  82         }
  83 }
  84
  85 # If we got here nothing matched....
  86 display_res("CRITICAL: No files in $dir are <= $within and >= $minsize.", "CRITICAL");
  87
  88 exit;
  89
  90 sub print_usage () {
  91         print "Usage: $PROGNAME -s <minimum file size in bytes> -t <timeout> \n";
  92 }
  93
  94 sub print_help () {
  95         print_revision($PROGNAME,'$ Revision: 1.0 $ ');
  96         print_usage();
  97         support();
  98 }
  99
 100 sub version () {
 101         print_revision($PROGNAME,'$ Revision: 1.0 $ ');
 102         exit $ERRORS{'OK'};
 103 }
 104
 105 sub help () {
 106         print_help();
 107         exit $ERRORS{'OK'};
 108 }
 109
 110 sub display_res ($$) {
 111         my ($answer, $state) = @_;
 112         print $answer;
 113         exit $ERRORS{$state};
 114 }