From a71565ce200771459236516fe3a1d0a010d993ea Mon Sep 17 00:00:00 2001
From: Mark Harrison <mark@omniti.com>
Date: Fri, 13 Jun 2008 14:57:45 +0000
Subject: [PATCH] Adding large files module, used on pbx
git-svn-id: https://labs.omniti.com/resmon/trunk@124 8c0face9-b7db-6ec6-c4b3-d5f7145c7d55
---
lib/Resmon/Module/LARGEFILES.pm | 21 +++++++++++++++++++++
1 file changed, 21 insertions(+)
create mode 100644 lib/Resmon/Module/LARGEFILES.pm
diff --git a/lib/Resmon/Module/LARGEFILES.pm b/lib/Resmon/Module/LARGEFILES.pm
new file mode 100644
index 0000000..eb51cc4
--- /dev/null
+++ b/lib/Resmon/Module/LARGEFILES.pm
@@ -0,0 +1,21 @@
+package Resmon::Module::LARGEFILES;
+use Resmon::Module;
+use vars qw/@ISA/;
+@ISA = qw/Resmon::Module/;
+
+sub handler {
+ my $arg = shift;
+ my $os = $arg->fresh_status();
+ return $os if $os;
+ my $dir = $arg->{'object'};
+ opendir(DIR, $dir);
+ my @bigfiles = grep { my @fileinfo = stat; $fileinfo[7] > $arg->{'limit'} } readdir(DIR);
+ closedir(DIR);
+ if (scalar(@bigfiles) > 0) {
+ return $arg->set_status("BAD(large files exist)");
+ } else {
+ return $arg->set_status("OK(no large files)");
+ }
+}
+
+1;
--
GitLab