|
|
@ -239,9 +239,9 @@ EOF |
|
|
|
my $DUmaxTime = timeStamp2($Info{DUDailyMaxTime}); |
|
|
|
my $DUmaxTime = timeStamp2($Info{DUDailyMaxTime}); |
|
|
|
my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime}); |
|
|
|
my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime}); |
|
|
|
|
|
|
|
|
|
|
|
# Show header |
|
|
|
# Show header |
|
|
|
$header = <<EOF; |
|
|
|
$header = <<EOF; |
|
|
|
\${h1(qq{BackupPC: Check})} |
|
|
|
\${h1(qq{BackupPC: Check})} |
|
|
|
<p>This check was generated at <strong>\$now</strong>.</p> |
|
|
|
<p>This check was generated at <strong>\$now</strong>.</p> |
|
|
|
|
|
|
|
|
|
|
|
<p>File system pool size usage (\$DUmaxTime) :</p> |
|
|
|
<p>File system pool size usage (\$DUmaxTime) :</p> |
|
|
@ -266,7 +266,7 @@ EOF |
|
|
|
</table> |
|
|
|
</table> |
|
|
|
EOF |
|
|
|
EOF |
|
|
|
|
|
|
|
|
|
|
|
# Show page |
|
|
|
# Show page |
|
|
|
my $content = eval ("qq{$header}"); |
|
|
|
my $content = eval ("qq{$header}"); |
|
|
|
Header("BackupPC: Check", $content); |
|
|
|
Header("BackupPC: Check", $content); |
|
|
|
Trailer(); |
|
|
|
Trailer(); |
|
|
|