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). +
+

+ + + + + + + + + + + + + + +\$strGood +
Host User Comment #Full Full Age (days) Full Size (GiB) Speed (MiB/s) #Incr Incr Age (days) Last Backup (days) State #Xfer errs Last attempt
+\${h2("Hosts with no Backups")} +

+There are \$hostCntNone hosts with no backups. +

+ + + + + + + + + + + + + + +\$strNone +
Host User Comment #Full Full Age (days) Full Size (GiB) Speed (MiB/s) #Incr Incr Age/days Last Backup (days) State #Xfer errs Last attempt
+EOF + #end of lang_en.pm