Hello World

master
Heuzef 5 years ago
parent c7d42f7dbc
commit 60ae308134
  1. 65
      Check.pm

@ -148,70 +148,7 @@ EOF
my $DUmaxTime = timeStamp2($Info{DUDailyMaxTime}); my $DUmaxTime = timeStamp2($Info{DUDailyMaxTime});
my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime}); my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime});
my $content = eval (" my $content = eval ("Hello World");
\${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
");
Header("BackupPC: Check", $content); Header("BackupPC: Check", $content);
Trailer(); Trailer();
} }

Loading…
Cancel
Save