try insert header

master
Heuzef 5 years ago
parent e6262f81bf
commit 8a661a5872
  1. 30
      Check.pm

@ -250,10 +250,34 @@ EOF
my $DUmaxTime = timeStamp2($Info{DUDailyMaxTime}); my $DUmaxTime = timeStamp2($Info{DUDailyMaxTime});
my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime}); my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime});
my $content = eval ("qq{
<p>Header content here</p>
}");
$header = <<EOF;
\${h1(qq{BackupPC: Check})}
<p>This check was generated at <strong>\$now</strong>.</p>
<p>File system pool size usage (\$DUmaxTime) :</p>
<div style="background-color:#f1f1f1!important">
<div style="color:#fff!important;background-color:#2196F3!important; text-align:center; width:\$Info{DUDailyMax}%">\$Info{DUDailyMax}%</div>
</div>
<p>File system inode size usage (\$DUInodemaxTime) :</p>
<div style="background-color:#f1f1f1!important">
<div style="color:#fff!important;background-color:#2196F3!important; text-align:center; width:\$Info{DUInodeDailyMax}%">\$Info{DUInodeDailyMax}%</div>
</div>
\${h2("Backups summary")}
<table class="sortable" id="host_summary_backups" border cellpadding="3" cellspacing="1">
<tr class="tableheader"><td> Host </td>
<td> Last Backup (days) </td>
<td> Errors </td>
<td> Size Consistency </td>
<td> Browse </td>
\$strGood
</table>
EOF
my $content = eval ("qq{$header}");
Header("BackupPC: Check", $content); Header("BackupPC: Check", $content);
Trailer(); Trailer();
} }

Loading…
Cancel
Save