| 1 |
#!/usr/bin/perl |
|---|
| 2 |
|
|---|
| 3 |
use strict; |
|---|
| 4 |
use warnings; |
|---|
| 5 |
|
|---|
| 6 |
use YAML; |
|---|
| 7 |
use Date::Parse; |
|---|
| 8 |
|
|---|
| 9 |
my %nodes; |
|---|
| 10 |
foreach my $file ( glob '/var/lib/puppet/yaml/facts/*.yaml' ) { |
|---|
| 11 |
my $data = YAML::LoadFile($file); |
|---|
| 12 |
|
|---|
| 13 |
my $name = $data->{name}; |
|---|
| 14 |
my $age = time - str2time($data->{version}); |
|---|
| 15 |
$age = int($age/60 + 0.5); |
|---|
| 16 |
|
|---|
| 17 |
$nodes{$name} = $age; |
|---|
| 18 |
} |
|---|
| 19 |
|
|---|
| 20 |
my @sorted = sort { $nodes{$a} <=> $nodes{$b} } keys %nodes; |
|---|
| 21 |
foreach my $key (@sorted) { |
|---|
| 22 |
printf("%5d minutes ago: %s\n", $nodes{$key}, $key); |
|---|
| 23 |
} |
|---|
