From 1aded7a2780516f35ccacae3d97dc4ead61dd0d4 Mon Sep 17 00:00:00 2001
From: Heuzef <contact@heuzef.com>
Date: Fri, 4 Oct 2019 11:53:09 +0200
Subject: [PATCH] Add head content

---
 Check.pm | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/Check.pm b/Check.pm
index 0e21267..d83ca52 100644
--- a/Check.pm
+++ b/Check.pm
@@ -31,7 +31,7 @@ sub action
 {
     # Init
     my($fullTot, $fullSizeTot, $incrTot, $incrSizeTot, $str,
-       $strNone, $strGood, $hostCntGood, $hostCntNone);
+       $strNone, $strGood, $hostCntGood, $hostCntNone, $head_content);
 
     $hostCntGood = $hostCntNone = 0;
     GetStatusInfo("hosts info");
@@ -250,8 +250,13 @@ EOF
     my $DUmaxTime      = timeStamp2($Info{DUDailyMaxTime});
     my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime});
 
+    # Show header
+            $head_content = <<EOF;
+New header content
+    EOF
+
     my $content = eval ("qq{$Lang->{BackupPC_Check}}");
-    Header("BackupPC: Check", $content);
+    Header("BackupPC: Check", $head_content ,$content);
     Trailer();
 }