Small l10n clean up.

diff --git a/cgi-bin/BackupPC_Admin b/cgi-bin/BackupPC_Admin
index cac9707..63f03af 100755 (executable)
--- a/cgi-bin/BackupPC_Admin
+++ b/cgi-bin/BackupPC_Admin
@@ -126,7 +126,7 @@ my %ActionDispatch = (
     "browse"                    => \&Action_Browse,
     $Lang->{Restore}            => \&Action_Restore,
     "RestoreFile"               => \&Action_RestoreFile,
-    $Lang->{hostInfo}           => \&Action_HostInfo,
+    "hostInfo"                  => \&Action_HostInfo,
     "generalInfo"               => \&Action_GeneralInfo,
     "restoreInfo"               => \&Action_RestoreInfo,
 );
@@ -134,7 +134,7 @@ my %ActionDispatch = (
 #
 # Set default actions, then call sub handler
 #
-$In{action} ||= $Lang->{hostInfo}    if ( defined($In{host}) );
+$In{action} ||= "hostInfo"    if ( defined($In{host}) );
 $In{action}   = "generalInfo" if ( !defined($ActionDispatch{$In{action}}) );
 $ActionDispatch{$In{action}}();
 exit(0);
@@ -1810,7 +1810,7 @@ EOF
     <tr><td>$Lang->{Host_or_User_name}</td>
     <tr><td><form action="$MyURL" method="get"><small>
     <input type="text" name="host" size="10" maxlength="64">
-    <input type="hidden" name="action" value="$Lang->{hostInfo}"><input type="submit" value="$Lang->{Go}" name="ignore">
+    <input type="hidden" name="action" value="hostInfo"><input type="submit" value="$Lang->{Go}" name="ignore">
     </small></form></td></tr>
 </table>
 EOF

diff --git a/lib/BackupPC/Lang/en.pm b/lib/BackupPC/Lang/en.pm
index 8a57a1f..a606679 100644 (file)
--- a/lib/BackupPC/Lang/en.pm
+++ b/lib/BackupPC/Lang/en.pm
@@ -671,8 +671,6 @@ $Lang{Only_privileged_users_can_view_email_summaries} = "Only privileged users c
 $Lang{Only_privileged_users_can_browse_backup_files} = "Only privileged users can browse backup files"
                 . " for host \${EscapeHTML(\$In{host})}.";
 $Lang{Empty_host_name} = "Empty host name.";
-$Lang{Can_t_browse_bad_directory_name} = "Can\'t browse bad directory name"
-                   . " \${EscapeHTML(\"\$TopDir/pc/\$host/\$num\")}";
 $Lang{Directory___EscapeHTML} = "Directory \${EscapeHTML(\"\$TopDir/pc/\$host/\$num\")}"
                    . " is empty";
 $Lang{Can_t_browse_bad_directory_name2} = "Can\'t browse bad directory name"
@@ -691,7 +689,6 @@ $Lang{Can_t_open_create} = "Can\'t open/create "
 $Lang{Only_privileged_users_can_restore_backup_files2} = "Only privileged users can restore backup files"
                 . " for host \${EscapeHTML(\$host)}.";
 $Lang{Empty_host_name} = "Empty host name";
-$Lang{Can_t_restore_bad_file} = "Can\'t restore bad file \${EscapeHTML(\$fullPath)}";
 $Lang{Unknown_host_or_user} = "Unknown host or user \${EscapeHTML(\$host)}";
 $Lang{Only_privileged_users_can_view_information_about} = "Only privileged users can view information about"
                 . " host \${EscapeHTML(\$host)}." ;
@@ -707,7 +704,6 @@ $Lang{Unable_to_connect_to_BackupPC_server} = "Unable to connect to BackupPC ser
           . " configuration error.  Please report this to your Sys Admin.";
 
 $Lang{Can_t_find_IP_address_for} = "Can\'t find IP address for \${EscapeHTML(\$host)}";
-
 $Lang{host_is_a_DHCP_host} = <<EOF;
 \$host is a DHCP host, and I don\'t know its IP address.  I checked the
 netbios name of \$ENV{REMOTE_ADDR}\$tryIP, and found that that machine

diff --git a/lib/BackupPC/Lang/fr.pm b/lib/BackupPC/Lang/fr.pm
index fa62a54..44bf79f 100644 (file)
--- a/lib/BackupPC/Lang/fr.pm
+++ b/lib/BackupPC/Lang/fr.pm
@@ -672,9 +672,6 @@ $Lang{Only_privileged_users_can_view_log_files} = "Seuls les utilisateurs privil
 $Lang{Only_privileged_users_can_view_email_summaries} = "Seuls les utilisateurs privilégiés peuvent voir les compte-rendu des courriels.";
 $Lang{Only_privileged_users_can_browse_backup_files} = "Seuls les utilisateurs privilégiés peuvent parcourir les fichiers de sauvegarde pour l'hôte \${EscapeHTML(\$In{host})}.";
 $Lang{Empty_host_name} = "Nom d\'hôte vide.";
-$Lang{Can_t_browse_bad_directory_name} = "Ne peut pas parcourir " 
-                   . " \${EscapeHTML(\"\$TopDir/pc/\$host/\$num\")}:"
-                    . " mauvais nom de répertoire";
 $Lang{Directory___EscapeHTML} = "Le répertoire \${EscapeHTML(\"\$TopDir/pc/\$host/\$num\")}"
                    . " est vide";
 $Lang{Can_t_browse_bad_directory_name2} = "Ne peut pas parcourir "
@@ -696,7 +693,6 @@ $Lang{Only_privileged_users_can_restore_backup_files2} = "Seuls les utilisateurs
                 . " des fichiers de sauvegarde"
                 . " pour l\'hôte \${EscapeHTML(\$host)}.";
 $Lang{Empty_host_name} = "Nom d\'hôte vide";
-$Lang{Can_t_restore_bad_file} = "Ne peut pas restaurer le fichier corrompu \${EscapeHTML(\$fullPath)}";
 $Lang{Unknown_host_or_user} = "\${EscapeHTML(\$host)}, hôte ou utilisateur inconnu.";
 $Lang{Only_privileged_users_can_view_information_about} = "Seuls les utilisateurs privilégiés peuvent accéder aux "
                 . " informations sur l\'hôte \${EscapeHTML(\$host)}." ;
@@ -712,7 +708,6 @@ $Lang{Unable_to_connect_to_BackupPC_server} = "Impossible de se connecter au ser
           . " de configuration. Veuillez faire suivre ce message à votre administrateur système.";
 
 $Lang{Can_t_find_IP_address_for} = "Ne peut pas trouver d\'adresse IP pour \${EscapeHTML(\$host)}";
-
 $Lang{host_is_a_DHCP_host} = <<EOF;
 L\'hôte est un serveur DHCP, et je ne connais pas son adresse IP. J\'ai 
 vérifié le nom netbios de \$ENV{REMOTE_ADDR}\$tryIP, et j\'ai trouvé que