|
|
@ -52,13 +52,12 @@ sub action |
|
|
|
|
|
|
|
|
|
|
|
# Age |
|
|
|
# Age |
|
|
|
for ( my $i = 0 ; $i < @Backups ; $i++ ) { |
|
|
|
for ( my $i = 0 ; $i < @Backups ; $i++ ) { |
|
|
|
if ( $Backups[$i]{type} eq "full" or "incr" ) { |
|
|
|
|
|
|
|
if ( $Backups[$i]{type} eq "full" or "incr" ) { |
|
|
|
if ( $Backups[$i]{type} eq "full" or "incr" ) { |
|
|
|
$lastAge = sprintf("%.1f", (time - $Backups[-1]{startTime}) / (24 * 3600)); |
|
|
|
|
|
|
|
$lastAge = sprintf("%.1f", (time - $Backups[-1]{startTime}) / (24 * 3600)); |
|
|
|
$lastAge = sprintf("%.1f", (time - $Backups[-1]{startTime}) / (24 * 3600)); |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# Color for age |
|
|
|
# Color for age |
|
|
|
if ( $lastAge < $frequency ) { |
|
|
|
if ( $lastAge < $frequency ) { |
|
|
|
$lastAgeColor = "MediumSeaGreen"; |
|
|
|
$lastAgeColor = "MediumSeaGreen"; |
|
|
|