From 359e65ff3ea2dfa5500da27bc67eef841dfff9cc Mon Sep 17 00:00:00 2001
From: Petter Reinholdtsen <pere@hungry.com>
Date: Tue, 26 Jan 2010 14:46:04 +0000
Subject: Rewritten new munin module to use SiteSummary.pm.

---
 SiteSummary.pm | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

(limited to 'SiteSummary.pm')

diff --git a/SiteSummary.pm b/SiteSummary.pm
index beddd4c..93f2eee 100644
--- a/SiteSummary.pm
+++ b/SiteSummary.pm
@@ -9,6 +9,8 @@ our $VERSION = 0.01;
 our @ISA     = qw(Exporter);
 our @EXPORT  = qw(
                   for_all_hosts
+                  get_age_group
+                  get_age_groups
                   get_debian_edu_profile
                   get_debian_edu_ver
                   get_debian_ver
@@ -340,6 +342,32 @@ sub for_all_hosts {
     return $count;
 }
 
+sub get_age_groups {
+    return (
+        0 => '>0 days',
+        3 => '>3 days',
+        7 => '>one week',
+        14 => '>14 days',
+        30 => '>30 days',
+        90 => '>90 days',
+        180 => '>180 days',
+        );
+}
+sub get_age_group {
+    my $hostid = shift;
+    my %agegroups = get_age_groups();
+    my $topdir = get_filepath_current($hostid, "/");
+    my $age = (time() - (stat($topdir))[9]) / (60 * 60 * 24);
+
+    my $thisgroup;
+    for my $group (sort { $a <=> $b; } keys %agegroups) {
+        if ($age > $group) {
+            $thisgroup = $group;
+        }
+    }
+    return $thisgroup;
+}
+
 1;
 
 ########################################################################
-- 
cgit v1.2.3