Heuzef
5 years ago
parent
c497104fb1
commit
5eb172786f
1 changed files with 0 additions and 141 deletions
@ -1,141 +0,0 @@ |
|||||||
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