From 60ae3081343f090698673c650c69fb6f75b5e0c7 Mon Sep 17 00:00:00 2001
From: Heuzef <contact@heuzef.com>
Date: Fri, 13 Sep 2019 14:57:55 +0200
Subject: [PATCH] Hello World

---
 Check.pm | 65 +---------------------------------------------------------------
 1 file changed, 1 insertion(+), 64 deletions(-)

diff --git a/Check.pm b/Check.pm
index 8092523..75a5f20 100644
--- a/Check.pm
+++ b/Check.pm
@@ -148,70 +148,7 @@ EOF
     my $DUmaxTime      = timeStamp2($Info{DUDailyMaxTime});
     my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime});
 
-    my $content = eval ("
-
-      \${h1("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
-
-    ");
+    my $content = eval ("Hello World");
     Header("BackupPC: Check", $content);
     Trailer();
 }