From 8a661a587224721266ac98ccec44013e7ea25bf0 Mon Sep 17 00:00:00 2001 From: Heuzef Date: Fri, 4 Oct 2019 12:15:47 +0200 Subject: [PATCH] try insert header --- Check.pm | 30 +++++++++++++++++++++++++++--- 1 file changed, 27 insertions(+), 3 deletions(-) diff --git a/Check.pm b/Check.pm index da7da55..0eca462 100644 --- a/Check.pm +++ b/Check.pm @@ -250,10 +250,34 @@ EOF my $DUmaxTime = timeStamp2($Info{DUDailyMaxTime}); my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime}); - my $content = eval ("qq{ -

Header content here

- }"); + $header = <This check was generated at \$now.

+ +

File system pool size usage (\$DUmaxTime) :

+
+
\$Info{DUDailyMax}%
+
+ +

File system inode size usage (\$DUInodemaxTime) :

+
+
\$Info{DUInodeDailyMax}%
+
+ + \${h2("Backups summary")} + + + + + + + + \$strGood +
Host Last Backup (days) Errors Size Consistency Browse
+EOF + + my $content = eval ("qq{$header}"); Header("BackupPC: Check", $content); Trailer(); }