parent
fde98283b5
commit
42035a94ab
1 changed files with 141 additions and 0 deletions
@ -0,0 +1,141 @@ |
|||||||
|
package BackupPC::CGI::Summary; |
||||||
|
|
||||||
|
use strict; |
||||||
|
use BackupPC::CGI::Lib qw(:all); |
||||||
|
|
||||||
|
sub action |
||||||
|
{ |
||||||
|
my($fullTot, $fullSizeTot, $incrTot, $incrSizeTot, $str, |
||||||
|
$strNone, $strGood, $hostCntGood, $hostCntNone); |
||||||
|
|
||||||
|
$hostCntGood = $hostCntNone = 0; |
||||||
|
GetStatusInfo("hosts info"); |
||||||
|
my $Privileged = CheckPermission(); |
||||||
|
|
||||||
|
foreach my $host ( GetUserHosts(1) ) { # start loop |
||||||
|
my($fullDur, $incrCnt, $incrAge, $fullSize, $fullRate, $reasonHilite, |
||||||
|
$lastAge, $tempState, $tempReason, $lastXferErrors); |
||||||
|
my($shortErr); |
||||||
|
my @Backups = $bpc->BackupInfoRead($host); |
||||||
|
my $fullCnt = $incrCnt = 0; |
||||||
|
my $fullAge = $incrAge = $lastAge = -1; |
||||||
|
|
||||||
|
$bpc->ConfigRead($host); |
||||||
|
%Conf = $bpc->Conf(); |
||||||
|
|
||||||
|
next if ( $Conf{XferMethod} eq "archive" ); |
||||||
|
next if ( !$Privileged && !CheckPermission($host) ); |
||||||
|
|
||||||
|
for ( my $i = 0 ; $i < @Backups ; $i++ ) { |
||||||
|
if ( $Backups[$i]{type} eq "full" ) { |
||||||
|
$fullCnt++; |
||||||
|
if ( $fullAge < 0 || $Backups[$i]{startTime} > $fullAge ) { |
||||||
|
$fullAge = $Backups[$i]{startTime}; |
||||||
|
$fullSize = $Backups[$i]{size} / (1024 * 1024); |
||||||
|
$fullDur = $Backups[$i]{endTime} - $Backups[$i]{startTime}; |
||||||
|
} |
||||||
|
$fullSizeTot += $Backups[$i]{size} / (1024 * 1024); |
||||||
|
} elsif ( $Backups[$i]{type} eq "incr" ) { |
||||||
|
$incrCnt++; |
||||||
|
if ( $incrAge < 0 || $Backups[$i]{startTime} > $incrAge ) { |
||||||
|
$incrAge = $Backups[$i]{startTime}; |
||||||
|
} |
||||||
|
$incrSizeTot += $Backups[$i]{size} / (1024 * 1024); |
||||||
|
} |
||||||
|
} |
||||||
|
if ( $fullAge > $incrAge && $fullAge >= 0 ) { |
||||||
|
$lastAge = $fullAge; |
||||||
|
} else { |
||||||
|
$lastAge = $incrAge; |
||||||
|
} |
||||||
|
if ( $lastAge < 0 ) { |
||||||
|
$lastAge = ""; |
||||||
|
} else { |
||||||
|
$lastAge = sprintf("%.1f", (time - $lastAge) / (24 * 3600)); |
||||||
|
} |
||||||
|
if ( $fullAge < 0 ) { |
||||||
|
$fullAge = ""; |
||||||
|
$fullRate = ""; |
||||||
|
} else { |
||||||
|
$fullAge = sprintf("%.1f", (time - $fullAge) / (24 * 3600)); |
||||||
|
$fullRate = sprintf("%.2f", |
||||||
|
$fullSize / ($fullDur <= 0 ? 1 : $fullDur)); |
||||||
|
} |
||||||
|
if ( $incrAge < 0 ) { |
||||||
|
$incrAge = ""; |
||||||
|
} else { |
||||||
|
$incrAge = sprintf("%.1f", (time - $incrAge) / (24 * 3600)); |
||||||
|
} |
||||||
|
$fullTot += $fullCnt; |
||||||
|
$incrTot += $incrCnt; |
||||||
|
$fullSize = sprintf("%.2f", $fullSize / 1024); |
||||||
|
$incrAge = " " if ( $incrAge eq "" ); |
||||||
|
$lastXferErrors = $Backups[@Backups-1]{xferErrs} if ( @Backups ); |
||||||
|
$reasonHilite = $Conf{CgiStatusHilightColor}{$Status{$host}{reason}} |
||||||
|
|| $Conf{CgiStatusHilightColor}{$Status{$host}{state}}; |
||||||
|
if ( $Conf{BackupsDisable} == 1 ) { |
||||||
|
if ( $Status{$host}{state} ne "Status_backup_in_progress" |
||||||
|
&& $Status{$host}{state} ne "Status_restore_in_progress" ) { |
||||||
|
$reasonHilite = $Conf{CgiStatusHilightColor}{Disabled_OnlyManualBackups}; |
||||||
|
$tempState = "Disabled_OnlyManualBackups"; |
||||||
|
$tempReason = ""; |
||||||
|
} else { |
||||||
|
$tempState = $Status{$host}{state}; |
||||||
|
$tempReason = $Status{$host}{reason}; |
||||||
|
} |
||||||
|
} elsif ($Conf{BackupsDisable} == 2 ) { |
||||||
|
$reasonHilite = $Conf{CgiStatusHilightColor}{Disabled_AllBackupsDisabled}; |
||||||
|
$tempState = "Disabled_AllBackupsDisabled"; |
||||||
|
$tempReason = ""; |
||||||
|
} else { |
||||||
|
$tempState = $Status{$host}{state}; |
||||||
|
$tempReason = $Status{$host}{reason}; |
||||||
|
} |
||||||
|
$reasonHilite = " bgcolor=\"$reasonHilite\"" if ( $reasonHilite ne "" ); |
||||||
|
if ( $tempState ne "Status_backup_in_progress" |
||||||
|
&& $tempState ne "Status_restore_in_progress" |
||||||
|
&& $Conf{BackupsDisable} == 0 |
||||||
|
&& $Status{$host}{error} ne "" ) { |
||||||
|
($shortErr = $Status{$host}{error}) =~ s/(.{48}).*/$1.../; |
||||||
|
$shortErr = " ($shortErr)"; |
||||||
|
} |
||||||
|
|
||||||
|
$str = <<EOF; |
||||||
|
<tr$reasonHilite><td class="border">${HostLink($host)}</td> |
||||||
|
<td align="center" class="border"> ${UserLink(defined($Hosts->{$host}) |
||||||
|
? $Hosts->{$host}{user} : "")} </td> |
||||||
|
<td align="center" class="border">${EscHTML($Conf{ClientComment})}</td> |
||||||
|
<td align="center" class="border">$fullCnt</td> |
||||||
|
<td align="center" class="border">$fullAge</td> |
||||||
|
<td align="center" class="border">$fullSize</td> |
||||||
|
<td align="center" class="border">$fullRate</td> |
||||||
|
<td align="center" class="border">$incrCnt</td> |
||||||
|
<td align="center" class="border">$incrAge</td> |
||||||
|
<td align="center" class="border">$lastAge</td> |
||||||
|
<td align="center" class="border">$Lang->{$tempState}</td> |
||||||
|
<td align="center" class="border">$lastXferErrors</td> |
||||||
|
<td class="border">$Lang->{$tempReason}$shortErr</td></tr> |
||||||
|
EOF |
||||||
|
if ( @Backups == 0 ) { |
||||||
|
$hostCntNone++; |
||||||
|
$strNone .= $str; |
||||||
|
} else { |
||||||
|
$hostCntGood++; |
||||||
|
$strGood .= $str; |
||||||
|
} |
||||||
|
} # end loop |
||||||
|
|
||||||
|
$fullSizeTot = sprintf("%.2f", $fullSizeTot / 1024); |
||||||
|
$incrSizeTot = sprintf("%.2f", $incrSizeTot / 1024); |
||||||
|
my $now = timeStamp2(time); |
||||||
|
my $DUlastTime = timeStamp2($Info{DUlastValueTime}); |
||||||
|
my $DUmaxTime = timeStamp2($Info{DUDailyMaxTime}); |
||||||
|
my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime}); |
||||||
|
|
||||||
|
my $content = eval ("qq{$Lang->{BackupPC_Summary}}"); |
||||||
|
Header($Lang->{BackupPC__Server_Summary}, $content); |
||||||
|
Trailer(); |
||||||
|
} |
||||||
|
|
||||||
|
1; |
||||||
|
174,1 Ba |
Loading…
Reference in new issue