fws
/
BackupPC-Check
4
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Begin random file function

Browse Source
master
Heuzef 5 years ago
parent 8a5e65b27d
commit b7288b8584
1 changed files with 5 additions and 2 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 7
      Check.pm

7
Check.pm
Unescape View File

@ -141,7 +141,7 @@ if ( $Conf{BackupsDisable} == 1 ) {
$shortErr = " ($shortErr)"; $shortErr = " ($shortErr)";
} }
# Size Consistency # Check Size Consistency
my $bpc = BackupPC::Lib->new(); my $bpc = BackupPC::Lib->new();
my $mainConf = $bpc->ConfigDataRead(); my $mainConf = $bpc->ConfigDataRead();
my $json = {}; my $json = {};
@ -219,13 +219,16 @@ else {
$sizeConsistencyColor = "MediumSeaGreen"; $sizeConsistencyColor = "MediumSeaGreen";
} }
# Get random file
my $randomFile = "random-file.txt";
# Show summary # Show summary
$str = <<EOF; $str = <<EOF;
<tr$reasonHilite><td class="border">${HostLink($host)}</td> <tr$reasonHilite><td class="border">${HostLink($host)}</td>
<td align="center" class="border" style="color:$lastAgeColor;">$lastAge</td> <td align="center" class="border" style="color:$lastAgeColor;">$lastAge</td>
<td align="center" class="border" style="color:$lastXferErrorsColor;">$lastXferErrors</td> <td align="center" class="border" style="color:$lastXferErrorsColor;">$lastXferErrors</td>
<td align="center" class="border" style="color:$sizeConsistencyColor;">$sizeConsistency</td> <td align="center" class="border" style="color:$sizeConsistencyColor;">$sizeConsistency</td>
<td align="center" class="border"><a href="#" target="_blank">random-file.txt</a></td> <td align="center" class="border"><a href="$randomFile" target="_blank">$randomFile</a></td>
EOF EOF
# Increment counter # Increment counter

Write Preview
Loading…
Cancel
Save