Begin random file function

Check.pm

@@ -141,7 +141,7 @@ if ( $Conf{BackupsDisable} == 1 ) {
 	    $shortErr = " ($shortErr)";
 	}
 
-# Size Consistency
+# Check Size Consistency
 my $bpc = BackupPC::Lib->new();
 my $mainConf = $bpc->ConfigDataRead();
 my $json = {};
@@ -219,13 +219,16 @@ else {
   $sizeConsistencyColor = "MediumSeaGreen";
 }
 
+# Get random file
+my $randomFile = "random-file.txt";
+
 # Show summary
         $str = <<EOF;
 <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:$lastXferErrorsColor;">$lastXferErrors</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
 
 # Increment counter