diff --git a/Check.pm b/Check.pm
index 48ac594..d70d975 100644
--- a/Check.pm
+++ b/Check.pm
@@ -148,12 +148,8 @@ EOF
my $DUmaxTime = timeStamp2($Info{DUDailyMaxTime});
my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime});
- my $content = "
-
-
BackupPC: Check
-
- ");
- Header("BackupPC: Check", $content);
+ my $content = eval ("qq{$Lang->{BackupPC_Check}}");
+ Header($Lang->{BackupPC__Server_Check}, $content);
Trailer();
}
diff --git a/en.pm b/en.pm
index f0eab7a..7e02a67 100644
--- a/en.pm
+++ b/en.pm
@@ -458,7 +458,7 @@ $Lang{Recent_Email_Summary} = <
EOF
-
+
# ------------------------------
$Lang{Browse_backup__num_for__host} = "BackupPC: Browse backup \$num for \$host";
@@ -852,11 +852,11 @@ $Lang{Backup_browse_for__host} = <
@@ -1021,11 +1021,11 @@ $Lang{Email_Summary} = "BackupPC: Email Summary";
# !! ERROR messages !!
# -----------------------------------
$Lang{BackupPC__Lib__new_failed__check_apache_error_log} = "BackupPC::Lib->new failed: check apache error_log\n";
-$Lang{Wrong_user__my_userid_is___} =
+$Lang{Wrong_user__my_userid_is___} =
"Wrong user: my userid is \$>, instead of \$uid"
. "(\$Conf{BackupPCUser})\n";
# $Lang{Only_privileged_users_can_view_PC_summaries} = "Only privileged users can view PC summaries.";
-$Lang{Only_privileged_users_can_stop_or_start_backups} =
+$Lang{Only_privileged_users_can_stop_or_start_backups} =
"Only privileged users can stop or start backups on"
. " \${EscHTML(\$host)}.";
$Lang{Invalid_number__num} = "Invalid number \${EscHTML(\$In{num})}";
@@ -1300,8 +1300,8 @@ $Lang{Reason_no_ping} = "no ping";
$Lang{Reason_backup_canceled_by_user} = "backup canceled by user";
$Lang{Reason_restore_canceled_by_user} = "restore canceled by user";
$Lang{Reason_archive_canceled_by_user} = "archive canceled by user";
-$Lang{Disabled_OnlyManualBackups} = "auto disabled";
-$Lang{Disabled_AllBackupsDisabled} = "disabled";
+$Lang{Disabled_OnlyManualBackups} = "auto disabled";
+$Lang{Disabled_AllBackupsDisabled} = "disabled";
# ---------
@@ -1375,7 +1375,7 @@ $headers
Dear $userName,
The Outlook files on your PC have $howLong.
-These files contain all your email, attachments, contact and calendar
+These files contain all your email, attachments, contact and calendar
information. Your PC has been correctly backed up $numBackups times from
$firstTime to $lastTime days ago. However, Outlook locks all its files when
it is running, preventing these files from being backed up.
@@ -1384,7 +1384,7 @@ It is recommended you backup the Outlook files when you are connected
to the network by exiting Outlook and all other applications, and,
using just your browser, go to this link:
- $CgiURL?host=$host
+ $CgiURL?host=$host
Select "Start Incr Backup" twice to start a new incremental backup.
You can select "Return to $host page" and then hit "reload" to check
@@ -1529,5 +1529,70 @@ $Lang{CfgEdit_Log_Host_Change}
= "\$User host \$host changed \$key from \$valueOld to \$valueNew\n";
$Lang{CfgEdit_Log_Host_Add}
= "\$User added host \$host: \$value\n";
-
+
+# --------------------------------
+$Lang{BackupPC__Server_Check} = "BackupPC: Check";
+$Lang{BackupPC_Check} = <
+
+- This status was generated at \$now.
+
- Pool file system was recently at \$Info{DUlastValue}%
+ (\$DUlastTime), today\'s max is \$Info{DUDailyMax}% (\$DUmaxTime)
+ and yesterday\'s max was \$Info{DUDailyMaxPrev}%.
+
- 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}%.
+
+
+
+\${h2("Hosts with good Backups")}
+
+There are \$hostCntGood hosts that have been backed up, for a total of:
+
+- \$fullTot full backups of total size \${fullSizeTot}GiB
+ (prior to pooling and compression),
+
- \$incrTot incr backups of total size \${incrSizeTot}GiB
+ (prior to pooling and compression).
+
+
+
+\${h2("Hosts with no Backups")}
+
+There are \$hostCntNone hosts with no backups.
+
+
+EOF
+
#end of lang_en.pm