1 files changed, 84 insertions, 0 deletions

diff --git a/web/attachments/239325-check_file_age.patch b/web/attachments/239325-check_file_age.patch
new file mode 100644
index 0000000..9381765
--- /dev/null
+++ b/web/attachments/239325-check_file_age.patch
@@ -0,0 +1,84 @@
+--- check_file_age.bak  2007-07-27 14:24:15.000000000 +0100
++++ check_file_age      2007-07-27 14:31:20.000000000 +0100
+@@ -33,22 +33,23 @@
+ sub print_help ();
+ sub print_usage ();
+ 
+-my ($opt_c, $opt_f, $opt_w, $opt_C, $opt_W, $opt_h, $opt_V);
+-my ($result, $message, $age, $size, $st);
+-
+ $PROGNAME="check_file_age";
+ 
+-$opt_w = 240;
+-$opt_c = 600;
+-$opt_W = 0;
+-$opt_C = 0;
+-$opt_f = "";
++my $opt_V = undef;
++my $opt_w = 240;
++my $opt_c = 600;
++my $opt_W = 0;
++my $opt_C = 0;
++my $opt_f = "";
++my $opt_d = "";
++my $opt_h = "";
+ 
+ Getopt::Long::Configure('bundling');
+ GetOptions(
+        "V"   => \$opt_V, "version"     => \$opt_V,
+        "h"   => \$opt_h, "help"        => \$opt_h,
+        "f=s" => \$opt_f, "file"        => \$opt_f,
++       "d=s" => \$opt_d, "dir"         => \$opt_d,
+        "w=f" => \$opt_w, "warning-age=f" => \$opt_w,
+        "W=f" => \$opt_W, "warning-size=f" => \$opt_W,
+        "c=f" => \$opt_c, "critical-age=f" => \$opt_c,
+@@ -64,25 +65,32 @@
+        exit $ERRORS{'OK'};
+ }
+ 
+-$opt_f = shift unless ($opt_f);
++$opt_f = shift unless ($opt_f or $opt_d);
+ 
+-if (! $opt_f) {
+-       print "No file specified\n";
++if (not $opt_f and not $opt_d) {
++       print "No file or directory specified\n";
+        exit $ERRORS{'UNKNOWN'};
+ }
+ 
+ # Examine the file.
+-unless (-f $opt_f) {
++if ($opt_f and not -f $opt_f)
++{
+        print "$opt_f: File not found\n";
+        exit $ERRORS{'UNKNOWN'};
+ }
++elsif ($opt_d and not -d $opt_d)
++{
++       print "$opt_d: Directory not found\n";
++       exit $ERRORS{'UNKNOWN'};
++}
+ 
+-$st = File::stat::stat($opt_f);
+-$age = time - $st->mtime;
+-$size = $st->size;
++my $file = $opt_f || $opt_d;
+ 
++my $st = File::stat::stat($file);
++my $age = time - $st->mtime;
++my $size = $st->size;
+ 
+-$result = 'OK';
++my $result = 'OK';
+ 
+ if (($opt_c and $age > $opt_c) or ($opt_C and $size < $opt_C)) {
+        $result = 'CRITICAL';
+@@ -91,7 +99,7 @@
+        $result = 'WARNING';
+ }
+ 
+-print "$result - $opt_f is $age seconds old and $size bytes\n";
++print "$result - $file is $age seconds old and $size bytes\n";
+ exit $ERRORS{$result};
+ 
+ sub print_usage () {