|
|
@ -36,7 +36,7 @@ sub action |
|
|
|
|
|
|
|
|
|
|
|
# Start loop |
|
|
|
# Start loop |
|
|
|
foreach my $host ( GetUserHosts(1) ) { |
|
|
|
foreach my $host ( GetUserHosts(1) ) { |
|
|
|
my($incrCnt, $incrAge, $reasonHilite, |
|
|
|
my($bpc,$incrCnt, $incrAge, $reasonHilite, |
|
|
|
$lastAge, $lastAgeColor, $tempState, $tempReason, $lastXferErrors, $lastXferErrorsColor); |
|
|
|
$lastAge, $lastAgeColor, $tempState, $tempReason, $lastXferErrors, $lastXferErrorsColor); |
|
|
|
my($shortErr); |
|
|
|
my($shortErr); |
|
|
|
my @Backups = $bpc->BackupInfoRead($host); |
|
|
|
my @Backups = $bpc->BackupInfoRead($host); |
|
|
|