Hello World

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();
 }