diff options
Diffstat (limited to 'SiteSummary.pm')
| -rw-r--r-- | SiteSummary.pm | 28 |
1 files changed, 28 insertions, 0 deletions
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; ######################################################################## |