Include content hardcode

Check.pm

@@ -148,7 +148,70 @@ EOF
     my $DUmaxTime      = timeStamp2($Info{DUDailyMaxTime});
     my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime});
 
-    my $content = eval ("qq{$Lang->{BackupPC_Summary}}");
+    my $content = eval ("qq{
+
+      \${h1(qq{"BackupPC: Check"})}
+      <p>
+      <ul>
+      <li>This status was generated at \$now.
+      <li>Pool file system was recently at \$Info{DUlastValue}%
+          (\$DUlastTime), today\'s max is \$Info{DUDailyMax}% (\$DUmaxTime)
+          and yesterday\'s max was \$Info{DUDailyMaxPrev}%.
+      <li>Pool file system inode usage was recently at \$Info{DUInodelastValue}%
+          (\$DUlastTime), today\'s max is \$Info{DUInodeDailyMax}% (\$DUInodemaxTime)
+          and yesterday\'s max was \$Info{DUInodeDailyMaxPrev}%.
+      </ul>
+      </p>
+
+      \${h2("Hosts with good Backups")}
+      <p>
+      There are \$hostCntGood hosts that have been backed up, for a total of:
+      <ul>
+      <li> \$fullTot full backups of total size \${fullSizeTot}GiB
+           (prior to pooling and compression),
+      <li> \$incrTot incr backups of total size \${incrSizeTot}GiB
+           (prior to pooling and compression).
+      </ul>
+      </p>
+      <table class="sortable" id="host_summary_backups" border cellpadding="3" cellspacing="1">
+      <tr class="tableheader"><td> Host </td>
+          <td align="center"> User </td>
+          <td align="center"> Comment </td>
+          <td align="center"> #Full </td>
+          <td align="center"> Full Age (days) </td>
+          <td align="center"> Full Size (GiB) </td>
+          <td align="center"> Speed (MiB/s) </td>
+          <td align="center"> #Incr </td>
+          <td align="center"> Incr Age (days) </td>
+          <td align="center"> Last Backup (days) </td>
+          <td align="center"> State </td>
+          <td align="center"> #Xfer errs </td>
+          <td align="center"> Last attempt </td></tr>
+      \$strGood
+      </table>
+      \${h2("Hosts with no Backups")}
+      <p>
+      There are \$hostCntNone hosts with no backups.
+      <p>
+      <table class="sortable" id="host_summary_nobackups" border cellpadding="3" cellspacing="1">
+      <tr class="tableheader"><td> Host </td>
+          <td align="center"> User </td>
+          <td align="center"> Comment </td>
+          <td align="center"> #Full </td>
+          <td align="center"> Full Age (days) </td>
+          <td align="center"> Full Size (GiB) </td>
+          <td align="center"> Speed (MiB/s) </td>
+          <td align="center"> #Incr </td>
+          <td align="center"> Incr Age/days </td>
+          <td align="center"> Last Backup (days) </td>
+          <td align="center"> State </td>
+          <td align="center"> #Xfer errs </td>
+          <td align="center"> Last attempt </td></tr>
+      \$strNone
+      </table>
+      EOF
+
+    }");
     Header("BackupPC: Check", $content);
     Trailer();
 }