Rewritten new munin module to use SiteSummary.pm.

1 files changed, 3 insertions, 21 deletions

diff --git a/agesinceseen-summary b/agesinceseen-summary
index 0347393..ddfd7ff 100644
--- a/agesinceseen-summary
+++ b/agesinceseen-summary
@@ -6,17 +6,6 @@ use warnings;
 use SiteSummary;
 use Getopt::Std;
 
-my %agegroup =
-    (
-      0 => '>0 days',
-      3 => '>3 days',
-      7 => '>one week',
-     14 => '>14 days',
-     30 => '>30 days',
-     90 => '>90 days',
-    180 => '>180 days',
-);
-
 my %agedist;
 my %opts;
 
@@ -37,15 +26,7 @@ print_summary();
 
 sub handle_host {
     my $hostid = shift;
-    my $topdir = get_filepath_current($hostid, "/");
-    my $age = (time() - (stat($topdir))[9]) / (60 * 60 * 24);
-
-    my $thisgroup;
-    for my $group (sort { $a <=> $b; } keys %agegroup) {
-        if ($age > $group) {
-            $thisgroup = $group;
-        }
-    }
+    my $thisgroup = get_age_group($hostid);
     if (defined $thisgroup) {
         if (exists $agedist{$thisgroup}) {
             push @{$agedist{$thisgroup}}, $hostid ;
@@ -57,8 +38,9 @@ sub handle_host {
 
 sub print_summary {
     printf("  %-20s %5s\n", "age", "count");
+    my %agegroups = get_age_groups();
     for my $group (sort { $a <=> $b; } keys %agedist) {
-        printf("  %-20s %5d\n", $agegroup{$group}, scalar @{$agedist{$group}});
+        printf("  %-20s %5d\n", $agegroups{$group}, scalar @{$agedist{$group}});
         if (exists $opts{l}) {
             for my $hostid (sort @{$agedist{$group}}) {
                 my $hostname = get_hostname($hostid);