From 58d7c9b10ffbb394abaa896939a3faf9d48ef377 Mon Sep 17 00:00:00 2001 From: Heuzef Date: Fri, 20 Sep 2019 17:11:17 +0200 Subject: [PATCH] Try return sub request --- Check.pm | 278 ++++++++++++++++++++++++++++++++------------------------------- 1 file changed, 142 insertions(+), 136 deletions(-) diff --git a/Check.pm b/Check.pm index 5002ee8..864dd1a 100644 --- a/Check.pm +++ b/Check.pm @@ -27,7 +27,144 @@ use Getopt::Long; use Statistics::Descriptive; use Data::Dumper; -my $sizeConsistency = print("ANOMALOUS"); +action(); +my $sizeConsistency = action(); + +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) ) { + my($fullDur, $incrCnt, $incrAge, $fullSize, $fullRate, $reasonHilite, + $lastAge, $lastAgeColor, $tempState, $tempReason, $lastXferErrors, $lastXferErrorsColor); + 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 ( $lastAge < 1.1 ) { + $lastAgeColor = "MediumSeaGreen"; + } else { + $lastAgeColor = "Tomato"; + } + 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 ); + if ( $lastXferErrors == 0 ) { + $lastXferErrorsColor = "MediumSeaGreen"; + } else { + $lastAgeColor = "Tomato"; + } + $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 = <${HostLink($host)} + $fullAge + $incrAge + $lastAge + $lastXferErrors + $sizeConsistency + random-file.txt +EOF + if ( @Backups == 0 ) { + $hostCntNone++; + $strNone .= $str; + } else { + $hostCntGood++; + $strGood .= $str; + } + } + $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_Check}}"); + Header($Lang->{BackupPC__Server_Check}, $content); + Trailer(); +} sub size_consistency { @@ -197,141 +334,10 @@ sub size_consistency else { my $sizeConsistency = print("ANOMALOUS"); } -} - -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) ) { - my($fullDur, $incrCnt, $incrAge, $fullSize, $fullRate, $reasonHilite, - $lastAge, $lastAgeColor, $tempState, $tempReason, $lastXferErrors, $lastXferErrorsColor); - 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 ( $lastAge < 1.1 ) { - $lastAgeColor = "MediumSeaGreen"; - } else { - $lastAgeColor = "Tomato"; - } - 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 ); - if ( $lastXferErrors == 0 ) { - $lastXferErrorsColor = "MediumSeaGreen"; - } else { - $lastAgeColor = "Tomato"; - } - $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 = <${HostLink($host)} - $fullAge - $incrAge - $lastAge - $lastXferErrors - $sizeConsistency - random-file.txt -EOF - if ( @Backups == 0 ) { - $hostCntNone++; - $strNone .= $str; - } else { - $hostCntGood++; - $strGood .= $str; - } - } - $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_Check}}"); - Header($Lang->{BackupPC__Server_Check}, $content); - Trailer(); + my $sizeConsistency = ; + chomp $sizeConsistency; + return $sizeConsistency; } + 1;