|
|
|
@ -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(); |
|
|
|
} |
|
|
|
} |
|
|
|
|
Heuzef
5 years ago