|
|
|
@ -52,10 +52,8 @@ sub action |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
# Age |
|
|
|
|
for ( my $i = 0 ; $i < @Backups ; $i++ ) { |
|
|
|
|
if ( $Backups[$i]{type} eq "full" or "incr" ) { |
|
|
|
|
$lastAge = sprintf("%.1f", (time - $Backups[-1]{startTime}) / (24 * 3600)); |
|
|
|
|
} |
|
|
|
|
if ( $Backups[$i]{type} eq "full" or "incr" ) { |
|
|
|
|
$lastAge = sprintf("%.1f", (time - $Backups[-1]{startTime}) / (24 * 3600)); |
|
|
|
|
} |
|
|
|
|
|
|
|
|
|
# Color for age |
|
|
|
@ -64,17 +62,7 @@ sub action |
|
|
|
|
} else { |
|
|
|
|
$lastAgeColor = "Tomato"; |
|
|
|
|
} |
|
|
|
|
if ( $fullAge < 0 ) { |
|
|
|
|
$fullAge = 0; |
|
|
|
|
} else { |
|
|
|
|
$fullAge = sprintf("%.1f", (time - $fullAge) / (24 * 3600)); |
|
|
|
|
} |
|
|
|
|
if ( $incrAge < 0 ) { |
|
|
|
|
$incrAge = 0; |
|
|
|
|
} else { |
|
|
|
|
$incrAge = sprintf("%.1f", (time - $incrAge) / (24 * 3600)); |
|
|
|
|
} |
|
|
|
|
$incrAge = " " if ( $incrAge eq "" ); |
|
|
|
|
|
|
|
|
|
# Color for errors |
|
|
|
|
$lastXferErrors = $Backups[@Backups-1]{xferErrs} if ( @Backups ); |
|
|
|
|
if ( $lastXferErrors == 0 ) { |
|
|
|
|