Inserts langues

Check.pm

@@ -148,12 +148,8 @@ EOF
     my $DUmaxTime      = timeStamp2($Info{DUDailyMaxTime});
     my $DUInodemaxTime = timeStamp2($Info{DUInodeDailyMaxTime});
 
-    my $content = "
+    my $content = eval ("qq{$Lang->{BackupPC_Check}}");
-    
+    Header($Lang->{BackupPC__Server_Check}, $content);
-      <h1>BackupPC: Check</h1>
-
-    ");
-    Header("BackupPC: Check", $content);
     Trailer();
 }
 

en.pm

@@ -458,7 +458,7 @@ $Lang{Recent_Email_Summary} = <<EOF;
 \$str
 </table>
 EOF
- 
+
 
 # ------------------------------
 $Lang{Browse_backup__num_for__host} = "BackupPC: Browse backup \$num for \$host";
@@ -852,11 +852,11 @@ $Lang{Backup_browse_for__host} = <<EOF;
         }
       }
     }
-    
+
     function toggleThis(checkbox)
     {
        var cb = eval("document.form1."+checkbox);
-       cb.checked = !cb.checked;	
+       cb.checked = !cb.checked;
     }
 
 //-->
@@ -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_OnlyManualBackups}  = "auto disabled";
-$Lang{Disabled_AllBackupsDisabled} = "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} = <<EOF;
+
+\${h1(qq{$Lang{BackupPC__Server_Check}})}
+<p>
+<ul>
+<li>This status was generated at \$now.
+<li>Pool file system was recently at \$Info{DUlastValue}%
+    (\$DUlastTime), today\'s max is \$Info{DUDailyMax}% (\$DUmaxTime)
+    and yesterday\'s max was \$Info{DUDailyMaxPrev}%.
+<li>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}%.
+</ul>
+</p>
+
+\${h2("Hosts with good Backups")}
+<p>
+There are \$hostCntGood hosts that have been backed up, for a total of:
+<ul>
+<li> \$fullTot full backups of total size \${fullSizeTot}GiB
+     (prior to pooling and compression),
+<li> \$incrTot incr backups of total size \${incrSizeTot}GiB
+     (prior to pooling and compression).
+</ul>
+</p>
+<table class="sortable" id="host_summary_backups" border cellpadding="3" cellspacing="1">
+<tr class="tableheader"><td> Host </td>
+    <td align="center"> User </td>
+    <td align="center"> Comment </td>
+    <td align="center"> #Full </td>
+    <td align="center"> Full Age (days) </td>
+    <td align="center"> Full Size (GiB) </td>
+    <td align="center"> Speed (MiB/s) </td>
+    <td align="center"> #Incr </td>
+    <td align="center"> Incr Age (days) </td>
+    <td align="center"> Last Backup (days) </td>
+    <td align="center"> State </td>
+    <td align="center"> #Xfer errs </td>
+    <td align="center"> Last attempt </td></tr>
+\$strGood
+</table>
+\${h2("Hosts with no Backups")}
+<p>
+There are \$hostCntNone hosts with no backups.
+<p>
+<table class="sortable" id="host_summary_nobackups" border cellpadding="3" cellspacing="1">
+<tr class="tableheader"><td> Host </td>
+    <td align="center"> User </td>
+    <td align="center"> Comment </td>
+    <td align="center"> #Full </td>
+    <td align="center"> Full Age (days) </td>
+    <td align="center"> Full Size (GiB) </td>
+    <td align="center"> Speed (MiB/s) </td>
+    <td align="center"> #Incr </td>
+    <td align="center"> Incr Age/days </td>
+    <td align="center"> Last Backup (days) </td>
+    <td align="center"> State </td>
+    <td align="center"> #Xfer errs </td>
+    <td align="center"> Last attempt </td></tr>
+\$strNone
+</table>
+EOF
+
 #end of lang_en.pm