Changeset e607684de2bdbf415825c461584e8c8437511ab4

Timestamp:

05/20/10 02:21:24 (5 years ago)

Author:

Mark Harrison <mark@omniti.com>

git-committer:

Mark Harrison <mark@omniti.com> 1274322084 +0000

git-parent:

[d710bcb9b19ab354fa6cbab08cbe91dcee175e86]

git-author:

Mark Harrison <mark@omniti.com> 1274322084 +0000

Message:

Convert Core::DiskFree? to support wildcard checks (refs #8)

git-svn-id: https://labs.omniti.com/resmon/branches/resmon2@387 8c0face9-b7db-6ec6-c4b3-d5f7145c7d55

Files:

• lib/Core/DiskFree.pm (modified) (4 diffs)

lib/Core/DiskFree.pm

@@ -26 +26 @@
- }
-
+ Core::DiskFree {
+    * : noop
+ }
+
-=head1 DESCRIPTION
-
@@ -41 +45 @@
-
-The name of the check refers to the filesystem to check the free space on. It
-
+
+
-
-=item dfcmd
@@ -48 +53 @@
-the default is not sufficient. It is optional and in most cases you do not
-need to set this.
+
+=item excludes
+
+This is only used when * is specified for the check name. It contains a regex
+of filesystems to exclude from the results. If this isn't specified, a default
+regex is used that will exclude various common filesystems that aren't 'real'
+such as /proc or swap.
-
-=back
@@ -104 +116 @@
-};
-
+sub wildcard_handler {
+    my $self = shift;
+    my $config = $self->{config};
+    my $dfcmd = $config->{dfcmd} || $self->{default_dfcmd};
+    my $excludes = $config->{excludes};
+    if (!defined $excludes) {
+        # Exclude some default 'fake' filesystems
+        $excludes = "^(none|swap|proc|ctfs|mnttab|objfs|fd)\$";
+    }
+    my $metrics = {};
+
+    my $output = run_command("$dfcmd");
+    for my $line (split /\n/, $output) {
+        if($line =~ /^(\S+)\s+\d+\s+(\d+)\s+(\d+)\s+(\d+)%/) {
+            my ($fs, $used, $free, $percent) = ($1, $2, $3, $4);
+            next if $fs =~ /$excludes/;
+            $metrics->{$fs} = {
+                "used_KB" => [$used, "i"],
+                "free_KB" => [$free, "i"],
+                "used_percent" => [$percent, "i"]
+            };
+        }
+    }
+    if (!%$metrics) {
+        die "Unable to get free space\n";
+    }
+    return $metrics;
+}
+
-1;